Nothing
initializePAGIExample<-function(){
utils::data("ExampleData",package="PAGI")
}
getdataset<-function(){
if(!exists("ExampleData")) initializePAGIExample()
newdataset<-get("dataset",envir=ExampleData)
return(newdataset)
}
getclass.labels<-function(){
if(!exists("ExampleData")) initializePAGIExample()
newclass.labels<-get("class.labels",envir=ExampleData)
return(newclass.labels)
}
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.