Nothing
CompCase=function(mydata){
sum(is.na(apply(mydata,1,mean)))
mydata<-mydata[!is.na(apply(mydata,1,mean)),]
}
#mydata=CompCase(pbc[,c(2:4,10:14)])
#head(mydata)
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.