powered by
logratio(x1, x2, x, sig1, sig2, sig, mu1, mu2, mu)
x1=matrix(rnorm(100),50,2) x2=matrix(rnorm(100),50,2) logratio(x1,x2,rbind(x1,x2),diag(1,2),diag(1,2),diag(1,2),c(0,0),c(0,0),c(0,0))$twiceLR
Run the code above in your browser using DataLab