inst/snippets/Figure10.14b.R

Rate.null <- do(1000) * coef(lm(shuffle(heartRate) ~ bodyTemp, data = TempHeart))
head(Rate.null, 3)
dotPlot(~ bodyTemp, data = Rate.null, n = 50, groups = (bodyTemp <= -2.443 | bodyTemp >= 2.443))
rpruim/ISIwithR documentation built on May 28, 2019, 1:30 a.m.