========================================================
library(knitr) library(rmarkdown) options(scipen=3)
options(width=60) opts_chunk$set(comment = "", warning = FALSE, message = FALSE, echo = TRUE, tidy = FALSE, size="small",fig.height=5)
tmp99<-get.result.MultiArm()
cat('Comparison of ',round(tmp99$p20*100),'% versus ',round(tmp99$p10*100),'% response Rate',sep='')
cat(tmp99$a1)
cat(tmp99$a2)
cat(tmp99$power)
cat(tmp99$typeI)
cat(tmp99$a3)
tmp98 <- get.result.MultiArm() tmp3<-list(H1=tmp98$H1.table,H0=tmp98$H0.table) for(i in 1:length(tmp3)) { tmp40<-tmp3[[i]] cat('\n-----------------------------------------------\n') cat('\n\n',tmp40$scenario,'\n') print(kable(tmp40$table)) cat('\n',tmp40$arm.pass,'\n') cat('\n',tmp40$summary,'\n') }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.