inst/snippets/Exploration6.3.8.R

Friends.null <- do(1000) * diffmean(friends ~ shuffle(sex), data = CloseFriends)
head(Friends.null, 3)
histogram(~ diffmean, data = Friends.null, width = 0.05,
        group = cut(diffmean, c(-0.4, -0.228, 0.228, 0.4)), 
        fcol = c("steelblue", "navy", "steelblue"))
rpruim/ISIwithR documentation built on May 28, 2019, 1:30 a.m.