powered by
check.one(polyn = NULL)
set.seed(4711) X <- array(rnorm(32),dim=c(4, 4, 2)) X <- check.one(X) short.form(X)
Run the code above in your browser using DataLab