powered by
Ptensor(x, k)
n<-1000 y<-mvrnorm(n, c(0,0), diag(2)) Ptensor(y,2) cov(y)*((n-1)/n)
Run the code above in your browser using DataLab