FFCSV.writeFormatForest <- function(forest.n=1,
estimate.col,
use.stderr=TRUE,
stderr.col=NULL,
lci.col=NULL,
uci.col=NULL,
boxsize.col=NULL,
logData=FALSE,
getBlanks=FALSE,
getTrends=FALSE,
getHets=FALSE,
YLogNeededForSE=FALSE)
{
# need to write out two versions, apparently
# one to be added to the R code
# one to be executed immediately (although I don't really know what the difference is?
start_part <- paste0('FormatForest(rawdata=rawdata, forest.n=', forest.n, ', EstimateCol = \"', estimate.col, '\", ')
end_part <- paste0('logData=', as.character(logData),
', getBlanks=', as.character(getBlanks),
', getHets=', as.character(getHets),
', getTrends=', as.character(getTrends),
', YLogNeededForSE=', as.character(YLogNeededForSE),
')\n')
mid_part <- ""
if (use.stderr) {
mid_part <- paste0('StdErrCol=\"', stderr.col, '\", ')
} else {
mid_part <- paste0('LCICol=\"', lci.col, '\", UCICol=\"', uci.col, '\", ')
}
if (!is.null(boxsize.col)) {
mid_part <- paste0(mid_part, 'BoxSizeCol=\"', boxsize.col, '\", ')
}
command <- paste0(start_part, mid_part, end_part)
# ForestFormat_write.command <- paste0(start_part, ' StdErrCol=\"', ifelse(!is.null(StdErrCol), StdErrCol[i], current.stderr), end_part)
return(command)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.