.gtheory(dat = attitude,
i = sample(x = 1:nrow(attitude), size = nrow(attitude), replace = TRUE),
cross.vrb = TRUE)
.gtheory(dat = attitude,
i = sample(x = 1:nrow(attitude), size = nrow(attitude), replace = TRUE),
cross.vrb = FALSE)
Run the code above in your browser using DataLab