Nothing
mnntsplotmarginal<-function(cestimates,M,component, ...){
nntsplotint <- function(theta) {
res <- mnntsmarginal(cestimates,M,component,theta)
return(res)
}
return(curve(nntsplotint, 0, 2 * pi, ylab="Marginal density function",xlab = paste("Component:",component), ...))
}
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.