Nothing
test1<-woe(mtcars,"mpg",TRUE,"am",10,Bad=0,Good=1)
test2<-woe(mtcars,"cyl",FALSE,"am",10,Bad=0,Good=1)
test3<-woe(mtcars,"mpg_wrong",TRUE,"am",10,Bad=0,Good=1)
test4<-woe(mtcars,"cyl_wrong",FALSE,"am",10,Bad=0,Good=1)
expect_equal(class(test1),"data.frame")
expect_equal(class(test2),"data.frame")
expect_equal(class(test3),"numeric")
expect_equal(class(test4),"numeric")
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.