tests/testthat/tests.R

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)

Try the cleanerR package in your browser

Any scripts or data that you put into this service are public.

cleanerR documentation built on May 2, 2019, 5:51 a.m.