Nothing
require(plyr)
k=iris
l<-BestVector(iris,5,3,100,0)
#expect_output(best_vector(iris,5,3,100,0), c(1,2,3))
a<-MeanAccuracy(iris,l,5)
b<-WorstAccuracy(iris,l,5)
expect_equal(a, 1)
expect_equal(b,1)
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.