ãã¾ã«å帰åæã®ä¿æ°ã®åºéæ¨å®ãæ±ãããã¨ããããã¾ãã lmã³ãã³ãã®æ¨å®çµæããæ¨æºèª¤å·®ï¼Std. Errorï¼ãåå¾ããã¨ãã¯ã以ä¸ã®ããã«ããã¨ç°¡åã§ãã r <- lm(expression) # expressionã¯ä»»æã®æ¨å®å¼ã§ã coef(summary(r))[, 2] ä¾ãã°3çªç®ã®ä¿æ°ã®95%ä¿¡é ¼åºéãæ±ãããã¨ãã¯ã以ä¸ã®ããã«ãã¦ãã ããã a <- 0.05/2 # 両å´æ¤å® df <- summary(r)$df[2] # èªç±åº¦ b <- coef(r)[3] # 3çªç®ã®ä¿æ° se <- coef(summary(r))[, 2][3] # 3çªç®ã®æ¨æºèª¤å·® sprintf("%.3f(95%%ä¿¡é ¼åºé%.3fã%.3f)", b, b-se*qt(a, df), b+se*qt(a, df)) [3]ãç¡ããã°ãå ¨ä¿æ°ã®åºéæ¨å®éãåºã¾ãã
{{#tags}}- {{label}}
{{/tags}}