powered by
awcoord
mahalanodisc(x2, mg, covg, modus="square")
solvecov
options(digits=3) 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