## continue from example(join)
example(join)
## perform the modified method of Sawada (2004) - paired sampling,
## with replacement
swap.mcarlo <- mcarlo(swapdiat, method = "SQchord", nsamp = 1000,
type = "paired", replace = FALSE)
swap.mcarlo
## plot the simulated distribution
par(mfrow = c(2,1))
plot(swap.mcarlo)
par(mfrow = c(1,1))
Run the code above in your browser using DataLab