# NOT RUN {
#-------------------------------------------------------------------
# Checker for Two Types of Inputs
#
# Generate 5 observations in S^2 embedded in R^3.
#-------------------------------------------------------------------
## DATA GENERATION
d1 = array(0,c(5,3))
d2 = list()
for (i in 1:5){
single = stats::rnorm(3)
d1[i,] = single
d2[[i]] = single
}
## RUN
test1 = wrap.sphere(d1)
test2 = wrap.sphere(d2)
# }
Run the code above in your browser using DataLab