Rè¨èª
ç¡æã§å¦ã¹ã çµ±è¨ã»Rã»æ©æ¢°å¦ç¿ã»ãã¼ã¿ãã¤ãã³ã° ã¾ã¨ã ç¡æã§å¦ã¹ãçµ±è¨é¢ä¿ã®è³æãã¾ã¨ãã¦ããã¾ãã ç¡æã§å¦ã¹ã çµ±è¨ã»Rã»æ©æ¢°å¦ç¿ã»ãã¼ã¿ãã¤ãã³ã° ã¾ã¨ã çµ±è¨ã«é¢ããæ°å¦ æ°å¦ï¼ç©çãå¦ã³æ¥½ããããã« [2015-02-08] ãçµ±è¨ãå§ããåã«ã â¦
ç¡æã§å¦ã¹ãå¦ç¿åã Webãµã¼ãã¹ ã¾ã¨ã (ããã°ã©ãã³ã°, Webç³») ä»åã¯ãããã°ã©ãã³ã°ãWebãã¶ã¤ã³ãªã©ãç¡æã§å¦ç¿ã§ããWebãµã¼ãã¹ã®ã¾ã¨ãã¾ããã 追è¨ï¼ãRè¨èªãé¢ä¿ã ç¡æã§å¦ã¹ã çµ±è¨ã»Rã»æ©æ¢°å¦ç¿ã»ãã¼ã¿ãã¤ãã³ã° ã¾ã¨ã - ã¯ãããã¨â¦
ãã¢ã½ã³ã®Ïäºä¹çµ±è¨é å¤ã大ããã»ã©ãï¼ã¤ã®è³ªçå¤æ°éã®ç¸é¢ãé«ãã¨èãããå°ãããã°ãäºãã«ç¬ç«ã§ããã¨èããã åå²è¡¨ã«ããç¬ç«æ§ã®æ¤å® 質ç2å¤æ° x, y ãä¸ããããæããã¢ã½ã³ã®çµ±è¨éãç¨ãã¦ã以ä¸ã®å¼ãæãç«ã¤æãxã¨yã¯æææ°´æº5%ã§ç¬â¦
å¹³æ¹åã®åæ£æ¯ã¨ç¢ºçåå¸ï¼Ïäºä¹åå¸ï¼ å¹³æ¹åSxx / åæ£Ï^2 ã¯ãèªç±åº¦df = n - 1 ã®Ï^2åå¸ã«å¾ãã åå¸é¢æ°ï¼èªç±åº¦dfãÏ^2å¤qããåå¸P pchisq( q, df )ã¯ãqããå·¦å´ã®é¢ç©ã lower.tail = FALSEãªãã°ãå³å´ã®é¢ç©ã #ã«ã¤äºä¹df <- 5 #èªç±åº¦q <- 3â¦
æ£è¦åå¸ã®ååå¸ 2ã¤ã®äºãã«ç¬ç«ãªç¢ºçå¤æ°X1ã¨X2ããªãæ£è¦åå¸N( μ1,Ï^21 )ã¨N( μ2, Ï^22 )ã®åã¯ãX1 ï¼ X2 ããªãæ£è¦åå¸ã¨ãªããN( μ1 + μ2, Ï^21 + Ï^22)ã¨ãªãã ä¾ï¼Î¼1 = 10, Ï^21 = 4^2 μ2 = 20, Ï^22 = 3^2 curve( dnorm( x, m = 10, sd = 4 ),â¦
æ£è¦åå¸ã®æç» ï¼å¤æ°ã®æ¨æºæ£è¦åå¸ã®ç¢ºçå¯åº¦é¢æ°ã[ -5, +5 ]ã®ç¯å²ã§æç»ã curve( dnorm( x, mean=0, sd=1 ), xlim = c( -5, 5 ), lwd = 5 ) 確çå¯åº¦é¢æ° 確çå¯åº¦é¢æ°ï¼ãµã³ãã«æ°ãç¡éã«ããæã«å¾ãããæ²ç·ã¨æ¨ªè»¸ã®ãªãé¢ç©ãï¼ã¨ãªãããã«æ£è¦â¦
è¡åæ¼ç® è¡åã®æãç®ï¼%*% abline(a, b)ï¼yåçaã¨å¾ãbãæã¤ç´ç·ãå¼ã curve(é¢æ°, æå°å¤, æ大å¤)ï¼ããé¢æ°ã®æ²ç·ãæãé¢æ° > #è¡å,2Ã2ã§åæå¤0.0> M <- matrix(0.0, 2, 2)> M [,1] [,2][1,] 0 0[2,] 0 0> #1è¡ç®ã¨ï¼è¡ç®ã«å¤ãè¨å®ï¼45度ã®å転â¦
ï¼éçï¼ï¼å¤æ°ã®çµ±è¨é æ¨æ¬ãã¼ã¿ nåã®ãµã³ãã«ï¼ åå·®ç©åï¼ å ±åæ£ï¼ ç¸é¢ä¿æ°ï¼ > weight <- c(67,80,90,54,50,58,64,61,100,71)> weight [1] 67 80 90 54 50 58 64 61 100 71> height <- c(171,175,179,167,160,169,157,180,176,190)> height [1] 171â¦
ææ¥ã§ãã£ãRè¨èªã®å¾©ç¿ã»ã¾ã¨ãã®ããã®ã¡ã¢ã¨ãã¦æ®ãã¾ãã ï¼ï¼ï¼ç°¡åãªæ¼ç® > 11-3[1] 8> 4*3[1] 12> 15/3[1] 5> sqrt(25)[1] 5> 3^2[1] 9> exp(1)[1] 2.718282> log(2)[1] 0.6931472> log(2,base=10)[1] 0.30103> pi[1] 3.141593> sin(pi/2)[1] 1> daâ¦