| #include <math.h> |
| plot(-1, ylim=c(0, 12), xlim=c(0, 12), xlab="", ylab="", xaxt='n', yaxt='n', axes=0, main="Supply and Demand") | |
| segments(0, 0, 0, 10, lwd=3) | |
| segments(0, 0, 10, 0, lwd=3) | |
| segments(1, 1, 9, 9, lwd=3) | |
| segments(1, 9, 9, 1, lwd=3) | |
| text(0, 11, "P", cex=1.6) | |
| text(10.5, 0, "Q", cex=1.6) | |
| text(9.3, 9.2, "S", cex=1.4) | |
| text(9.3, 1.2, "D", cex=1.4) | |
| points(5, 5, pch=19, cex=1.5, col="blue") |
| dim <- function(x) { | |
| if (is.vector(x)) { | |
| return(length(x)) | |
| } else { | |
| return(.Primitive("dim")(x)) | |
| } | |
| } | |
| # Test code | |
| # v <- rnorm(100) |
| @import url('https://fonts.googleapis.com/css?family=Roboto&display=swap'); | |
| body { | |
| margin: 0 auto; | |
| background-color: white; | |
| font-family: sans-serif; | |
| font-size:14pt; | |
| -moz-text-size-adjust: none; | |
| -webkit-text-size-adjust: none; | |
| -mx-text-size-adjust: none; |
| <head> | |
| <link rel="stylesheet" type="text/css" href="https://cdnjs.cloudflare.com/ajax/libs/trix/1.2.1/trix.css"> | |
| <script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/trix/1.2.1/trix.js"></script> | |
| </head> | |
| <div style="max-width: 850px; margin: auto;"> | |
| <trix-editor></trix-editor> | |
| <a onclick="localsave()" href="javascript:void(0);">Save</a> <a onclick="localload()" href="javascript:void(0);">Load</a> | |
| </div> | |
| <script> | |
| function localsave() { |
| \documentclass[12pt]{article} | |
| \usepackage[letterpaper, margin=1.25in]{geometry} | |
| \usepackage{setspace} | |
| \doublespacing | |
| \usepackage[T1]{fontenc} | |
| \usepackage{lmodern} | |
| \usepackage{amssymb,amsmath} | |
| \usepackage{ifxetex,ifluatex} | |
| \usepackage{fixltx2e} % provides \textsubscript | |
| % use upquote if available, for straight quotes in verbatim environments |
| \documentclass[12pt]{article} | |
| \usepackage[letterpaper, margin=1in]{geometry} | |
| \usepackage[T1]{fontenc} | |
| \usepackage{lmodern} | |
| \usepackage{amssymb,amsmath} | |
| \usepackage{ifxetex,ifluatex} | |
| \usepackage{fixltx2e} % provides \textsubscript | |
| % use upquote if available, for straight quotes in verbatim environments | |
| \IfFileExists{upquote.sty}{\usepackage{upquote}}{} | |
| \ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex |
Convert 25 tweets by @undercoverhist starting 2019-03-29 to latex format.
Requires getting a Twitter API key as described here.
R code:
library(twitteR)
library(rmarkdown)
setup_twitter_oauth(api key, api secret, access token, access secret) # Fill in values given by Twitter