Commit 5509af36 authored by Corson N. Areshenkoff's avatar Corson N. Areshenkoff

Fix logeuclidean mean

parent 13145a3e
......@@ -4,7 +4,7 @@ spd.mean.euclidean <- function(x, ...){
}
spd.mean.logeuclidean <- function(x, ...){
Reduce(`+`, lapply(x, logm2))/length(x)
expm2(Reduce(`+`, lapply(x, logm2))/length(x))
}
spd.mean.riemannian <- function(x, p = 0, tol = .01, max.iter = 50){
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment