Nothing
getLik<-function(x,answers){
check<-numeric()
for(i in 1:length(x)){
if(answers[i]==0){check[i]<-(1-x[i])}
else{check[i]<-x[i]}
}
return(prod(check))
}
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.