if (FALSE) {
if (require('dplyr')) {
d <- lineup(null_permute('mpg'), mtcars, pos = 1)
library(ggplot2)
ggplot(d, aes(mpg, wt)) + geom_point() + facet_wrap(~.sample)
distplot(distmet(d, var = c('mpg', 'wt'), 'reg_dist', null_permute('mpg'),
pos = 1, repl = 100, m = 8), m = 8)
}
}
Run the code above in your browser using DataLab