Nothing
plot.cnv.discrimin<-function(x, all=FALSE, xax = 1, yax = 2, ...)
{
if (!inherits(x, "cnv.discrimin"))
stop("Use only with 'cnv.discrimin' objects")
.GlobalEnv$pd<-x$pop
.GlobalEnv$md<-x$mat.f
if (all)
plot(attr(x$proj,"dudi.dis"))
else
{
xx<-attr(x$proj,"dudi.dis")
appel <- as.list(xx$call)
fac <- eval(appel$fac, sys.frame(0))
s.class(xx$li, fac, xax = xax, yax = yax, sub = "Scores and classes", csub = 2, clab = 1.5)
}
}
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.