tests/latex.r: more tests, for feeding into html conversion

harrelfe · May 17, 2016 · cd4fd0a · cd4fd0a
1 parent 1cedc3b
commit cd4fd0a
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tests/latex.r b/tests/latex.r
@@ -4,3 +4,17 @@ x <- runif(100)
 y <- abs(x - 0.5) + runif(100)
 f <- ols(y ~ rcs(x, 5))
 latex(f, file='')
+
+
+
+require(rms)
+x1 <- runif(200); x2 <- runif(200)
+y <- sample(0:1, 200, TRUE)
+f <- lrm(y ~ rcs(x1) + rcs(x2))
+cat('\\documentclass{article}\\begin{document}\\usepackage{longtable}\n', file='/tmp/e.tex')
+lat <- latex(f, file='/tmp/e.tex', append=TRUE)
+sink('/tmp/e.tex', append=TRUE)
+print(f, latex=TRUE)
+sink()
+cat('\\end{document}\n', file='/tmp/e.tex', append=TRUE)
+