singleEMfit(exprs,studyid,repid,refid,iter.max=100,tol=1e-3)sampleASE
data(sampleASE)
singleEM.fitted<-singleEMfit(sampleASE_exprs,sampleASE_studyid,sampleASE_repid,
sampleASE_refid,iter.max=2,tol=1e-3)
Run the code above in your browser using DataLab