set.seed(20150605)
# independent samples
x <- list(X1=rnorm(10), X2=rt(15,8))
perm.pairs( x )
x <- list(X1=rnorm(10), X2=rt(15,8), X3=rchisq(12,3))
perm.pairs( x )
# non-independent samples
x <- list(X1=rnorm(10), X2=rt(10,8))
perm.pairs( x, paired = TRUE )
Run the code above in your browser using DataLab