# NOT RUN {
y <- matrix(0L, nrow = 3, ncol = 64)
for (i in 1:64) {
y[, i] <- exp_map('hyperbolic', c(1, 0, 0), c(0, runif(1), runif(1)))
}
intrinsic_mean <- intrinsic_location('hyperbolic', y, 'l2')
loss('hyperbolic', intrinsic_mean, numeric(3), numeric(64), y, 'l2')
# }
Run the code above in your browser using DataLab