Nothing
loss1.3ordered<-function(param, comp.old)
{
#calcul de la fonction de perte generale (difference entre x et xhat)
#cat("dentro loss1.3ordered\n")
xhat <- reconst3(param)
# criterordered(param$x, xhat)
criter(param$x, xhat)
}
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.