Nothing
EPS <- sqrt(.Machine$double.eps)
test_that("rfit convergence", {
x<-y<-rep(0:1,each=10)
err<-rfit(y~x)$coef[2]-1
expect_less_than(err,EPS)
})
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.