Nothing
cF <-
function(x, iter, Xpred, icov, P, Beta, Sigma) {
res <- sum(P[iter,]*pnorm(x, mean = Xpred[icov,]%*%t(Beta[iter,,]), sd = Sigma[iter,]))
res
}
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.