Nothing
model1 <- lm(velocity^2 ~ force.drag, drag)
model2 <- lm(velocity ~ sqrt(force.drag), drag)
model3 <- lm(log(velocity) ~ log(force.drag), drag)
summary(model1)
summary(model2)
summary(model3)
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.