# NOT RUN {
# an example of multiple regression with two independent variables, with 64
# data points
x <- matrix(runif(2 * 64), ncol = 2)
x <- t(t(x) - colMeans(x))
y <- matrix(0L, nrow = 4, ncol = 64)
for (i in 1:64) {
y[, i] <- exp_map('sphere', c(1, 0, 0, 0), c(0, runif(1), runif(1),
runif(1)))
}
geo_reg('sphere', x, y, 'tukey', c = are_nr('tukey', 2, 6))
# }
Run the code above in your browser using DataLab