Slide 157
Slide 157 text
R Code - Fit curve
> bundler <- read.csv(file="~/bundle_test/
run_bundle_updats.csv",head=TRUE,sep=",")
> fit2 <- lm(bundler$time ~ poly(bundler$gems, 2, raw =
TRUE))
> xx <- seq(0, 1000, length=11)
> plot(bundler$gems, bundler$time)
> lines(xx, predict(fit2, data.frame(x = xx)), col="red")