powered by
pol.order(polyn = NULL, digits = 12)
pol <- array(1e-8*rnorm(96),dim=c(4,4,6)) pol[, , 1:3] <- array(rnorm(48), dim=c(4,4,3)) pol.order(polyn=pol, digits=12) pol.order(polyn=pol, digits=4)
Run the code above in your browser using DataLab