sungeng1
请教高手,下面这段R code 是什么意思, 谢谢
getLMOutFunc = function(lmOut){
highSEL = coef(lmOut)[,"Estimate"][["(Intercept)"]] + coef(lmOut)[,"Estimate"][["pred"]]
lowSEL = coef(lmOut)[,"Estimate"][["(Intercept)"]] - coef(lmOut)[,"Estimate"][["pred"]]
sampleN = as.numeric(lmOut[["ngrps"]])
if(coef(lmOut)[row.names(coef(lmOut))=="pred",][[4]]<.05) {
sig = coef(lmOut)[row.names(coef(lmOut))=="pred",][[4]]
} else {
sig = "ns"
}
return(list("High SEL" = highSEL, "Low SEL" = lowSEL, "Sig" = sig, "N" = sampleN))
}