ï¼attach(byu)lm(salary~age+exper)lm(salary~.,byu)#å©ç¨å
¨é¨èªåéå线æ§åå½lm()åªè½å¾åºåå½ç³»æ°ï¼è¦æ³å¾å°æ´ä¸ºè¯¦å°½çåå½ä¿¡æ¯ï¼åºè¯¥å°ç»æä½ä¸ºæ°æ®ä¿åæè
使ç¨âæå模åâï¼fittedmodelï¼result<-lm(salary~age+exper+age*exper,data=byu)summary(result)myresid<-result$resid#è·å¾æ®å·®vcov(result)ï¼é对äºæååç模å计ç®æ¹å·®ï¼åæ¹å·®ç©éµshapiro.test(b)#åæ®å·®çæ£å¤ªæ§æ£éªnorm(bres);line(bres)#åæ®å·®
温馨提示:答案为网友推荐,仅供参考