请问高手，下列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("HighSEL" = highSEL, "Low SEL" = lowSEL, "Sig" = sig,"N" = sampleN))

}