model_iterations/model-2/testing.R

ml <- lm(mpg ~ disp, data = mtcars)

RSS <- function (b) {
  b0 <- b[1]
  b1 <- b[2]
  sum((mtcars$mpg - b0 - b1 * mtcars$disp)^2)
}

optim(c(25, 0.01), RSS)

ml
wjones127/thesis documentation built on May 4, 2019, 7:34 a.m.