inst/snippets/Exploration10.4.5.R

Hand.null <- do(1000) * coef(lm(shuffle(perceived_weight) ~ hand_width, data = Handwidth))
head(Hand.null, 3)
dotPlot(~ hand_width, data = Hand.null, n = 50, groups = (hand_width <= -3.756))
rpruim/ISIwithR documentation built on May 28, 2019, 1:30 a.m.