CSP...
columns over final six months of datasetlibrary(xtable) tcn <- c('Before-After Raw', 'Before-After Adjusted', 'Bundle Intervention Raw', 'Bundle Intervention Adjusted') trn <- c('LOS','Bed Days','Mortality','Readmissions') r1 <- c('$\\Box$','$\\Box$','$\\Box$','$\\Box$') r2 <- c('$\\Box$','$\\Box$','$\\Box$','$\\Box$') r3 <- c('$\\Box$','$\\Box$','$\\Box$','$\\Box$') r4 <- c('$\\Box$','$\\Box$','$\\Box$','$\\Box$') tab1 <- matrix(c(r1,r2,r3,r4),nrow=4, ncol=4, byrow=TRUE) rownames(tab1) <- trn colnames(tab1) <- tcn print(xtable(tab1, align="lcccc"), type="html")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.