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