# NOT RUN {
#-------------------------------------------------------------------
# Checker for Two Types of Inputs
#-------------------------------------------------------------------
## DATA GENERATION
d1 = array(0,c(3,3,5))
d2 = list()
for (i in 1:5){
single = qr.Q(qr(matrix(rnorm(9),nrow=3)))
d1[,,i] = single
d2[[i]] = single
}
## RUN
test1 = wrap.rotation(d1)
test2 = wrap.rotation(d2)
# }
Run the code above in your browser using DataLab