#Example M input
n=10 #sample size
m=5 # dimension of covariance matrices
M <- array(0,c(m,m,n))
for (i in 1:n){
y0=rnorm(m)
aux<-diag(m)+y0%*%t(y0)
M[,,i]<-aux
}
Fmean=CovFMean(M=M,optns=list(metric="frobenius"))
Run the code above in your browser using DataLab