# NOT RUN {
#-------------------------------------------------------------------
# Checker for Two Types of Inputs
#
# Generate 5 observations in St(2,4)
#-------------------------------------------------------------------
# Data Generation by QR Decomposition
d1 = array(0,c(4,2,5))
d2 = list()
for (i in 1:5){
d1[,,i] = qr.Q(qr(matrix(rnorm(4*2),ncol=2)))
d2[[i]] = d1[,,i]
}
# Run
test1 = wrap.stiefel(d1)
test2 = wrap.stiefel(d2)
# }
Run the code above in your browser using DataLab