# Extra test file for internal tests; not for DEMO
library(utzflm, lib.loc=getOption('unitizer.tmp.lib.loc'))
x <- 1:10
y <- x ^ 3
res <- fastlm(x, y)
get_slope(res)
get_rsq(res)
get_intercept(res)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.