R/create_xtable.R

In Enpeterson/outputsim: Output Simulation Results

create_xtable <- function(plotpars){
  sumdf <- readRDS(paste(getwd(), "/Output/sumacrossruns.RDS", sep=""))
  tabdf <- subset(sumdf, parameter %in% plotpars)
  xobject <- xtable(tabdf)
  print.xtable(xobject, type="latex", file=paste(getwd(), "/Output/biastable.tex", sep=""))
}