Linear regression in JavaScript using simple statistics

lm.R

# Load in simple statistics
library(V8)
ct <- new_context("window")
ct$source("https://raw.githubusercontent.com/tmcw/simple-statistics/master/src/simple_statistics.js")

# Run Regression
ct$assign("mydata", cbind(mtcars$wt, mtcars$mpg))
ct$eval("var lm = ss.linear_regression().data(mydata)")
ct$get("[ lm.b(), lm.m() ]")

# Compare to
coef(lm( mpg ~ wt, mtcars ))