Nothing
bet<- matrix(scan(system.file("extdata", "CMVdata", package="Icens"), quiet=TRUE),nc=5,byr=TRUE)
cmv1 <- rep(bet[,1],bet[,5])
cmv2 <- rep(bet[,2],bet[,5])
mac1<-rep(bet[,3],bet[,5])
mac2<-rep(bet[,4],bet[,5])
cmv <- cbind(cmv1,cmv2, mac1, mac2)
rm(bet, cmv1, cmv2, mac1, mac2)
dimnames(cmv) <- list(NULL, c("cmvL", "cmvR", "macL", "macR"))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.