Nothing
plotnae <- function(d, mpl, return.nae = FALSE, ...){
tra <- TraFromMpl(mpl)
d$to[which(d$delta == 0)] <- "cens"
nae <- mvna(data = d, state.names = 1:ncol(tra), tra = tra, cens.name = "cens")
plot(nae, bty = "n", ...)
if(return.nae){
return(nae)
}
}
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.