Nothing
# test the model
context('model lm')
test_that('model lm', {
ordonne<-c(1:6)
abscisse<-c(4:9)
model<-lm(ordonne~abscisse)
expect_is(model, "lm" )
})
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.