Nothing
crisp.Data <-
function(Data, par="C", factor='all'){
if(factor=='all')
{
crisp.Data = as.vector( Data[,par] )
return( crisp.Data )
}
else{
crisp.Data = as.vector( Data[,par][Data[,"factor"]==factor] )
return( crisp.Data )
}
}
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.