powered by
ME(x)
a <- arsim(2000,c(8,9,10),3,0.2) ME(a) a2<-optME(a) ME(a2)
Run the code above in your browser using DataLab