powered by
d <- sbd(NULL,n=400,Rsq=0.9) aScore <- ma(d) pValue <- ma.test(d,aScore)
Run the code above in your browser using DataLab