data(screen1_raw)
df = cellHTS2df(screen1_raw,neutral="Fluc")
df = weightDf(df,exclude=c("double","controlP1","controlP2","controlN1","controlN2","controlP1N1"))
lmain =lmmain(df)
df = updateDf(df,lmain)
hist(df$residuals)
Run the code above in your browser using DataLab