powered by
awcoord
mahalanodisc(x2, mg, covg, modus="square")
solvecov
x <- cbind(rnorm(50),rnorm(50)) mahalanodisc(x,c(0,0),cov(x)) mahalanodisc(x,c(0,0),matrix(0,ncol=2,nrow=2))
Run the code above in your browser using DataLab