knitr::opts_chunk$set(echo = TRUE, results='asis') library(ULPGCmisc)
symptom=sample(LETTERS[1:4],120,replace=TRUE) disease=sample(c("Yes","No"),120,replace=TRUE) t1=table1(symptom,horizontal=TRUE,density=TRUE,printFreq=FALSE, showTable=TRUE)
t2=table2(symptom,by=disease,horizontal=FALSE,density=TRUE,printFreq=TRUE, showTable=TRUE)
freqTable(symptom,by=disease,horizontal=FALSE,density=FALSE,printFreq=TRUE, showTable=TRUE)
zz=rnorm(200,20,3) summary1(zz) summary1(zz,normalCurve=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.