Nothing
fnorm <-
function(Y,
mu,
sigma){
classsize <- dim(mu)[2]
samplesize <- dim(Y)[1]
fnorm_value <- exp(-(matrix(Y,samplesize,classsize)-mu)^2/(2*sigma^2))/(sqrt(2*pi*sigma^2))
return(fnorm_value)
}
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.