024339
Åý·×³Ø´ØÏ¢¤Ê¤ó¤Ç¤â¤¢¤ê

Åý·×³Ø¤Ë´Ø¤¹¤ë¼ÁÌä¤È¤«°Õ¸«¤Ê¤É¤Ê¤ó¤Ç¤â½ñ¤­¹þ¤ó¤Ç¤¯¤À¤µ¤¤¡£²óÅú¤¬¤¢¤ë¤«¡¤²óÅú¤¬Àµ¤·¤¤¤«¤ÏÊݾڤǤ­¤Þ¤»¤ó¡£
¥ì¥Ý¡¼¥È¤ä½ÉÂê¤ÎÅú¤¨¤òµá¤á¤ëµ­»ö¤ä¡¤¤½¤Î¾ÉÔŬÀÚ¤ÈȽÃǤ·¤¿µ­»ö¤Ï¡¤´ÉÍý¼Ô¤ÎÆÈÃǤǨ¹ïºï½ü¤·¤Þ¤¹¡£
¥í¡¼¥Þ¿ô»ú¡¤´ÝÉÕ¤­¿ô»ú¤Ê¤É¤Î¥Õ¥©¥ó¥È¥»¥Ã¥È°Í¸ʸ»ú¤ª¤è¤ÓȾ³Ñ¥«¥¿¥«¥Ê¤Ï»È¤ï¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£
µ­»ö¤ò°úÍѤ¹¤ëºÝ¤Ë¤Ï¡¤Å¬Àڤ˰úÍѤ·¤Æ¤¯¤À¤µ¤¤¡ÊÁ´Ê¸°úÍѤϤ·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡Ë¡£
ÌäÂ꤬²ò·è¤·¤¿(·ë¶É²ò·è¤·¤Ê¤«¤Ã¤¿)¾ì¹ç¤Ï¡¤¤½¤Î»ÝÊó¹ð¤·¤Æ¤¤¤¿¤À¤±¤ì¤Ð¡¤¥³¥á¥ó¥È¤·¤¿¿Í¤ä¾¤ÎÆÉ¼Ô¤Ë»²¹Í¤Ë¤Ê¤ë¤Ç¤·¤ç¤¦¡£


[¥È¥Ã¥×¤ËÌá¤ë] [ÍøÍѾå¤ÎÃí°Õ] [¥ï¡¼¥É¸¡º÷] [²áµî¥í¥°] [Åý·×³Ø¼«½¬¥Î¡¼¥È] [´ÉÍýÍÑ]
latest article: No. 23047, 2021/03/03(Wed) 16:45
¤ª¤Ê¤Þ¤¨
¥¿¥¤¥È¥ë
¥³¥á¥ó¥È
£Õ£Ò£Ì
źÉÕ¥Õ¥¡¥¤¥ë
°Å¾Ú¥­¡¼ (±Ñ¿ô»ú¤Ç8ʸ»ú°ÊÆâ)

¼«Ê¬¤ÎÅê¹Æµ­»ö¤ò½¤Àµ¡¦ºï½ü¤¹¤ë¾ì¹ç --> ½èÍý µ­»öNo °Å¾Ú¥­¡¼


¸¡Äê¤È¿äÄê¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥Ó¥®¥Ê¡¼ 2021/03/02(Tue) 11:38 No. 23043
¸¡Äê¤Ïº¹¤¬¤¢¤ë¤«¤Ê¤¤¤«¡¢¿äÄê¤Ï¤É¤ì¤¯¤é¤¤º¹¤¬¤¢¤ë¤«¤òÃΤ뤳¤È¤¬¤Ç¤­¤Þ¤¹¤Î¤Ç¡¢¸¡Äê¤è¤ê¿äÄê¤ÎÊý¤¬Í¥¤ì¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡£
¤Ê¤¼¡¢·²´ÖÈæ³Ó¤Ït¸¡Äê¤ä½ç°Ìϸ¡Äê¤Ç¹Ô¤¤¡¢¿®Íê¶è´Ö¤Ç¹Ô¤ï¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

t¸¡Äê¤ä½ç°Ìϸ¡Äê¤ÎÊý¤¬¿®Íê¶è´ÖË¡¤è¤êÍ¥¤ì¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

Åý·×½é¿´¼Ô¤Î¤¿¤á¡¢¤ï¤«¤ê¤Þ¤»¤ó¡£
¤´¶µ¼ø¤¤¤¿¤À¤­¤¿¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

Re: ¸¡Äê¤È¿äÄê¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/03/03(Wed) 10:10 No. 23045
µ­»öÃæ¤Î¡Ö¿®Íê¶è´Ö¡×¤Ï²¿¤ò»Ø¤·¤Æ¤¤¤Þ¤¹¤«¡©Î㤨¤ÐÆÈΩ2ɸËܤÎÊ¿¶ÑÃͤκ¹¤Î¸¡Äê¡Êt¸¡Äê¡Ë¤Ë¤ª¤±¤ë³Æ·²¤ÎÊ¿¶ÑÃͤο®Íê¶è´Ö¤Ç¤¹¤«¡©¤½¤ì¤È¤âÊ¿¶ÑÃͤκ¹¤Î¿®Íê¶è´Ö¤Ç¤¹¤«¡©¸å¼Ô¤Ç¤¢¤ì¤Ð¡¤¸¡Äê·ë²Ì¤Î p ÃͤȤۤȤó¤ÉƱ¤¸¤Ç¤¹¡£

Á°¼Ô¤Ç¤¢¤ì¤Ð¡¤ÅºÉÕ¤¹¤ë¿Þ¤ò¤ß¤Æ¤¯¤À¤µ¤¤¡£¤³¤Î¿Þ¤ÏÆÈΩ2ɸËܤÎÊ¿¶ÑÃͤκ¹¤Î¸¡Äê¤ò10²ó¹Ô¤Ã¤¿·ë²Ì¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£ÊìÊ¿¶ÑÃͤ¬50¤È55¡¤Êìɸ½àÊк¹¤Ï¤È¤â¤Ë10¤ÎÀµµ¬Ê¬ÉÛ¤«¤é³Æ·²¤Î¥µ¥ó¥×¥ë¥µ¥¤¥º10¤Î¥Ç¡¼¥¿¤òÃê½Ð¤·¤¿¤â¤Î¤Ç¤¹¡£Ãê½Ð¸å¤ËÊÒÊý¤ÎÊ¿¶ÑÃͤ¬50¤Ë¤Ê¤ë¤è¤¦¤Ë¡¤¤â¤¦°ìÊý¤ÎÊ¿¶ÑÃͤ¬50°Ê²¼¤Ë¤Ê¤ë¤è¤¦¤ËÄ´À°¤·¤Æ¤¢¤ê¤Þ¤¹¡£¹õ´Ý¡¦ÀִݤÏÊ¿¶ÑÃÍ¡¤Î¾Â¦¤Îò¤¤Ï 95% ¿®Íê¶è´Ö¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£
¤µ¤Æ¡¤1〜10¤Î¸¡Äê¤Ç¡¤¤É¤ì¤¬¤¤¤ï¤æ¤ë¡ÖÍ­°Õ¡×¤Ç¤¢¤ë¤«¤ï¤«¤ê¤Þ¤¹¤«¡©¤½¤ÎÍýͳ¤¬ÀâÌÀ¤Ç¤­¤Þ¤¹¤«¡©¡Ê¤³¤Î¼ÁÌä¤ò¤¹¤ë¤Î¤Ï¤Á¤ç¤Ã¤ÈÉÔŬÀڤʤó¤Ç¤¹¤±¤É¡£ÉÔŬÀڤǤ¢¤ë¤Ê¤é¡¤¤½¤ÎÍýͳ¤ò½ñ¤¤¤Æ¤¯¤À¤µ¤¤¡£¡Ë


Re: ¸¡Äê¤È¿äÄê¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥Ó¥®¥Ê¡¼ 2021/03/03(Wed) 12:53 No. 23046
ÀÄÌÚÀèÀ¸

¤´²óÅú¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
µ­»öÃæ¤Î¿®Íê¶è´Ö¤ÏÆÈΩ2ɸËܤÎÊ¿¶ÑÃͤκ¹¤Î¸¡Äê¡Êt¸¡Äê¡Ë¤Ë¤ª¤±¤ë³Æ·²¤ÎÊ¿¶ÑÃͤο®Íê¶è´Ö¤ò»Ø¤·¤Æ¤ª¤ê¤Þ¤¹¡£

1¡Á10¤Î¸¡Äê¤ÇÍ­°Õ¤¬¤¢¤ë¤â¤Î¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£Î¾·²´Ö¤ËÍ­°Õº¹¤¬Ç§¤á¤é¤ì¤ë¾ì¹ç¡¢Î¾¿®Íê¶è´Ö¤Ï½Å¤Ê¤é¤Ê¤¤¤È»×¤¤¤Þ¤¹¤¬¡¢ÎãÂê¤Î¾ì¹ç¡¢¹õ´Ý¤Èɦ¤Î¶è´Ö¤ÈÀִݤÈɦ¤Î¶è´Ö¤¬½Å¤Ê¤Ã¤Æ¤¤¤ëÉôʬ¤¬¤¢¤ë¤«¤é¤Ç¤¹¡£

Re: ¸¡Äê¤È¿äÄê¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/03/03(Wed) 16:45 No. 23047
²òÅú¤Ç¤¹
   mean.x    lcl.x        ucl.x     mean.y    lcl.y         ucl.y        p.value              lcl            ucl
1 50 43.36605 56.63395 38.4 30.82787 45.97213 0.018018299 2.2388342 20.96117
2 50 44.34511 55.65489 38.7 32.82952 44.57048 0.005717402 3.7291162 18.87088
3 50 43.69295 56.30705 42.4 34.42556 50.37444 0.108992210 -1.8785161 17.07852
4 50 42.07707 57.92293 43.0 33.98284 52.01716 0.203902693 -4.1611125 18.16111
5 50 45.59734 54.40266 43.7 39.41847 47.98153 0.032260477 0.5961526 12.00385
6 50 41.25299 58.74701 43.9 37.79776 50.00224 0.213992524 -3.8903974 16.09040
7 50 38.51932 61.48068 44.8 40.30785 49.29215 0.359308760 -6.7087364 17.10874
8 50 41.42732 58.57268 47.0 39.77328 54.22672 0.552769866 -7.4345706 13.43457
9 50 40.86102 59.13898 47.7 42.08953 53.31047 0.634584602 -7.8076382 12.40764
10 50 43.93749 56.06251 48.5 40.56667 56.43333 0.738173514 -7.8189914 10.81899
Í­°Õ¤Êº¹¤¬¤¢¤ë¤Î¤Ï¡¤1¡¤2¡¤5 ¤Ç¤¹¡£p.value ¤ÎÎó¤ò¸«¤Æ¤¯¤À¤µ¤¤¡£
¤è¤¯¡¤¡Ö95%¿®Íê¶è´Ö¤¬½Å¤Ê¤ì¤ÐÍ­°Õº¹¤Ï¤Ê¤¤¡Ê½Å¤Ê¤é¤Ê¤±¤ì¤ÐÍ­°Õº¹¤¬¤¢¤ë¡Ë¡×¤È¤¤¤ï¤ì¤¿¤ê¤·¤Þ¤¹¤¬¡¤¤½¤ì¤¬Àµ¤·¤¯¤Ê¤¤¤Î¤Ï¥·¥ß¥å¥ì¡¼¥·¥ç¥ó¤¹¤ì¤Ð¤¹¤°¤Ë¤ï¤«¤ê¤Þ¤¹¡£

¡Ö¤³¤Î¼ÁÌä¤ò¤¹¤ë¤Î¤Ï¤Á¤ç¤Ã¤ÈÉÔŬÀڤʤó¤Ç¤¹¤±¤É¡×¤È½Ò¤Ù¤¿¤Î¤Ï¡¤¤¸¤Ä¤Ï¤³¤Î¿Þ¤Ï²¿¤ÎÀâÌÀÎϤâ¤Ê¤¤¤«¤é¤Ê¤ó¤Ç¤¹¡£¿®Íê¶è´Ö¤Ï¿®Íê¶è´Ö¤Ç¤â¡¤¡Ö2·²¤ÎÊ¿¶ÑÃͤκ¹¤Î¿®Íê¶è´Ö¡×¤¬É¬ÍפʤΤǤ¹¡£¡Ö2·²¤ÎÊ¿¶ÑÃͤκ¹¤Î95%¿®Íê¶è´Ö¤¬0¤ò´Þ¤Þ¤Ê¤±¤ì¤Ð¡¤Í­°Õ¿å½à5%¤ÇÊ¿¶ÑÃͤ˺¹¤¬¤¢¤ë¡×¤«¤é¤Ç¤¹¡£¤³¤ì¤È¡¤¡ÖpÃͤ¬5%¤è¤ê¾®¤µ¤±¤ì¤Ð¡¤Í­°Õ¿å½à5%¤ÇÊ¿¶ÑÃͤ˺¹¤¬¤¢¤ë¡×¤È¤¤¤¦¤³¤È¤ÏƱ¤¸¤Ç¤¹¡£¤¿¤À¤·¡¤pÃͤ˴ð¤Å¤¯È½ÃÇ¤Ï all or none ¤Ç¤¢¤ë¤Î¤ËÂФ·¡¤¿®Íê¶è´Ö¤Ë´ð¤Å¤¯È½ÃÇ¤Ï all or none ¤È¤È¤â¤Ë¡¤¡Öº¹¤Ï¤É¤ì¤¯¤é¤¤¤ÎÈϰϤˤ¢¤ë¤«¡×¤È¤¤¤¦¾ðÊó¤ò»È¤¨¤Þ¤¹¡£
¾å¤Îɽ¤Î lcl, ucl ¤¬º¹¤Î¿®Íê¶è´Ö¤Ç¤¹¡£ ¡Öp < 0.05¡×¤È¡Ö¿®Íê¶è´Ö¤Ë 0 ¤¬´Þ¤Þ¤ì¤Ê¤¤¡×¤¬Âбþ¤·¤Æ¤¤¤ë¤Î¤¬¤ï¤«¤ê¤Þ¤¹¡£

¡Ö¤Ê¤¼¡¢·²´ÖÈæ³Ó¤Ït¸¡Äê¤ä½ç°Ìϸ¡Äê¤Ç¹Ô¤¤¡¢¿®Íê¶è´Ö¤Ç¹Ô¤ï¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©¡×¤ÎÌ䤤¤ËÂФ¹¤ëÅú¤¨¤Ï¡¤¡ÖÊ¿¶ÑÃͤκ¹¤Ï³Æ·²¤Î¿®Íê¶è´Ö¤«¤é¤Ïɾ²Á¤Ç¤­¤Ê¤¤¡×¤«¤é¤Ç¤¹¡£¡ÖÊ¿¶ÑÃͤκ¹¤Î¿®Íê¶è´Ö¤Ê¤éɾ²Á²Äǽ¤Ç¤¹¡£º¹¤¬Í­°Õ¤«¤É¤¦¤«¤Ï p Ãͤ«¤é¤âɾ²Á²Äǽ¤Ç¤¹¡£¡×


»þ·ÏÎó¡Ê¡©¡Ë¥Ç¡¼¥¿¤Î²òÀÏ
¡¡¡¡Åê¹Æ¼Ô¡§»ÒÍÓ 2021/02/27(Sat) 23:29 No. 23041
ÀÄÌÚÀèÀ¸¡¢³§ÍÍ

¹Ô¤­µÍ¤Þ¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£¤É¤¦¤«¡¢¤´¶µ¼ø¤ò¤ª´ê¤¤¤Ç¤­¤ì¤Ð½õ¤«¤ê¤Þ¤¹¡£
º¤¤Ã¤Æ¤¤¤ë¤³¤È¤Ï¡¢°Ê²¼¤Î¤³¤È¤Ç¤¹¡£

¤¢¤ë»ØÆ³¤ò¹Ô¤Ã¤¿·ë²Ì¡¢À¸Å̤ÎǽÎϤϸþ¾å¤·¤¿¤«¤òȽÄꤷ¤¿¤¤¡£

£±¡¡»ØÆ³¤Ï³µ¤Í°ìÄê´Ö³Ö¤ÇƱ¤¸ÊýË¡¤Ç¤Ê¤µ¤ì¤¿¡£
£²¡¡À¸Å̤ÎǽÎϤò¬Äꤹ¤ë¥Æ¥¹¥È¤Ï¤Ð¤é¤Ð¤é¤Ê´Ö³Ö¤Ç¼Â»Ü¤µ¤ì¤¿¡£
£³¡¡¥Æ¥¹¥È¤Î·ë²Ì¡¢¤¢¤ë¥Ü¡¼¥À¡¼¥é¥¤¥ó¤è¤ê¤â¹â¤¤ÆÀÅÀ¤¬ÆÀ¤é¤ì¤ì¤Ð¹ç³Ê¤È¤µ¤ì¤¿¡£
£´¡¡¥Æ¥¹¥È·ë²Ì¤Ï¡¢»þ´Ö¤Î·Ð²á½ç¤Ë¡¢¹ç³Ê¤«ÉÔ¹ç³Ê¤«¼¨¤¹¥Ç¡¼¥¿¤ÎÎó¤ÇÆÀ¤é¤ì¤¿¡£

¥Ç¡¼¥¿Îã¡¡¹ç³Ê¤ò1¡¢ÉÔ¹ç³Ê¤ò0¤È¤¹¤ë
»þ´Ö¤Î½ç¤Ë¡¢
0 0 0 0 1 0 0 1 1 1 1 0 0 1 0 0 1 0 0 1 0 1 1 1 0 1 0 0 1 0 ¡¡ 1 1 1 1

¤É¤Î¤è¤¦¤Ê¸¡Äê¤ò¹Ô¤Ã¤¿¤é¤è¤¤¤«¡£


¸¦µæ¥Ç¥¶¥¤¥ó
¡¡¡¡Åê¹Æ¼Ô¡§¤µ¤È¤· 2021/02/22(Mon) 20:53 No. 23035
¸¦µæ¥Ç¥¶¥¤¥ó¤Î¼ÁÌä
ÈóÎôÀ­»î¸³¤ò»ÈÍѤ·¤Æ¤Î¸¦µæ¥Ç¥¶¥¤¥ó¡ÊÈóÎôÀ­¥Þ¡¼¥¸¥ó¤ÎÃͤò¤É¤ÎÍͤËÀßÄꤹ¤ë¤«¡Ë
¡ØÍ­³²»ö¾Ý¤¬µ¯¤³¤ë¤«Èݤ«¤¬¡¢Î¥¾²³«»ÏÆü¿ô¤È¤Ï´Ø·¸¤¬¤Ê¤¤¡Ù»ö¤ò¾ÚÌÀ¤·¤¿¤¯¡¢ÈóÎôÀ­»î¸³¤ò»ÈÍѤ·¤Æ¸¦µæ¥Ç¥¶¥¤¥ó¤òÁȤ⤦¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£Í­³²»ö¾Ý¤¬µ¯¤³¤ë¤È¸À¤ï¤ì¤Æ¤¤¤ë¤Î¤Ï¡¢È¯¾ÉÆü¤«¤é14ÆüÌܤȸÀ¤ï¤ì¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢¤½¤Î¾ì¹ç¤Ï¡¢¥µ¥ó¥×¥ë¥µ¥¤¥ºÀßÄê¤ÎºÝ¤ÎÈóÎôÀ­¥Þ¡¼¥¸¥ó¤Ï¡¢14¤ËÀßÄꤷ¤ÆÎɤ¤¤Î¤Ç¤·¤ç¤¦¤«¡©¤ï¤«¤ê¤Ë¤¯¤¤ÀâÌÀ¤Ç¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
Í­³²»ö¾Ý¤¬µ¯¤³¤ë¤«Èݤ«¤¬¡¢Î¥¾²³«»ÏÆü¿ô¤È¤Ï´Ø·¸¤¬¤Ê¤¤¡Ù»ö¤ò¾ÚÌÀ¤·¤¿¤¯¡¢Æ±ÅùÀ­¤ò¼¨¤½¤¦¤È¤·¤Þ¤·¤¿¤¬¡¢¥µ¥ó¥×¥ë¥µ¥¤¥º¤¬ËÄÂç¤È¤Ê¤ê¤½¤¦¤Ê¤Î¤Ç¡¢ÈóÎôÀ­»î¸³¤ò¹Í¤¨¤Þ¤·¤¿¡£
¤É¤Î¤è¤¦¤Ê¸¦µæ¥Ç¥¶¥¤¥ó¤¬Îɤ¤¤Ç¤·¤ç¤¦¤«¡©

Re: ¸¦µæ¥Ç¥¶¥¤¥ó
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/02/24(Wed) 19:01 No. 23038
»ä¤Ë¤Ï¤ï¤«¤ê¤Þ¤»¤ó

Re: ¸¦µæ¥Ç¥¶¥¤¥ó
¡¡¡¡Åê¹Æ¼Ô¡§¤µ¤È¤· 2021/02/27(Sat) 16:48 No. 23040
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¤Þ¤¿¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£


¿Ê콸ÃÄÆ±»þʬÀϤˤª¤±¤ë°ø»ÒÊ¿¶Ñ¤ÎÈæ³Ó¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§WZ 2021/02/23(Tue) 23:13 No. 23036
ÀÄÌÚÀèÀ¸

¡¡Ê¿ÁǤè¤ê¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡¢WZ¤È¿½¤·¤Þ¤¹¡£

¡¡Â¿Ê콸ÃÄÆ±»þʬÀϤˤĤ¤¤Æ£²ÅÀ¤Û¤É¤´¶µ¼ø¤¤¤¿¤À¤±¤Þ¤¹¤È¹¬¤¤¤Ç¤¹¡£
¡¡¥¢¥ó¥±¡¼¥ÈÄ´ºº¤ò¼Â»Ü¤·¡¢£²·²´Ö¤Î¥â¥Ç¥ë¤ò¿Ê콸ÃÄÆ±»þʬÀϤÇÈæ³Ó¤·¤Æ¤ª¤ê¤Þ¤¹¡£
¡¡Ê£¿ô¤ÎÅùÃÍÀ©Ìó¥â¥Ç¥ë¤òŬ¹çÅÙ»ØÉ¸¤ÇÈæ³Ó¤·¡¢Ê¿¶Ñ¹½Â¤°Ê³°¤¬ÅùÃͤΥâ¥Ç¥ë¤¬ºÎÂò¤µ¤ì¤Þ¤·¤¿¡£¤½¤³¤Ç¡¢Â³¤­¤Þ¤·¤ÆÎ¾·²¤Ë¤ª¤±¤ë°ø»ÒÊ¿¶Ñ¤òÈæ³Ó¤·¤è¤¦¤È»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£

¡¡¼ÁÌä¤È¤·¤Þ¤·¤Æ¤Ï¡¢
¡¡­¡°ø»ÒÊ¿¶Ñ¤òÈæ³Ó¤¹¤ë¾ì¹ç¤Ï¡¢£²·²¤Ç¤¢¤ì¤ÐÊÒÊý¤Î°ø»ÒÊ¿¶Ñ¤ò¥¼¥í¤Ë¸ÇÄꤷ¤¿¤¦¤¨¤ÇÈæ³Ó¤¹¤ë¤È¤¤¤¦¤Î¤¬°ìÈÌŪ¤Î¤è¤¦¤Ê¤Î¤Ç¤¹¤¬¡ÊÎ㤨¤Ð¡¢¾®¿ù¡¦À¶¿å¡¤2014)¡¢¤Ê¤¼¥¼¥í¤Ë¸ÇÄꤹ¤ëɬÍפ¬¤¢¤ë¤Î¤«Ê¬¤«¤é¤Ê¤¤¤Ç¤¹¡£

¡¡­¢¤Þ¤¿¡¢R¤ÇʬÀϤ·¤Æ¤ª¤ê¤Þ¤¹¤¬¡¢lavaan¥Ñ¥Ã¥±¡¼¥¸¤Îlavpredict´Ø¿ô¤ò»È¤¨¤Ð¡¢ºÎÂò¤µ¤ì¤¿ÅùÃÍÀ©Ìó¥â¥Ç¥ë¤Î°ø»ÒÆÀÅÀ¤ò»»½Ð¤Ç¤­¤ë¤è¤¦¤Ê¤Î¤Ç¡¢»»½Ð¤·¤¿°ø»ÒÆÀÅÀ¤ò·²´Ö¤ÇÉáÄ̤ËÈæ³Ó¤¹¤ì¤Ð¤è¤¤¤â¤Î¤È»×¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¤½¤ì¤Ç¤Ï¥À¥á¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡£

¡¡¤´Â¿Ë»¤Î¤È¤³¤í¶²½Ì¤Ç¤¹¤¬¤´¶µ¼ø¤¤¤¿¤À¤±¤¿¤é¤È»×¤¤¤Þ¤¹¡£
¡¡

Re: ¿Ê콸ÃÄÆ±»þʬÀϤˤª¤±¤ë°ø»ÒÊ¿¶Ñ¤ÎÈæ³Ó¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/02/24(Wed) 19:00 No. 23037
»ä¤Ë¤Ï¤ï¤«¤ê¤Þ¤»¤ó

Re: ¿Ê콸ÃÄÆ±»þʬÀϤˤª¤±¤ë°ø»ÒÊ¿¶Ñ¤ÎÈæ³Ó¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§WZ 2021/02/24(Wed) 20:30 No. 23039
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¤Þ¤¿ÊÙ¶¯¤·¤Æ¤ß¤Þ¤¹¡£

º£¸å¤È¤â²¿Â´¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£


¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤Î»È¤¤Êý
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/02/02(Tue) 16:55 No. 23022
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

Ë衹¡¢¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

ºòÆü¡¢°ìºòÆü¤Ï¡¢
¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤È¥³¥µ¥¤¥óÎà»÷ÅÙ
ÅÀÁÐÎóÁê´Ø·¸¿ô¤Ë¤Ä¤¤¤Æ¡¢
ÂçÊѤˤ´ÃúÇ«¤Ë¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

º£²ó¤Ï¡¢¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤Î»È¤¤Êý¤Ë¤Ä¤¤¤Æ¡¢
¤´¶µ¼¨¤ò¤¤¤¿¤À¤±¤ì¤Ð¡¢ÂçÊѤ˽õ¤«¤ê¤Þ¤¹¡£
²¿Â´¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

---------------------------------------------------------------

ÀÄÌÚÀèÀ¸¤Î¥µ¥¤¥È¤ÇÊÙ¶¯¤·¤Æ¤¤¤Þ¤¹¡£
¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¹ÔÎó
http://aoki2.si.gunma-u.ac.jp/R/kendall.html
http://aoki2.si.gunma-u.ac.jp/lecture/Soukan/kendall.html

ʬÀϤǻȤ¦¥Ç¡¼¥¿¤Ï¡¢°Ê²¼¤Î£¹ÊÑ¿ô¤Ç¤¹¡£
(1)Èæ¼ÜÅÙ
¡¡¡¡¡¦¿ÈĹ ¡Ä numeric
¡¡¡¡¡¦ÂνŠ¡Ä numeric
¡¡¡¡¡¦·ì°µ ¡Ä integer
(2)½ç½ø¼ÜÅÙ ¡Ä factor
¡¡¡¡¡¦Êâ¹Ô¿ô¶èʬ
1.0¡Á1999
2.2000¡Á3999
3.4000¡Á5999
4.6000¡Á7999
5.8000¡Á9999
6.10000°Ê¾å
¡¡¡¡¡¦¥³¥ì¥¹¥Æ¥í¡¼¥ë
1.Àµ¾ï
2.Ãí°Õ
3.·Ù²ü
4.Í×¼£ÎÅ
5.´í¸±
(3)£²ÃÍ(0/1) ¡Ä integer
¡¡¡¡¡¦¸½ºß¤ÎµÊ±ì½¬´·(no/yes)
¡¡¡¡¡¦¸½ºß¤Î°û¼ò½¬´·(no/yes)
¡¡¡¡¡¦ÅüÇ¢ÉÂ(no/yes)

(2)½ç½ø¼ÜÅ٤ϡ¢integer¤ËÊÑ´¹¤·¤Æ¡¢1,2,3,,,,¤Ê¤É¤È¤·¤Æ°·¤¤¤Þ¤¹¡£

£¹ÊÑ¿ô¤ÏÎÌŪ¥Ç¡¼¥¿¤Ç¤¹¤Î¤Ç¡¢¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤Ç·×»»¤·¤Þ¤·¤¿¡£

¤³¤ÎÎãÂê¤Ç¡¢¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤ò»È¤Ã¤¿Êý¤¬¤è¤¤¾ìÌ̤¬¤¢¤ë¤È¤·¤¿¤é¡¢
¤É¤ÎÁȤ߹ç¤ï¤»¤Ç¤·¤ç¤¦¤«¡©

½ç½ø¼ÜÅÙ¡Á½ç½ø¼ÜÅÙ
½ç½ø¼ÜÅÙ¡Á£²ÃÍ(0/1)
¤Ç¤·¤ç¤¦¤«¡©

¤´¶µ¼¨¤ò¤¤¤¿¤À¤±¤Þ¤·¤¿¤é¡¢ÂçÊѤ˽õ¤«¤ê¤Þ¤¹¡£
²¿Â´¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£
//

Re: ¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤Î»È¤¤Êý
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/02/02(Tue) 22:15 No. 23023
ÆóÃÍÊÑ¿ô¤Ï̾µÁ¼ÜÅÙÊÑ¿ô¡¤½ç½ø¼ÜÅÙÊÑ¿ô¤Ç¤â¤¢¤ê¤Þ¤¹¤¬¡¤0/1 ¥Ç¡¼¥¿¤Ï¤â¤Ã¤È¤â¶¯ÎϤʴֳּÜÅ٤Ǥ¹¡£

½ç½ø¼ÜÅÙ2ÃÍÊÑ¿ô¤Ê¤é¡¤¼å¤¤Êý¤Ë°ú¤­¤Å¤é¤ì¤Æ½ç°ÌÁê´Ø·¸¿ô¡£

½ç½ø¼ÜÅÙvs.½ç½ø¼ÜÅ٤ʤé̵ͭ¤ò¸À¤ï¤µ¤º½ç°ÌÁê´Ø·¸¿ô¤Ç¤¹¡£¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤«¥¹¥Ô¥¢¥Þ¥ó¤Î½ç°ÌÁê´Ø·¸¿ô¤«¤È¤¤¤¦¤³¤È¤Ê¤é¡¤Í­°ÕÀ­¸¡Äê¤Ç¤Ï¤É¤Á¤é¤ò»È¤Ã¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£¿ôÃÍŪ¤Ê´Ø·¸À­¤¬¤¢¤ê¤Þ¤¹¡£

No.00814 ¤«¤é¤Î¥¹¥ì¥Ã¥É...

¥¹¥Ô¥¢¥Þ¥ó¤Î½ç°ÌÁê´Ø·¸¿ô¤ò¦Ñ¡¤¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤ò¦Ó¤È¤¹¤ë¤È¡¤¥µ¥ó¥×¥ë¥µ¥¤¥º¤¬Â礭¤¤¾ì¹ç¤Ë¤Ï ¦Ó¢â(2/3)¦Ñ ¤Î¶á»÷¤¬À®¤êΩ¤Ä¡£

Re: ¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤Î»È¤¤Êý
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/02/03(Wed) 08:52 No. 23024
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

Ë衹¡¢¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

º£²ó¤â¡¢Í­¤êÆñ¤¤¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

¤´¾Ò²ð¤¯¤À¤µ¤¤¤Þ¤·¤¿²áµî¥¹¥ì¥Ã¥É¤ÇÊÙ¶¯¤·¤Þ¤¹¡£

¤¤¤Ä¤â¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
//

Re: ¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤Î»È¤¤Êý
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/02/12(Fri) 10:18 No. 23032
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

²áÆü¤Ï¡¢¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤Î»È¤¤Êý¤Ë¤Ä¤¤¤Æ¡¢¤´ÃúÇ«¤Ë¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

> No.00814 ¤«¤é¤Î¥¹¥ì¥Ã¥É...

²áµî¥¹¥ì¥Ã¥É¤ÇÊÙ¶¯¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

> ¥¹¥Ô¥¢¥Þ¥ó¤Î½ç°ÌÁê´Ø·¸¿ô¤ò¦Ñ¡¤¥±¥ó¥É¡¼¥ë¤Î½ç°ÌÁê´Ø·¸¿ô¤ò¦Ó¤È¤¹¤ë¤È¡¤
> ¥µ¥ó¥×¥ë¥µ¥¤¥º¤¬Â礭¤¤¾ì¹ç¤Ë¤Ï ¦Ó¢â(2/3)¦Ñ ¤Î¶á»÷¤¬À®¤êΩ¤Ä¡£

¤³¤Î´Ø·¸¤Ë¤Ä¤¤¤Æ¶½Ì£¤¬¤¢¤ê¡¢°Ê²¼¤ÎËܤÇÊÙ¶¯¤·¤Þ¤·¤¿¡£

Áê´Ø·¸¿ô,À¶¿åË®É×,¶áÂå²Ê³Ø¼Ò

ÇØ·Ê¤Ë¤Ï¡¢¹âÅ٤ʿô³Ø¤¬¤¢¤ë¤³¤È¤¬Ê¬¤«¤ê¤Þ¤·¤¿¡£
¡ÊÆâÍÆ¤ÏÆñ¤·¤¯¤Æ¡¢¤Þ¤Ã¤¿¤¯Ê¬¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡Ä¡Ë

Áê´Ø·¸¿ô¤Ë¤Ä¤¤¤Æ¡¢ÂçÊѤËÎɤ¤ÊÙ¶¯¤Îµ¡²ñ¤ò¤¤¤¿¤À¤­¤Þ¤·¤¿¤³¤È¤Ë¡¢²þ¤á¤Æ¸æÎé¤ò¿½¤·¾å¤²¤Þ¤¹¡£
//


£Ò¡¡°ø»Ò¤Î¿å½à¤ÎÊѹ¹ÊýË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/02/06(Sat) 16:41 No. 23028
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

Ë衹¡¢¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

ÂçÊѤ˽éÊâŪ¤Ê¼ÁÌä¤Ç¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬¡¢°ø»Ò¤Î¿å½à¤ÎÊѹ¹ÊýË¡¤Ë¤Ä¤¤¤Æ¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
¿§¡¹¤ÈÄ´¤Ù¤Ê¤¬¤é¤ä¤Ã¤Æ¤¤¤Þ¤¹¤¬¡¢»ä¤Î´üÂÔ¤¹¤ë·ë²Ì¤¬ÆÀ¤é¤ì¤Þ¤»¤ó¤Ç¤·¤¿¡£
¡¡¡¡
---------------------------------------------
°ø»Ò·¿ÊÑ¿ô f ¤¬¤¢¤ê¤Þ¤¹¡£

> f
[1] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô
[10] ¿ä¾©¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô
[19] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô
[28] ¿ä¾©¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô
[37] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô
[46] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô
[55] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ÃæÎ©¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô
[64] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ÈãȽ¼Ô ¿ä¾©¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ÃæÎ©¼Ô
[73] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ÃæÎ©¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô
[82] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô
[91] ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ÈãȽ¼Ô ¿ä¾©¼Ô ¿ä¾©¼Ô ÈãȽ¼Ô ¿ä¾©¼Ô
[100] ¿ä¾©¼Ô
Levels: ¿ä¾©¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô

¿å½à¤Ï¡¢¥³¡¼¥É½ç¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
1¡¡¢Í¡¡¿ä¾©¼Ô
2¡¡¢Í¡¡ÃæÎ©¼Ô
3¡¡¢Í¡¡ÈãȽ¼Ô

ÆâÌõ¡Ê¿Í¿ô¡Ë¤Ï¡¢°Ê²¼¤Î¤È¤ª¤ê¤Ç¤¹¡£
> f
¿ä¾©¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô
87 10 3
¡¡¡¡¡¡
--------------------------------
¡¡¡¡¡¡
¸½ºß¡¢¥³¡¼¥É½ç¤ÎÂбþ¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
1¡¡¢Í¡¡¿ä¾©¼Ô
2¡¡¢Í¡¡ÃæÎ©¼Ô
3¡¡¢Í¡¡ÈãȽ¼Ô
¡¡¡¡¡¡
»ä¤¬¤ä¤ê¤¿¤¤¤³¤È¤Ï¡¢°Ê²¼¤ÎÂбþÉÕ¤±¤Ç¤¹¡£
¿ô»ú¤¬Â礭¤¯¤Ê¤ëÊý¸þ¤¬¡¢Îɤ¤¡¢¤È¤¤¤¦½ç½ø¤Ç¤¹¡£
1¡¡¢Í¡¡ÈãȽ¼Ô
2¡¡¢Í¡¡ÃæÎ©¼Ô
3¡¡¢Í¡¡¿ä¾©¼Ô

Ä´¤Ù¤Æ¸«¤Ä¤±¤¿°Ê²¼¤ÎÊýË¡¤Ç¤Ï¡¢»ä¤Î½ê˾¤¹¤ë·ë²Ì¤Ë¤Ï¤Ê¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£

levels(f) <- c("ÈãȽ¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô")

> f
[1] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô
[10] ÈãȽ¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô
[19] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô
[28] ÈãȽ¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô
[37] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô
[46] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô
[55] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÃæÎ©¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô ÈãȽ¼Ô
[64] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ¿ä¾©¼Ô ÈãȽ¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÃæÎ©¼Ô
[73] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÃæÎ©¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô ÈãȽ¼Ô
[82] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô
[91] ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ¿ä¾©¼Ô ÈãȽ¼Ô ÈãȽ¼Ô ¿ä¾©¼Ô ÈãȽ¼Ô
[100] ÈãȽ¼Ô
Levels: ÈãȽ¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô

¿å½à¤ÏÊѹ¹¤µ¤ì¤Þ¤·¤¿¤¬¡¢
º¤¤Ã¤¿¤³¤È¤Ë¡¢f¤ÎÆâÌõ¤ò¤ß¤ë¤È¡¢ÆâÌõ¤¬ÊѤï¤Ã¤Æ¤·¤Þ¤Ã¤Æ¤¤¤Þ¤¹¡£
> table(f)
f
ÈãȽ¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô
87 10 3

ÈãȽ¼Ô¤Î¿Í¿ô¤È¡¢¿ä¾©¼Ô¤Î¿Í¿ô¤¬Æþ¤ìÂØ¤ï¤Ã¤Æ¤¤¤Þ¤¹¡£

ÂбþÉÕ¤±¤òÊѹ¹¤·¤¿¤È¤·¤Æ¤â¡¢¿Í¿ô¤ÎÆâÌõ¤ÏÊѹ¹Á°¤ÈƱ¤¸¤Ç¤Ê¤¯¤Æ¤Ïº¤¤ê¤Þ¤¹¡£
¤Ä¤Þ¤ê¡¢°Ê²¼¤Ç¤¹¡£
> f
¿ä¾©¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô
87 10 3

½éÊâŪ¤Ê¤³¤È¤Ç¶²½Ì¤Ç¤¹¤¬¡¢¶ìθ¤·¤Æ¤ª¤ê¤Þ¤¹¡£
¤´¶µ¼¨¤ò¤¤¤¿¤À¤±¤Þ¤·¤¿¤é¡¢ÂçÊѤ˽õ¤«¤ê¤Þ¤¹¡£
¤ª¼ê¿ô¤ò¤ª¤«¤±¤¤¤¿¤·¤Þ¤¹¡£
//

Re: £Ò¡¡°ø»Ò¤Î¿å½à¤ÎÊѹ¹ÊýË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/02/06(Sat) 17:40 No. 23029
factor ´Ø¿ô¤Ç¼«Ê¬¤Î˾¤à½ç¤Ë levels ¤Ç»ØÄꤷ¤Æ factor ²½¤¹¤ì¤Ð¤è¤¤¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤¹¤«¡©
¤½¤ì¤¬´ðËܤÀ¤È»×¤¤¤Þ¤¹¤¬¡£

> f = c("¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "ÃæÎ©¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "ÈãȽ¼Ô", "¿ä¾©¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "ÃæÎ©¼Ô",
+ "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "ÃæÎ©¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "ÈãȽ¼Ô", "¿ä¾©¼Ô", "¿ä¾©¼Ô", "ÈãȽ¼Ô", "¿ä¾©¼Ô",
+ "¿ä¾©¼Ô")
>
> table(f)
f
¿ä¾©¼Ô ÃæÎ©¼Ô ÈãȽ¼Ô
87 10 3
>
> g = factor(f, levels=c("ÈãȽ¼Ô", "ÃæÎ©¼Ô", "¿ä¾©¼Ô"))
> levels(g)
[1] "ÈãȽ¼Ô" "ÃæÎ©¼Ô" "¿ä¾©¼Ô"
> table(g)
g
ÈãȽ¼Ô ÃæÎ©¼Ô ¿ä¾©¼Ô
3 10 87

####

¤¤¤Ä¤Ç¤â¤É¤³¤Ç¤â²¿Å٤Ǥ⡤factor ¤Ç»ØÄꤷ¤¿ level ½ç¤ËÊѹ¹¤Ç¤­¤Þ¤¹¤±¤É...
> x = c("aa", "bb", "cc", "dd")
> y = factor(x, level=c("bb", "dd", "aa", "cc"))
> levels(y)
[1] "bb" "dd" "aa" "cc"
> z = factor(y, level=c("dd", "cc", "bb", "aa"))
> levels(z)
[1] "dd" "cc" "bb" "aa"

Re: £Ò¡¡°ø»Ò¤Î¿å½à¤ÎÊѹ¹ÊýË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/02/06(Sat) 18:11 No. 23030
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

ÀÄÌÚÀèÀ¸¤«¤é¤´¶µ¼¨¤¤¤¿¤À¤¤¤¿ÊýË¡¤â»î¤·¤Þ¤·¤¿¤¬¡¢
¤½¤Î»þ¤Ë¤Ï¡¢table(f)¤Ç¿Í¿ô¤ÎÆâÌõ¤ò³Îǧ¤·¤¿¤éÊѤï¤Ã¤Æ¤·¤Þ¤Ã¤Æ¤¤¤¿¤Î¤Ç¡¢
¤³¤ì¤Ç¤Ï¥À¥á¤À¤È»×¤¤¹þ¤ó¤Ç¡¢Äü¤á¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

º£»×¤¨¤Ð¡¢»ä¤Î¥ß¥¹¤À¤Ã¤¿¤³¤È¤¬Ê¬¤«¤ê¤Þ¤·¤¿¡£

ÂçÊѤʤ´ÌÂÏǤò¤ª¤«¤±¤·¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£
¿¼¤¯¤ªÏͤӿ½¤·¾å¤²¤Þ¤¹¡£
//


¥¢¥ë¥Õ¥¡·¸¿ô
¡¡¡¡Åê¹Æ¼Ô¡§»°±Û 2021/02/05(Fri) 18:57 No. 23025
¤´¶µ¼¨¤¯¤À¤µ¤¤¡£
´ðËÜŪ¤Ê¼ÁÌä¤Ê¤Î¤Ç¤¹¤¬¡¢Ê£¿ô¤Çɾ²Á¤·¤¿ºÝ¤ÎÆâŪÀ°¹çÀ­¤¬¹â¤¤¤³¤È¤Ïɾ²Á¼Ô´Ö¿®ÍêÀ­·¸¿ô¤¬¹â¤¤¤³¤È¤ò°ÕÌ£¤¹¤ë¤È¸À¤Ã¤ÆÌäÂꤢ¤ê¤Þ¤»¤ó¤«¡©

Re: ¥¢¥ë¥Õ¥¡·¸¿ô
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/02/05(Fri) 23:19 No. 23026
ÆâŪÀ°¹çÀ­¤Èɾ²Á¼Ô´Ö¿®ÍêÀ­·¸¿ô¤Ï²¿¤Ç¬Äꤷ¤Æ¤¤¤Þ¤¹¤«¡©
¥·¥ß¥å¥ì¡¼¥·¥ç¥ó¤Çξ¼Ô¤ÎÁê´Ø¤ò¸«¤ì¤Ð¤è¤¤¤«¤â¡£

Re: ¥¢¥ë¥Õ¥¡·¸¿ô
¡¡¡¡Åê¹Æ¼Ô¡§»°±Û 2021/02/06(Sat) 07:23 No. 23027
ÀÄÌÚÀèÀ¸

¤ªÊÖ»ö¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£¤³¤ì¤Ï¤¢¤ëººÆÉ»þ¤Ëµ¤¤Ë¤Ê¤Ã¤¿¤³¤È¤Ç¤¹¡£¥¯¥í¥ó¥Ð¥Ã¥¯¤Î¥¢¥ë¥Õ¥¡¤ò»ý¤Ã¤ÆÉ¾²Á¼Ô´Ö¿®ÍêÀ­¤òµÄÏÀ¤·¤Æ¤¤¤Þ¤·¤¿¤Î¤Ç¡£


¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤È¥³¥µ¥¤¥óÎà»÷ÅÙ
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/02/01(Mon) 11:16 No. 23019
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

Ë衹¡¢¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
²þ¤á¤Æ¸æÎé¤ò¿½¤·¾å¤²¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

½éÊâŪ¤Ê¼ÁÌä¤ÇÂçÊѤ˶²½Ì¤·¤Æ¤¤¤Þ¤¹¤¬¡¢¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
²¿Â´¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

---------------------------------------------------------------

µ­»öNo.23016
Ϣ³ÊÑ¿ô¤È¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¡¿¥À¥ß¡¼ÊÑ¿ô¤¬º®ºß¤·¤¿¾ì¹ç¤ÎÁê´Ø·¸¿ô
¤Ç¡¢
ÅÀÁÐÎóÁê´Ø·¸¿ô¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

¤³¤ì¤ò·Àµ¡¤Ë¡¢º£¤Þ¤Ç¹Í¤¨¤¿¤³¤È¤¬¤Ê¤«¤Ã¤¿¡¢
Îà»÷ÅÙ¡ÊÁê´Ø¡Ë¡¢ÈóÎà»÷Å١ʵ÷Î¥¡Ë¤Ë¤Ä¤¤¤ÆÄ´¤Ù¤Ê¤¬¤é¡¢£Ò¤ÇÄɻ¤Æ¤¤¤Þ¤¹¡£

ÂçÊѤ˽éÊâŪ¤Ê¼ÁÌä¤Ç¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£

Ϣ³Î̤«¤é¤Ê¤ë¥Ç¡¼¥¿¥Õ¥ì¡¼¥à¤Ç¤Ï¡¢¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤Ç·×»»¤·¤Þ¤¹¡£

Îà»÷ÅÙ¤ò¬¤ë¤â¤Î¤È¤·¤Æ¡¢¥³¥µ¥¤¥óÎà»÷ÅÙ¤¬¤¢¤ê¤Þ¤¹¡£

¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤Ç¤Ï¤Ê¤¯¡¢¥³¥µ¥¤¥óÎà»÷Å٤Ƿ׻»¤¹¤ë¤È¡¢²¿¤«ÌäÂ꤬¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

ʬ¤«¤ê¤Þ¤»¤ó¤Î¤Ç¡¢¤´¶µ¼¨¤ò¤¤¤¿¤À¤±¤Þ¤·¤¿¤é½õ¤«¤ê¤Þ¤¹¡£

¤ª¼ê¿ô¤ò¤ª¤«¤±¤·¤Þ¤¹¡£
//

Re: ¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤È¥³¥µ¥¤¥óÎà»÷ÅÙ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/02/01(Mon) 15:15 No. 23020
¥³¥µ¥¤¥óÎà»÷ÅÙ¤Ï
R ¤Ç½ñ¤¯¤È
COS = function(a, b) sum(a * b) / sqrt(sum(a ^ 2)) / sqrt(sum(b ^ 2))
¤Ç¤¹¤Í¡£
Áê´Ø·¸¿ô¤Ï¡¤COS ¤ò»È¤Ã¤Æ½ñ¤¯¤È¡¤
COR = function(a, b) COS(a-mean(a), b-mean(b))
¤Ë¤Ê¤ê¤Þ¤¹¡£

°Ê²¼¤Ç¸¡»»
> a = c(1, 3, 2, 4, 5, 2, 3, 4, 5, 6)
> b = c(2, 1, 2, 3, 5, 4, 3, 3, 3, 4)
> COS(a, b) # ¥³¥µ¥¤¥óÎà»÷ÅÙ
[1] 0.937391
> COR(a, b) # Áê´Ø·¸¿ô
[1] 0.5477226
> cor(a, b) # Áê´Ø·¸¿ô¡Ê¤¤¤Ä¤â»È¤Ã¤Æ¤¤¤ë´Ø¿ô¡Ë
[1] 0.5477226

¥³¥µ¥¤¥óÎà»÷ÅÙ¤ÏÁê´Ø·¸¿ô¤è¤êÂ礭¤á¤Ë½Ð¤Æ¤¤¤Þ¤¹¤Í¡£
Â礶¤Ã¤Ñ¤ËÀâÌÀ¤¹¤ë¤È¡¤¥³¥µ¥¤¥óÎà»÷Å٤ϸ¶ÅÀ¤«¤é¤Îµ÷Î¥¡¤Áê´Ø·¸¿ô¤ÏÊ¿¶ÑÃͤ«¤é¤Îµ÷Î¥¤Ë´ð¤Å¤¯¤ï¤±¤Ç¡¤
> sum(a*b)
[1] 114
> sqrt(sum(a ^ 2))
[1] 12.04159
> sqrt(sum(b^2))
[1] 10.0995

> sum((a-mean(a))*(b-mean(b)))
[1] 9
> sqrt(sum((a-mean(a)) ^ 2))
[1] 4.743416
> sqrt(sum((b-mean(b)) ^ 2))
[1] 3.464102

¤Î¤è¤¦¤Ë¡¤Á°¼Ô¤ÎÊý¤¬Â礭¤¤¤Î¤Ç¤¹¡£

¤½¤ì¤Ç¡¤
> 114/12.04159/10.0995
[1] 0.9373918
> 9/4.743416/3.464102
[1] 0.5477226
¤Î°ã¤¤¤Ë¤Ê¤ë¤Î¤Ç¤¹¡£
¤³¤ÎÎã¤À¤±¤À¤È¡¤¤Õ¡¼¤ó¤È»×¤¦¤À¤±¤«¤âÃΤì¤Þ¤»¤ó¤¬¡¤

COS = function(a, b) sum(a * b) / sqrt(sum(a ^ 2)) / sqrt(sum(b ^ 2))
COR = function(a, b) COS(a-mean(a), b-mean(b))
sim = function(trial = 500, n = 10, mean = 50, sd = 10) {
res_cos = numeric(trial)
res_cor = numeric(trial)
for (i in 1:trial) {
a = rnorm(n, mean, sd)
b = rnorm(n, mean, sd)
res_cos[i] = COS(a, b)
res_cor[i] = cor(a, b)
}
plot(res_cos, res_cor)
legend("topleft", legend=sprintf("mean = %d", mean))
}
layout(matrix(1:4, 2))
par(mgp=c(1.8, 0.8, 0), mar=c(3, 3, 1, 1))
sim(mean=0, sd=10)
sim(mean=10, sd=10)
sim(mean=50, sd=10)
sim(mean=100, sd=10)
layout(1)

¤Î¤è¤¦¤Ê¥×¥í¥°¥é¥à¤ò½ñ¤¤¤Æ¥·¥ß¥å¥ì¡¼¥·¥ç¥ó¤·¤Æ¤ß¤ë¤È¤Á¤ç¤Ã¤È¶Ã¤¯¤Ç¤·¤ç¤¦¡£

Ê¿¶ÑÃͤ¬Â礭¤¯¤Ê¤ë¤Ë¤Ä¤ì¡Ê¤Ä¤Þ¤ê¡¤¥Ç¡¼¥¿¤Î¤Þ¤È¤Þ¤ê¤¬¸¶ÅÀ¤«¤é±ó¤¯¤Ë¤¢¤ë¤Û¤É¡Ë¥³¥µ¥¤¥óÎà»÷ÅÙ¤ÏÂ礭¤¯¤Ê¤ê¤Þ¤¹¡ÊÅöÁ³¤Ç¤¹¤¬¡¤Áê´Ø·¸¿ô¤Ï¤½¤ó¤Ê¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡Ë¡£

¤Þ¤¿¡¤°ìÈÌŪ¤Ë¤Ï¡¤¥³¥µ¥¤¥óÎà»÷ÅÙ¤ÏÂоݴ֤ÎÎà»÷ÅÙ¤òɽ¤¹¤¿¤á¤Ë»È¤ï¤ì¤ë¤³¤È¤¬Â¿¤¤¤È»×¤¤¤Þ¤¹¡£


Very Special Thanks!!¡ÊRe: ¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤È¥³¥µ¥¤¥óÎà»÷ÅÙ¡Ë
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/02/01(Mon) 17:03 No. 23021
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

ÂçÊѤˤ´ÃúÇ«¤Ë¤´¶µ¼¨¤·¤Æ¤¯¤À¤µ¤ê¡¢¤È¤Æ¤â¤è¤¯Ê¬¤«¤ê¤Þ¤·¤¿¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

ÀÄÌÚÀèÀ¸¤Ë¤ªÊ¹¤­¤¹¤ëÁ°¤Ë¡¢GoogleÀèÀ¸¤Ë¤ªÊ¹¤­¤·¤Þ¤·¤¿¤é¡¢
´ö¤Ä¤«¡¢¤³¤ÎÏÃÂê¤Ë´Ø¤¹¤ë¥µ¥¤¥È¤¬¸«¤Ä¤«¤ê¤Þ¤·¤¿¤¬¡¢
ǼÆÀ´¶¤¬¤Ê¤¯¡¢Íý²ò¤Ç¤­¤Þ¤»¤ó¤Ç¤·¤¿¡£

ͦµ¤¤ò¿¶¤ê¹Ê¤Ã¤Æ¡¢ÀÄÌÚÀèÀ¸¤Ë¤ªÊ¹¤­¤·¤Æ¤è¤«¤Ã¤¿¤Ç¤¹¡£
ǼÆÀ¤Ç¤­¡¢¤è¤¯Íý²ò¤Ç¤­¤Þ¤·¤¿¡£
//


Ϣ³ÊÑ¿ô¤È¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¡¿¥À¥ß¡¼ÊÑ¿ô¤¬º®ºß¤·¤¿¾ì¹ç¤ÎÁê´Ø·¸¿ô
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/01/23(Sat) 16:35 No. 23016
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

Ë衹¡¢¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
²þ¤á¤Æ¸æÎé¤ò¿½¤·¾å¤²¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

½éÊâŪ¤Ê¼ÁÌä¤ÇÂçÊѤ˶²½Ì¤·¤Æ¤¤¤Þ¤¹¤¬¡¢¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
²¿Â´¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

---------------------------------------------------------------

»È¤¦¥Ç¡¼¥¿¤Ï¡¢°Ê²¼¤Ç¤¹¡£
Ϣ³ÊÑ¿ô¤È¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¤¬º®ºß¤·¤Æ¤¤¤Þ¤¹¡£

> str(dat)
'data.frame': 1000 obs. of 9 variables:
$ À­ÊÌ : Factor w/ 2 levels "½÷À­","ÃËÀ­": 1 2 2 1 1 2 1 1 1 1 ...
$ ¿ÈĹ : num 160 174 163 155 150 ...
$ ÂνŠ: num 55.2 59.9 60.3 54.2 45.7 60.8 42.2 34.8 37.7 55.3 ...
$ ·ì°µ : int 96 124 115 104 143 132 105 123 118 123 ...
$ Êâ¹Ô¿ô¶èʬ : Factor w/ 6 levels "1.0¡Á1999","2.2000¡Á3999",..: 1 6 4 6 2 2 4 2 4 6 ...
$ ¥³¥ì¥¹¥Æ¥í¡¼¥ë: Factor w/ 5 levels "1.Àµ¾ï","2.Ãí°Õ",..: 2 2 1 1 1 1 1 1 1 1 ...
$ ¸½ºß¤ÎµÊ±ì½¬´·: Factor w/ 2 levels "no","yes": 2 2 2 2 2 2 2 2 1 2 ...
$ ¸½ºß¤Î°û¼ò½¬´·: Factor w/ 2 levels "no","yes": 2 2 2 2 2 2 1 2 2 2 ...
$ ÅüǢɠ: Factor w/ 2 levels "no","yes": 1 2 1 1 2 2 1 1 1 1 ...

(1)
Ϣ³ÊÑ¿ô¤È¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¤¬º®ºß¤·¤Æ¤¤¤Þ¤¹¡£

¼ÜÅÙ¿å½à¤Ï°Û¤Ê¤ê¤Þ¤¹¤¬¡¢¤³¤Î¤Þ¤ÞÁê´Ø·¸¿ô¤Ï»»½Ð¤Ç¤­¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

Î㤨¤Ð¡¢
Ϣ³ÊÑ¿ô¤É¤¦¤·¤Ï¡¢¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¡¢
¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¤É¤¦¤·¤Ï¡¢¥¯¥é¡¼¥á¥ë¤ÎÏ¢´Ø·¸¿ô¡¢
Ϣ³ÊÑ¿ô¡Á¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¤Ï¡¢Áê´ØÈæ¡¢
¤Ê¤É¤Î¤è¤¦¤Ë¡¢¼ÜÅÙ¿å½à¤ÎÁȤ߹ç¤ï¤»¤Ç¸ÄÊ̤˷׻»¤Ï¤Ç¤­¤Þ¤¹¤¬¡¢
Á´ÂΤȤ·¤Æ¡¢ÆÀ¤é¤ì¤¿Áê´Ø·¸¿ô¤ÎÂ礭¤µ¤òÈæ³Ó¤¹¤ë¤³¤È¤¬¤Ç¤­¤Ê¤¯¤Ê¤ë¤è¤¦¤Ë»×¤¨¤Þ¤¹¤Î¤Ç¡¢
¤³¤ÎÊýË¡¤Ï»È¤¨¤Ê¤¤¤È¹Í¤¨¤Þ¤·¤¿¡£

(2)
¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¤ò¥À¥ß¡¼ÊÑ¿ô²½¡Ê0/1¤Î2ÃͲ½¡Ë¤·¤Æ¡¢¿å½à¤´¤È¤Ë²£Å¸³«¤·¤Þ¤¹¡£
¤½¤Î·ë²Ì¡¢¾åµ­¥Ç¡¼¥¿¤ÏϢ³ÊÑ¿ô¤ÈÎ¥»¶ÊÑ¿ô¡Ê0/1¡Ë¤Ë¤Ê¤ê¤Þ¤¹¡£

¥Ç¡¼¥¿¤Î·¿¤Ï¡¢Ï¢Â³ÊÑ¿ô¡Ênumeric¡Ë¡¢Î¥»¶ÊÑ¿ô¡Êinteger¡Ë¤Ç¤¢¤ê¡¢
¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤Ç·×»»¤Ï¤Ç¤­¤Þ¤¹¤¬¡¢
Ϣ³ÊÑ¿ô¤È¥À¥ß¡¼ÊÑ¿ô¤¬º®ºß¤·¤Æ¤¤¤ë¾ì¹ç¤Ë¡¢·×»»¤·¤Æ¤â¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£

¤â¤·¡¢¥Ô¥¢¥½¥ó¤ÎÁê´Ø·¸¿ô¤Ç·×»»¤Ç¤­¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢¤É¤Î¤è¤¦¤Ê·×»»¤ò¤¹¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤«¡©

½éÊâŪ¤Ê¼ÁÌä¤Ç¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£
¤´¶µ¼¨¤ò¤¤¤¿¤À¤±¤Þ¤·¤¿¤éÂçÊѤ˽õ¤«¤ê¤Þ¤¹¡£

¼ºÎ餤¤¿¤·¤Þ¤¹¡£
//

Re: Ϣ³ÊÑ¿ô¤È¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¡¿¥À¥ß¡¼ÊÑ¿ô¤¬º®ºß¤·¤¿¾ì¹ç¤ÎÁê´Ø·¸¿ô
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/01/23(Sat) 22:06 No. 23017
µó¤²¤é¤ì¤Æ¤¤¤ë¥Ç¡¼¥¿¥»¥Ã¥È¤Ï¡¤¥«¥Æ¥´¥ê¡¼¥Ç¡¼¥¿¤ÏÁ´¤Æ½ç½ø¤¬ÉÕ¤¤¤Æ¤¤¤ë¤Î¤Ç¡ÊÆóÃͥǡ¼¥¿¡¤À­Ê̤â´Þ¤á¤Æ¡£¥³¥ì¥¹¥Æ¥í¡¼¥ë¤ÏFactor w/ 5 levels ¤È¤¢¤ê¤Þ¤¹¤¬ 1,2 ¤·¤«¸«¤¨¤Æ¤¤¤Ê¤¤»Ä¤ê¤Ï½ç½øÍ­¤ê¡©¡Ë´Ö³Ö¼ÜÅ٤ȶ¦Â¸¤Ç¤­¤ë¡¤½ç°ÌÁê´Ø·¸¿ô¤ò»È¤¨¤ÐÌäÂê¤Ê¤¤¤Ç¤·¤ç¤¦¡£¥¹¥Ô¥¢¥Þ¥ó¤Ç¤â¥±¥ó¥É¡¼¥ë¤Ç¤â¤ª¹¥¤­¤ÊÊý¡£

¤Ê¤ª¡¤2Ãͥǡ¼¥¿¤Ï´Ö³Ö¼ÜÅ٤Ǥ⤢¤ê¤Þ¤¹¤Î¤Ç¡¤2Ãͥǡ¼¥¿Æ±»Î¤Î¥Õ¥¡¥¤Áê´Ø·¸¿ô¤Ï¥Ô¥¢¥½¥ó¤ÎÀÑΨÁê´Ø·¸¿ô¤ÎÀäÂÐÃͤò¼è¤Ã¤¿¤â¤Î¤È°ìÃפ·¤Þ¤¹¡£
¤Þ¤¿¡¤2Ãͥǡ¼¥¿¤ÈϢ³ÊÑ¿ô¤ÎÅÀÁÐÎóÁê´Ø·¸¿ô¤âƱ¤¸¹Í¤¨Êý¤Ç¡¤¥Ô¥¢¥½¥ó¤ÎÀÑΨÁê´Ø·¸¿ô¤ÎÀäÂÐÃͤò¤È¤Ã¤¿¤â¤Î¤ÈƱ¤¸¤Ç¤¹¡£¤Ê¤Î¤Ç¡¤ÆóÃͥǡ¼¥¿¤È´Ö³Ö¼ÜÅÙÊÑ¿ô¤À¤±¤Î¾ì¹ç¤Ï¥Ô¥¢¥½¥ó¤ÎÀÑΨÁê´Ø·¸¿ô¤Ç¤¤¤¤¤Ç¤¹¤Í¡£
¦Õ·¸¿ô¤ÈÅÀÁÐÎóÁê´Ø·¸¿ô¤ÎÉ乿¤Ï¡¤·ë²Ì¤Î²ò¼á¤Î»þÅÀ¤Ç¹Íθ¤¹¤ì¤Ð¤è¤¤¤Î¤Ç¥Ç¡¼¥¿Ê¬ÀÏÃʳ¬¤Ç¤Ï¹Íθ¤·¤Ê¤¤¤ÇÎɤ¤¤Ç¤¹¡£

No. 22325 ¤«¤é¤Î¥¹¥ì¥Ã¥É¤âÆÉ¤ó¤Ç¤ß¤Æ¤¯¤À¤µ¤¤¡£

¸æÎé¡ÊRe: Ϣ³ÊÑ¿ô¤È¥«¥Æ¥´¥ê¥«¥ëÊÑ¿ô¡¿¥À¥ß¡¼ÊÑ¿ô¤¬º®ºß¤·¤¿¾ì¹ç¤ÎÁê´Ø·¸¿ô¡Ë
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2021/01/24(Sun) 09:22 No. 23018
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£

Ë衹¡¢¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
º£²ó¤âÍ­¤êÆñ¤¤¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

¤Þ¤µ¤Ë¡¢ÃΤꤿ¤¤¤³¤È¤ò¥º¥Ð¥ê¤È¶µ¤¨¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

ÀÄÌÚÀèÀ¸¤Ë¤ªÊ¹¤­¤¹¤ëÁ°¤Ë¡¢»ä¤ÎÄ´¤Ù¤é¤ì¤ëÈϰϤÇÄ´¤Ù¤¿¤Î¤Ç¤¹¤¬¡¢Ê¬¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£

¤´¾Ò²ð¤¯¤À¤µ¤¤¤Þ¤·¤¿²áµî¤ÎÅê¹Æ¤ò¡¢¤³¤ì¤«¤éÄ´¤Ù¤ÆÄɻ¤¿¤·¤Þ¤¹¡£

---------------------------

;Ã̤Ǥ¹¤¬¡¢»ä¤Ï¡¢ÅüǢɤǤ¹¤Î¤Ç¡¢¤³¤Î¥Ç¡¼¥¿¤ò²¿¤È¤«Ê¬ÀϤ·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£

µ¡³£³Ø½¬¤Îxgboost,LightGBM,ranger,¿¼Áسؽ¬¤Ê¤É¤Ê¤É¡¢¿§¡¹¤È¤ä¤Ã¤Æ¤ß¤Þ¤·¤¿¤¬¡¢
ÆóÃÍʬÎà¤Ç¤­¤Æ¤â¡¢ÅüǢɤǤ¢¤ë»ä¤Ë¤Ï¡¢·ë²Ì¤ËǼÆÀ´¶¤¬¤¢¤ê¤Þ¤»¤ó¡£

¥¬¥é¥¬¥é¥Ý¥ó¤Ç¤Ï¤¤¤±¤Ê¤¤¤È»×¤¤¡¢
¥Ç¡¼¥¿¤ÎÁê´Ø´Ø·¸¤«¤é¤­¤Á¤ó¤È³Îǧ¤·¤¿¤¤¤È»×¤¤¤Þ¤·¤¿¡£
¤³¤ì¤¬¡¢¤½¤â¤½¤â¤Îưµ¡¤Ç¤¹¡£

¸æÎé¤ò¿½¤·¾å¤²¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
//


¥¯¥é¥¹¥¿¡¼Ê¬ÀϤÎÊýË¡¤¬Àµ¤·¤¤¤«¤É¤¦¤«¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
¡¡¡¡Åê¹Æ¼Ô¡§Á°ÅÄΤ»Ò 2021/01/16(Sat) 20:58 No. 23013
¥¯¥é¥¹¥¿¡¼Ê¬ÀϤÎÊýË¡¤¬Àµ¤·¤¤¤«¤É¤¦¤«¡¢¼«¿®¤¬¤¢¤ê¤Þ¤»¤ó¡£
¥¢¥É¥Ð¥¤¥¹¤ò¤¤¤¿¤À¤±¤ì¤Ð¡¢Í­Æñ¤¤¤Ç¤¹¡£

α³ØÀ¸¤ËÆüËܸì¤Î¿µÁ¸ì¤Î¸ìµÁ¡ÊÎ㤨¤Ð¡Ö¤¹¤ß¤Þ¤»¤ó¡×¤Î¸ìµÁ¡Ö¤¢¤ê¤¬¤È¤¦¡×,¡Ö¤´¤á¤ó¤Ê¤µ¤¤¡×,¡Ö¼ºÎ餷¤Þ¤¹¡×,¡ÖÃíʸ¤ª´ê¤¤¤·¤Þ¤¹¡×, ¡Ö¤ª¼ÙË⤷¤Þ¤¹¡×¡Ë¤Ë¤Ä¤¤¤Æ¡¢¤É¤ì¤¯¤é¤¤ÆëÀ÷¤ß¤¬¤¢¤ë¤«¡¢ÆëÀ÷¤ß¤ÎÄøÅÙ¤ò²Ä»ë²½¤¹¤ë¤¿¤á¤Ë¡¢¤½¤ì¤¾¤ì¤Î¸ìµÁ¤Ë¤¿¤¤¤·¤Æ¡Ö¤È¤Æ¤âÆëÀ÷¤ß¤¬¤¢¤ë¡×¡á7¡¤¡ÖÁ´¤¯ÆëÀ÷¤ß¤¬¤Ê¤¤¡×¡á1¤Î7·ïË¡¤Ç²óÅú¤ò¤·¤Æ¤â¤é¤¤¡¢¤½¤Î·ë²Ì¤ò¡¢¥¯¥é¥¹¥¿Ê¬ÀϤò»È¤Ã¤Æ¤ä¤Ã¤Æ¤ß¤ë¤³¤È¤Ë¤·¤Þ¤·¤¿¡£
¥¨¥¯¥»¥ë¤Ç°Ê²¼¤Î¤è¤¦¤Êɽ¤òºî¤ê¤Þ¤·¤¿¡Ê¿ôÃͤϿͿô¤Ç¡¢²Í¶õ¤Î¿ôÃͤǤ¹¡Ë

¡¡¡¡¡¡ÆëÀ÷¤ß¤¬¤¢¤ë(7) ¤ä¤äÆëÀ÷¤ß¤¬¤¢¤ë¡Ê6¡Ë......... Á´¤¯ÆëÀ÷¤ß¤¬¤Ê¤¤¡Ê1¡Ë
¸ìµÁA¡¡¡¡¡¡80¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡10¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡1
¸ìµÁB¡¡¡¡¡¡50¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡30¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡5
¸ìµÁC¡¡¡¡¡¡20¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡40¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡30
¸ìµÁD¡¡¡¡¡¡20¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡45¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡35
¸ìµÁE¡¡¡¡¡¡10¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡20¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡50

¤È¤·¡¢¤½¤ì¤¾¤ì²óÅú¤µ¤ì¤¿¿Í¿ô¤òÆþÎϤ·¤Þ¤·¤¿¡£¤·¤«¤·¡¢¤³¤ì¤Ç¤Ï½¾Â°ÊÑ¿ô¤¬ÆÈΩ¤·¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¢¤ª¤«¤·¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¡£¤É¤Î¤è¤¦¤Ë¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡©
¥¯¥é¥¹¥¿Ê¬ÀϤȤ¤¤¦ÊýË¡¼«ÂΤ¬¡¢ÌÜŪ¤Ë¹ç¤Ã¤Æ¤¤¤Ê¤¤¤Î¤«¤â¤·¤ì¤Þ¤»¤ó¡£

¤É¤Î¤è¤¦¤ÊʬÀÏË¡¤ò»È¤Ã¤¿¤é¤è¤¤¤Î¤«¥¢¥É¥Ð¥¤¥¹¤ò¤ª´ê¤¤¤Ç¤­¤ì¤ÐÍ­Æñ¤¤¤Ç¤¹¡£¥ì¥Ù¥ë¤ÎÄ㤤¼ÁÌä¤Ç¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£Ê¬ÀϤϽ鿴¼Ô¤Ç¡¢¤Ç¤â¤³¤ì¤«¤éÊÙ¶¯¤·¤Æ¤¤¤­¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
²¿Â´¤è¤í¤·¤¯¤ª´ê¤¤¿½¤·¾å¤²¤Þ¤¹¡£

Re: ¥¯¥é¥¹¥¿¡¼Ê¬ÀϤÎÊýË¡¤¬Àµ¤·¤¤¤«¤É¤¦¤«¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/01/17(Sun) 21:10 No. 23014
À¸¤Î¥Ç¡¼¥¿¤ò»È¤Ã¤Æ¡¤ÊÑ¿ô´Ö¤Î¥¯¥é¥¹¥¿¡¼Ê¬ÀÏ
http://aoki2.si.gunma-u.ac.jp/lecture/misc/clustan.html
¤ò»È¤¦¤È¤¤¤¦¤Î¤Ï¤É¤¦¤À¤í¤¦¤«¡©

¡¡¡¡¡¡¡¡¡¡¸ìµÁA¡¡¡¡¡¡¡¡¸ìµÁB¡¡¡¡¡¡¡¡¸ìµÁC ...
α³ØÀ¸1 ÆëÀ÷¤ß¤¬¤¢¤ë¡¡ÆëÀ÷¤ß¤¬¤Ê¤¤¡¡Á´¤¯ÆëÀ÷¤ß¤¬¤Ê¤¤ ...
α³ØÀ¸2¡¡ÆëÀ÷¤ß¤¬¤Ê¤¤¡¡ÆëÀ÷¤ß¤¬¤¢¤ë¡¡ÆëÀ÷¤ß¤¬¤¢¤ë ...
¡¡¡¡¡§
α³ØÀ¸n

¥¯¥é¥¹¥¿¡¼Ê¬ÀϤϡ¤¡Öʸ³ØÅª¡×¤ÊʬÀϼêË¡¤Ê¤Î¤Ç¡¤¼«Ê¬¤ÎÃΤꤿ¤¤¤³¤È¤¬ÆÀ¤é¤ì¤ì¤Ð¡¤¤É¤ó¤ÊÉ÷¤Ë¥Ç¡¼¥¿¤ò»È¤Ã¤Æ¤â¤¤¤¤¤è¤¦¤Ë»×¤¦¡£

Re: ¥¯¥é¥¹¥¿¡¼Ê¬ÀϤÎÊýË¡¤¬Àµ¤·¤¤¤«¤É¤¦¤«¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
¡¡¡¡Åê¹Æ¼Ô¡§Á°ÅÄΤ»Ò 2021/01/18(Mon) 09:43 No. 23015
ÀÄÌÚÀèÀ¸

¤ª¤Ï¤è¤¦¤´¤¶¤¤¤Þ¤¹¡£
¥¢¥É¥Ð¥¤¥¹¤¯¤À¤µ¤ê¡¢Í­¤êÆñ¤¦¤´¤¶¤¤¤Þ¤¹¡£
¥¯¥é¥¹¥¿¡¼Ê¬ÀϤò»È¤Ã¤Æ¤â¤è¤¤¡¢¤È¤¤¤¦¤ª¸ÀÍÕ¤ò夭¡¢¤Û¤Ã¤È¤·¤Þ¤·¤¿¡£

¤·¤«¤·¤Ê¤¬¤é¡¢»ä¤Ï¼«Ê¬¤¬¡¢ÊÑ¿ô¤Î°·¤¤¤¬Á´¤¯Ê¬¤«¤Ã¤Æ¤¤¤Ê¤¤¤³¤È¤òºÆÇ§¼±¤·¤Þ¤·¤¿¡£
ËÜÅö¤Ë¡¢¾ð¤±¤Ê¤¤¸Â¤ê¤Ç¤¹¡£

ËÜÅö¤ËÍ­¤êÆñ¤¦¤´¤¶¤¤¤Þ¤¹¡¢¸µ¤Î½¸·×ɽ¤ÏÀèÀ¸¤¬¼¨º¶¤·¤Æ¤¯¤À¤µ¤Ã¤¿·Á¼°¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹
¤Î¤Ç¡¢Áᮥ¯¥é¥¹¥¿Ê¬ÀϤ˥ȥ饤¤·¤Æ¤ß¤è¤¦¤È»×¤¤¤Þ¤¹¡£¤¦¤Þ¤¯¤¤¤¯¤«¤É¤¦¤«¡¢¡¢¡£
SPSS¤¬¤Ê¤¤¤Î¤Ç¡¢RStudio¤ò»È¤Ã¤Æ¥Á¥ã¥ì¥ó¥¸¤·¤Þ¤¹¡£

¤Þ¤¿¤´Êó¹ð¤µ¤»¤ÆÄº¤­¤Þ¤¹¡Ê¤Þ¤¿¤´ÁêÃ̤ˤʤ뤫¤â¤Ç¤¹¡¢¡¢¡¢¤Ç¤­¤ë¤«É԰¤Ǥ¹¡Ë

¤³¤ì¤«¤é¤Ï¡¢¤³¤Î·Ç¼¨ÈĤβáµî¥í¥°¤òÆÉ¤ß¡¢ÊÙ¶¯¤·¤Þ¤¹¡£
Åý·×¤¬¤Ç¤­¤¿¤é¤É¤ó¤Ê¤ËÀ¤³¦¤¬³«¤±¤ë¤À¤í¤¦¡¢¤È¤¤¤Ä¤â»×¤¤¤Þ¤¹
¡Ê¤¬¡¢¥»¥ó¥¹¤Î¤Ê¤¤¼«Ê¬¤Ë¤Ï¸·¤·¤¤Æ»¤Î¤ê¤Ç¤Ï¤¢¤ê¤Þ¤¹¡Ë

¶ì¼ê¤Ç¤¹¤¬¡¢´èÄ¥¤ê¤¿¤¤¤È»×¤¤¤Þ¤¹¡¢¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£


¿ÊÑÎÌ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢Ê¬ÀϤ«¤éROC¶ÊÀþ¤òµá¤á¡¢¥«¥Ã¥È¥ª¥ÕÃͤò»»½Ð¤¹¤ë¤Ë¤Ï¡©
¡¡¡¡Åê¹Æ¼Ô¡§¶¶ËÜÀ¿ 2020/12/24(Thu) 08:51 No. 23008
ËèÄ«£µÊ¬¤ÎÊÙ¶¯¤ò¤³¤Î·Ç¼¨ÈĤdz¤±¤Æ¤¤¤Þ¤¹¡£
¤¤¤Ä¤â¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¼ÁÌä¡§
Ê£¿ô¤ÎÆÈΩÊÑ¿ô¤Ç¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢Ê¬ÀϤò¹Ô¤¤ROC¶ÊÀþ¤òµá¤á¤Þ¤·¤¿¡£
Ê£¿ô¤ÎÆÈΩÊÑ¿ô¤ÎÃæ¤Î¤Ò¤È¤Ä¤Î¹àÌܤΥ«¥Ã¥È¥ª¥ÕÃͤò»»½Ð¤¹¤ë¤¿¤á¤Ë¤ÏÆÈΩÊÑ¿ô¤òñ°ì¹àÌܤˤ·¤ÆºÆÅÙROC¶ÊÀþ¤òµá¤á¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤È»×¤¤¤Þ¤¹¤¬¡¢¸í¤Ã¤Æ¤¤¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡©

Re: ¿ÊÑÎÌ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢Ê¬ÀϤ«¤éROC¶ÊÀþ¤òµá¤á¡¢¥«¥Ã¥È¥ª¥ÕÃͤò»»½Ð¤¹¤ë¤Ë¤Ï¡©
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/12/24(Thu) 10:47 No. 23009
¸í¤Ã¤Æ¤¤¤Þ¤¹

ñ²óµ¢¤Ê¤é¡¤ÆÈΩÊÑ¿ô x ¤ò1¸Ä¤À¤±»È¤Ã¤Æ y_hat = 1 / (1 + exp(-ax-c)) ¤È¤¹¤ë
½Å²óµ¢¤Ç¤Ï¡¤Ê£¿ô¤ÎÆÈΩÊÑ¿ô¤òÀþ·Á·ë¹ç¤·¤Æ¦Ë¤È¤·¤Æ y_hat = 1 / (1 + exp(-¦Ë)) ¤È¤¹¤ë
ʬÀÏ·ë²Ì¤ò»È¤Ã¤Æ ROC ¶ÊÀþ¤òÉÁ¤¯¤Î¤Ë¡¤°ã¤¤¤Ï¤¢¤ê¤Þ¤»¤ó¡£
°Ê²¼¤Î¤è¤¦¤Ê¥Ú¡¼¥¸¤ÇÀ°Íý¤·¤Æ¤ß¤Æ¤Ï¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«

Æó¹à¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢Ê¬ÀÏ | KOTA's Lab.
https://kota.xyz/2018/01/25/binomial-logistic-regrresion-analysis/

Re: ¿ÊÑÎÌ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢Ê¬ÀϤ«¤éROC¶ÊÀþ¤òµá¤á¡¢¥«¥Ã¥È¥ª¥ÕÃͤò»»½Ð¤¹¤ë¤Ë¤Ï¡©
¡¡¡¡Åê¹Æ¼Ô¡§¶¶ËÜÀ¿ 2020/12/24(Thu) 10:55 No. 23010
ÀÄÌÚÀèÀ¸

ÁᮤΤ´»ØÆ³¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤´¶µ¼¨¤¤¤¿¤À¤¤¤¿¥Ú¡¼¥¸¤ÇÊÙ¶¯¤·¤Þ¤¹¡£
¤¿¤¤¤Ø¤ó½õ¤«¤ê¤Þ¤·¤¿¡ª¡ª¡ª


Williams¤ÎÊýË¡¡¡Ê¬ÉÛɽ¤Î»È¤¤Êý¡¢R¤Î¥Ñ¥Ã¥±¡¼¥¸¤Ë´Ø¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÅçÅý 2020/12/15(Tue) 17:06 No. 22992 HomePage
ÀÄÌÚÀèÀ¸

¤¤¤Ä¤âÂçÊÑ»²¹Í¤Ë¤µ¤»¤Æ¤¤¤¿¤À¤¤¤Æ¤ª¤ê¤Þ¤¹¡£

ÀèÀ¸¤ÎHP¤Ç¤â¼è¤ê¾å¤²¤Æ¤¤¤é¤Ã¤·¤ã¤ë¿½ÅÈæ³Ó Williams¤ÎÊýË¡¤Ë´Ø¤·¤Þ¤·¤Æ¤´¶µ¼¨¤¤¤¿¤À¤±¤ì¤Ð¤È»×¤¤¡¢3ÅÀÄø¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£

¤Þ¤º1ÅÀÌÜ¡¢Á°Äó¤È¤·¤Æ¤¢¤ëÌôºÞ¤ÎºÇ¾®Í­¸úÍÑÎ̤òÄ´¤Ù¤ë¤¿¤á¡¢±ÊÅÄÌ÷ÀèÀ¸¤Î¡ÖÅý·×Ū¿½ÅÈæ³ÓË¡¤Î´ðÁáפò»²¹Í¤ËWilliams¤ÎÊýË¡¤Ç¼ê·×»»¤·¤¿½ê¡¢tÃͤÏÀÄÌÚÀèÀ¸¤´ºîÀ®¤ÎR¤Î¥¹¥¯¥ê¥×¥È¤ÈƱ¤¸¤â¤Î¤¬·×»»¤µ¤ì¤Þ¤·¤¿¡£±ÊÅÄÀèÀ¸¤ÎËܤˤè¤ì¤Ð¡¢·×»»¤Î²áÄø¤ÇÆÀ¤¿¼«Í³ÅÙ¦ÕE(ÀÄÌÚÀèÀ¸¤ÎR¤Î¥¹¥¯¥ê¥×¥È¤Îphi.e¤ÈƱ¤¸·×»»¤ÇÆÀ¤¿ÃͤǤ¹)¤ò½Ä¼´¤Ë¡¢·²¿ôa¤ò²£¼´¤Ë¤È¤Ã¤¿¡Ö¥¦¥£¥ê¥¢¥à¥º¤ÎÊýË¡¤Î¤¿¤á¤Î¾å¦2.5%ÅÀ¤ÎʬÉÛɽ¡×¤Î³ºÅö¤¹¤ë²Õ½ê¤ÎÃͤȡ¢Á°½Ò¤ÎtÃͤòÈæ³Ó¤·¤ÆtÃͤ¬Â礭¤±¤ì¤Ðµ¢Ìµ²¾Àâ¤ò´þµÑ¤¹¤ë¤È¤¤¤¦¤è¤¦¤Ëµ­ºÜ¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Îɽ¤«¤éÃͤòÆÉ¤ß¼è¤ëºÝ¤Ë¡¢½Ä¼´¤ÏÁ°½Ò¤Î¦ÕE¤ò¼è¤ì¤Ð¤è¤¤¤È¤¤¤¦¤³¤È¤Ïʬ¤«¤ê¤Þ¤¹¤¬¡¢²£¼´¤Î·²¿ô¤Ï¤É¤ì¤òÍѤ¤¤ì¤Ð¤è¤¤¤Î¤«µ­ºÜ¤¬¤Ê¤¯Ì¤äƤ¤¤Þ¤¹¡£
Î㤨¤ÐÀèÀ¸¤ÎHP¤Î¥Ç¡¼¥¿¤ò»ÈÍѤµ¤»¤Æ¤¤¤¿¤À¤¯¤È¡¢¦ÕE¤Ï30,Âè1·²¤òcontrol¤È¤·¤Æ¡¢Âè5·²¤ÈÈæ³Ó¤¹¤ëºÝ¤Ïa=5, Âè4·²¤È¤ÎÈæ³Ó¤Ç¤Ïa=4,¡Äa=2¤È½ç¼¡¸º¤é¤·¤¿ÃͤòÍѤ¤¤ë¤Î¤«¡¢¤½¤ì¤È¤â°ì´Ó¤·¤Æa=5¤ÎÃͤòÍѤ¤¤ë¤Î¤«¤È¤¤¤¦¤³¤È¤Ç¤¹¤¬¡¢¤É¤Á¤é¤¬Àµ²ò¤Ç¤·¤ç¤¦¤«¡£

2ÅÀÌÜ
Á°½Ò¤Î·×»»¤ÎºÝ¤Ë¥Í¥Ã¥È¾å¤Î¾ðÊó¤òÄ´¤Ù¤Þ¤·¤¿½ê¡¢¸å½Ò¤ÎURL¤Î¥µ¥¤¥È¤Ç¤ÏtÃͤò¥¨¥¯¥»¥ë¤ÎTdist´Ø¿ô¤ËÅö¤Æ¤Ï¤á¤ÆpÃͤò·×»»¤µ¤»¤Æ¤¤¤Þ¤·¤¿¡£Tdist´Ø¿ô¤Ç¤Ï2·²¤·¤«ÁÛÄꤵ¤ì¤Æ¤¤¤Ê¤¤¤È»×¤¦¤Î¤Ç¤³¤ì¤Ç¤Ï¿·²¤Î¾ì¹ç¤ÎpÃͤϷ׻»½ÐÍè¤Ê¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¤¬¡¢¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«¡£Â¾¤Ëwilliams¤ÇpÃͤò»»½Ð¤¹¤ëÎɤ¤ÊýË¡¤¬¤¢¤ì¤Ð¤´¾Ò²ð¤¤¤¿¤À¤±¤Þ¤¹¤È¹¬¿Ó¤Ç¤¹¡£

3ÅÀÌÜ
R¤Ç¤ÏWilliams¤ÎÊýË¡¤¬ÁªÂò¤Ç¤­¤ë¥Ñ¥Ã¥±¡¼¥¸¤È¤·¤Æ¡¢"multcomp"¤¬¤¢¤ê¤Þ¤¹¤¬¡¢¤³¤Á¤é¤Ç¸¡Äê¤ò¤«¤±¤¿½ê¡¢½ÐÎϤµ¤ì¤¿tÃͤ¬Á°½Ò¤ÎtÃͤÈ1Éô¡ÊºÇ¾®¤ÎÊ¿¶ÑÃͤη²¤È¤ÎControl¤Î·²¤È¤ÎÈæ³Ó¡Ë¤ò½ü¤¤¤Æ¤Þ¤ë¤Ç°Û¤Ê¤ëÃͤȤʤê¤Þ¤·¤¿¡£¡Ê¾ÜºÙ¤ÏR¥³¥ó¥½¡¼¥ë¤Îɽ¼¨¤ò¥³¥Ô¥Ú¤·¤¿ÅºÉդΥƥ­¥¹¥È¥Õ¥¡¥¤¥ë¤ò¤´»²¾È¤¤¤¿¤À¤±¤ì¤Ð¤È»×¤¤¤Þ¤¹¡£¤³¤Á¤é¤âÀèÀ¸¤ÎWilliams¤ÎÊýË¡¤Î²òÀâ¤Î¥Ú¡¼¥¸µ­ºÜ¤Î¥Ç¡¼¥¿¤ò»ÈÍѤ¤¤¿¤·¤Þ¤·¤¿¡Ë
¤É¤¦¤âÂè5·²¡¢4·²¡¢3·²¤È½ç¼¡tÃͤò»»½Ð¤¹¤ëºÝ¤Ë5·²¤Î¤È¤­¤Ï5·²¤Î¤ß¤ÎÊ¿¶ÑÃͤǤ¹¤¬4·²°Ê¹ß¤ÏÂè4&5·²¤ÎÊ¿¶ÑÃÍ¡¢Âè3,4,5·²¤ÎÊ¿¶ÑÃͤȤ¤¤Ã¤¿¤è¤¦¤Ë¤½¤ì¤Þ¤Ç¤Î·²¤ò¥×¡¼¥ë¤¹¤ë·Á¤Ç¼Â»Ü¤·¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¡£¤³¤ì¤Ïmultcomp¤Î¥Ð¥°¤Ê¤Î¤«¡¢Ê̤ÎÌÜŪ¤Î¸¡ÄêÊýË¡¤Ê¤Î¤«¡¢¤É¤Î¤è¤¦¤Ë²ò¼á¤¹¤ì¤Ð¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡£

°Ê²¼¤ÏR console¤Î¥³¥Ô¥Ú¤Ç¤¹¡£

¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

> library(multcomp)
Í׵ᤵ¤ì¤¿¥Ñ¥Ã¥±¡¼¥¸ mvtnorm ¤ò¥í¡¼¥ÉÃæ¤Ç¤¹
Í׵ᤵ¤ì¤¿¥Ñ¥Ã¥±¡¼¥¸ survival ¤ò¥í¡¼¥ÉÃæ¤Ç¤¹
Í׵ᤵ¤ì¤¿¥Ñ¥Ã¥±¡¼¥¸ TH.data ¤ò¥í¡¼¥ÉÃæ¤Ç¤¹
Í׵ᤵ¤ì¤¿¥Ñ¥Ã¥±¡¼¥¸ MASS ¤ò¥í¡¼¥ÉÃæ¤Ç¤¹

¼¡¤Î¥Ñ¥Ã¥±¡¼¥¸¤òÉÕ¤±²Ã¤¨¤Þ¤¹: ¡ÆTH.data¡Ç

°Ê²¼¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ï ¡Æpackage:MASS¡Ç ¤«¤é¥Þ¥¹¥¯¤µ¤ì¤Æ¤¤¤Þ¤¹:

geyser

> vx=c(415, 380, 391, 413, 372, 359, 401, # Âè 1 ·²¡ÊÂоȷ²¡Ë¤Î¥Ç¡¼¥¿¡¤7 Îã
+ 387, 378, 359, 391, 362, 351, 348, # Âè 2 ·²¡Ê½èÍý·²¡Ë¤Î¥Ç¡¼¥¿¡¤7 Îã
+ 357, 379, 401, 412, 392, 356, 366, # Âè 3 ·²¡Ê½èÍý·²¡Ë¤Î¥Ç¡¼¥¿¡¤7 Îã
+ 361, 351, 378, 332, 318, 344, 315, # Âè 4 ·²¡Ê½èÍý·²¡Ë¤Î¥Ç¡¼¥¿¡¤7 Îã
+ 299, 308, 323, 351, 311, 285, 297) # Âè 5 ·²¡Ê½èÍý·²¡Ë¤Î¥Ç¡¼¥¿¡¤7 Îã

> fx=factor(rep(c("C", "W", "X", "Y", "Z"), c(7, 7, 7, 7, 7)))
> summary(glht(aov(vx~fx), alternative="less", linfct=mcp(fx="Williams")))

Simultaneous Tests for General Linear Hypotheses

Multiple Comparisons of Means: Williams Contrasts

Fit: aov(formula = vx ~ fx)

Linear Hypotheses:
Estimate Std. Error t value Pr(<t)
C 1 >= 0 -79.571 11.245 -7.076 <0.001 ***
C 2 >= 0 -63.500 9.739 -6.520 <0.001 ***
C 3 >= 0 -45.571 9.182 -4.963 <0.001 ***
C 4 >= 0 -39.714 8.890 -4.467 <0.001 ***
---
Signif. codes: 0 ¡Æ***¡Ç 0.001 ¡Æ**¡Ç 0.01 ¡Æ*¡Ç 0.05 ¡Æ.¡Ç 0.1 ¡Æ ¡Ç 1
(Adjusted p values reported -- single-step method)

Re: Williams¤ÎÊýË¡¡¡Ê¬ÉÛɽ¤Î»È¤¤Êý¡¢R¤Î¥Ñ¥Ã¥±¡¼¥¸¤Ë´Ø¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/12/17(Thu) 10:17 No. 22997
´ØÏ¢¤¹¤ëËܤÏÁ´¤ÆÇÑ´þ¤·¤Æ¤ª¤ê¡¤¾Ü¤·¤¯¤Ï¤ï¤«¤ê¤Þ¤»¤ó¡£

> ²£¼´¤Î·²¿ô¤Ï¤É¤ì¤òÍѤ¤¤ì¤Ð¤è¤¤¤Î¤«µ­ºÜ¤¬¤Ê¤¯Ì¤äƤ¤¤Þ¤¹¡£

¡Ê°ì´Ó¤·¤Æ¡Ë·²¤Î¿ô¤½¤Î¤â¤Î¤È»×¤¤¤Þ¤¹¡£

> ¿·²¤Î¾ì¹ç¤ÎpÃͤϷ׻»½ÐÍè¤Ê¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹

¤Ç¤­¤Ê¤¤¤Ç¤·¤ç¤¦¡£
¤Ê¤ª¡¤¼¡¤Î¼ÁÌä¤È¤â¤«¤Ö¤ê¤Þ¤¹¤¬¡¤ºÇ½ª¼êÃÊ¤Ï R ¤Î¥½¡¼¥¹¥×¥í¥°¥é¥à¤ò²òÆÉ¤¹¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡£

> ans = summary(glht(aov(vx~fx), alternative="less", linfct=mcp(fx="Williams")))
> str(ans)

¤È¤¹¤ë¤È¡¤summary ´Ø¿ô¤ÎÌá¤êÃͤò¸«¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
ans$test$pfunction, ans$test$qfunction ¤ò¸«¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡£¤½¤ì¤¾¤ì¤Î´Ø¿ô¤Î»È¤¤Êý¤¬¤ï¤«¤ì¤Ð¡¤¼«Ê¬¤Ç·×»»¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¤¬¡¤
¤½¤ó¤Ê¤³¤È¤·¤Ê¤¯¤Æ¤â¡¤glht ¤ò»È¤¨¤ÐÎɤ¤¤À¤±¤Ç¤¹¤Í¡£

> ¤½¤ì¤Þ¤Ç¤Î·²¤ò¥×¡¼¥ë¤¹¤ë·Á¤Ç¼Â»Ü¤·¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¡£¤³¤ì¤Ïmultcomp¤Î¥Ð¥°¤Ê¤Î¤«¡¢Ê̤ÎÌÜŪ¤Î¸¡ÄêÊýË¡¤Ê¤Î¤«

glht ¤Ï General Linear Hypotheses ¤È¤¤¤¦¤³¤È¤Ç¡¤¼ã´³¤ÎÀâÌÀ¤Ï ? glht ¤Çɽ¼¨¤µ¤ì¤ë¾ðÊó¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ Details ¤È¤¤¤¦¤È¤³¤í¤Ë¡¤¤ä¤ä¾Ü¤·¤á¤Ë½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¡£
´ðËÜŪ¤Ë¤Ï¡¤¤½¤³¤Ë¤â¼¨¤µ¤ì¤Æ¤¤¤ë¡¤Ê¸¸¥¤ËÅö¤¿¤ëɬÍפ¬¤¢¤ë¤Ç¤·¤ç¤¦¡£

References

Frank Bretz, Torsten Hothorn and Peter Westfall (2010), Multiple Comparisons Using R, CRC Press, Boca Raton.

Shayle R. Searle (1971), Linear Models. John Wiley \& Sons, New York.

Jason C. Hsu (1996), Multiple Comparisons. Chapman & Hall, London.

Torsten Hothorn, Frank Bretz and Peter Westfall (2008), Simultaneous Inference in General Parametric Models. Biometrical Journal, 50(3), 346–363; See vignette("generalsiminf", package = "multcomp").

Re: Williams¤ÎÊýË¡¡¡Ê¬ÉÛɽ¤Î»È¤¤Êý¡¢R¤Î¥Ñ¥Ã¥±¡¼¥¸¤Ë´Ø¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÅçÅý 2020/12/21(Mon) 10:46 No. 23007
ÀÄÌÚÀèÀ¸

¤´²óÅú¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

¡ä¡Ê°ì´Ó¤·¤Æ¡Ë·²¤Î¿ô¤½¤Î¤â¤Î¤È»×¤¤¤Þ¤¹¡£

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¡äans$test$pfunction, ans$test$qfunction ¤ò¸«¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡£¤½¤ì¤¾¤ì¤Î´Ø¿ô¤Î»È¤¤Êý¤¬¤ï¤«¤ì¤Ð¡¤¼«Ê¬¤Ç·×»»¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¤¬¡¤

¤ä¤Ï¤êt.dist¤Ç¤Ï·×»»¤Ç¤­¤Ê¤¤¤Î¤Ç¤¹¤Í¡£
¶µ¤¨¤Æ¤¤¤¿¤À¤¤¤¿ÊýË¡¤Ç¡¢¥½¡¼¥¹¤ò²òÆÉ¤·¤Æ¤ß¤Þ¤¹¡£

¡äglht ¤Ï General Linear Hypotheses ¤È¤¤¤¦¤³¤È¤Ç¡¤¼ã´³¤ÎÀâÌÀ¤Ï ? glht ¤Çɽ¼¨¤µ¤ì¤ë¾ðÊó¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ Details ¤È¤¤¤¦¤È¤³¤í¤Ë¡¤¤ä¤ä¾Ü¤·¤á¤Ë½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¡£
´ðËÜŪ¤Ë¤Ï¡¤¤½¤³¤Ë¤â¼¨¤µ¤ì¤Æ¤¤¤ë¡¤Ê¸¸¥¤ËÅö¤¿¤ëɬÍפ¬¤¢¤ë¤Ç¤·¤ç¤¦¡£

?glht¤ò»²¾È¤·¤Þ¤·¤¿¤¬¡¢¤è¤¯¤ï¤«¤é¤Ê¤¤¤Î¤Çʸ¸¥¤òÆÉ¤ó¤Ç¤ß¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


¤É¤ÎʬÀϼêË¡¤òÍѤ¤¤ì¤Ð¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2020/12/16(Wed) 13:20 No. 22993
¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£

°ì¤Ä¤Î½ñ¤­Êª¤ËÂФ·¤Æ¡¤2̾¤¬¡Ö5¤Ä¤Î¹àÌÜ¡ÊźÉÕ²èÁü¤Îitem1, item2...¡Ë¡×¤Ç5Ãʳ¬É¾²Á¤òÍѤ¤¤ÆºÎÅÀ¤·¤Þ¤¹¡£

°ì¤Ä¤Î½ñ¤­Êª¤ÎËþÅÀ¤Ï50ÅÀ¡Ê2̾¡ß25ÅÀËþÅÀ¡Ë¤È¤Ê¤ê¤Þ¤¹¡£

Æó¿Í¤Îɾ²Á¼Ô¤Î¹ç·×ÅÀ¤¬30ÅÀ°Ê¾å¤ò¡Ö¹ç³Ê¡×¡¤¤½¤ì°Ê²¼¤ò¡ÖÉÔ¹ç³Ê¡×¤È¤·¤Þ¤¹¡£

¹ç³Ê¡¦ÉÔ¹ç³Ê¤Ë±Æ¶Á¤òÍ¿¤¨¤Æ¤¤¤ë¡Ö¹àÌܡפϤɤ줫¡Ê5¹àÌܤΤ¦¤Á¤É¤ì¤«¡Ë¤òÄ´¤Ù¤¿¤¤¤È»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£

½Å²óµ¢Ê¬ÀϤò¤â¤Á¤¤¤ì¤Ð¤¤¤¤¤Î¤«¤ÈÁǿͤʤ¬¤é¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¤1¤Ä¤Î½ñ¤­Êª¤ËÆó¿Í¤¬É¾²Á¤ò¤·¤Æ¤¤¤Æ¡¤ÀÄÌÚÀèÀ¸¤¬ºîÀ®¤µ¤ì¤¿¤â¤Î¤òÍѤ¤¤ÆÊ¬ÀϤ·¤è¤¦¤È¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¤¤É¤Î¤è¤¦¤Ë¤³¤Î¥ì¥¤¥¢¥¦¥È¤ËÅö¤Æ¤Ï¤á¤ì¤ÐÎɤ¤¤Î¤«¤ï¤«¤é¤º¡ÊÆÃ¤Ë¡¤Æó¿Í¤Îɾ²Á¤ò¤É¤¦¹ç»»¤¹¤ë¤Ù¤­¤«¡©¡Ë¡¤¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤¤¤Æ¤¤¤ë¼¡Âè¤Ç¤¹¡£

Excel¤Î¥ì¥¤¥¢¥¦¥È¤ò¤ª¼¨¤·¤¹¤ë¤È¤¹¤ì¤ÐźÉÕ²èÁü¤Î¤è¤¦¤Ê¤â¤Î¤«¤È¹Í¤¨¤Þ¤¹¡£¡Ê¤Þ¤À¥Ç¡¼¥¿¤Ï¼ý½¸¤·¤Æ¤ª¤ê¤Þ¤»¤ó¡£¥Ç¥¶¥¤¥óÃʳ¬¤Ç¤¹¡£¡Ë

¤´»ØÆ³¤ò失¤ë¤È¹¬¤¤¤Ç¤¹¡£


Re: ¤É¤ÎʬÀϼêË¡¤òÍѤ¤¤ì¤Ð¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/12/16(Wed) 17:50 No. 22994
¥Ç¡¼¥¿¤Î·Á¼°¤«¤é¤À¤±¸À¤¨¤Ð¡¤¥í¥¸¥¹¥Æ¥£¥Ã¥¯È½ÊÌʬÀÏ
http://aoki2.si.gunma-u.ac.jp/R/lr.html
¥Ç¡¼¥¿Îã¤Ï¡¤»ÈÍÑÎã¤Î¹à¤Ë¤¢¤ë lr.data ¤Ø¤Î¥ê¥ó¥¯¤ò¸«¤ì¤Ð¤ï¤«¤ë¤è¤¦¤Ë¡¤Ê£¿ô¤ÎÆÈΩÊÑ¿ô¤È¡¤1¸Ä¤Î½¾Â°ÊÑ¿ô¡Ê2Ãͥǡ¼¥¿¡Ë

¤½¤Î¥Ú¡¼¥¸¤Ë½ñ¤¤¤Æ¤¢¤ë¤è¤¦¤Ë¡¤R ¤À¤È glm ´Ø¿ô¡ÊÌÜŪ¤Î¹à¤Î2¹ÔÌܤ˥ê¥ó¥¯¤¬¤¢¤ë¡Ë

¤¿¤À¤·¡¤¤¢¤Ê¤¿¤Î¥Ç¡¼¥¿¤Î¾ì¹ç¡¤½¾Â°ÊÑ¿ô¤¬ÆÈΩÊÑ¿ô¤ÎϤ¬30°Ê¾å¤Ê¤É¤È¸À¤¦¤³¤È¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¤Á¤ç¤Ã¤Èº¤¤Ã¤¿¤³¤È¤Ë¤Ê¤ë¤«¤Ê¡£

Re: ¤É¤ÎʬÀϼêË¡¤òÍѤ¤¤ì¤Ð¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2020/12/18(Fri) 09:26 No. 23003
ÀÄÌÚÀèÀ¸

¤ªÊÖ»ö¤¬ÃÙ¤¯¤Ê¤ê¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£

¡ÖÉÔ¹ç³Ê¡×¡á1, ¡Ö¹ç³Ê¡×=2¤È¥À¥ß¡¼ÊÑ¿ô¤Ë¤·¤¿¤â¤Î¤¬2ÃͤÀ¤È»×¤¤¤Þ¤¹¡£¤³¤ì¤È¡¤¡Ê1¤Ä¤Î½ñ¤­Êª¤Ë¤Ä¤¤¤Æ¡Ëɾ²Á¼Ô2̾¤Î5·ïË¡¥Ç¡¼¥¿¤ò³èÍѤ¹¤ë¤³¤È¤Ç¤è¤í¤·¤¤¤¤¤Ç¤·¤ç¤¦¤«¡£¤Ä¤Þ¤ê¡¤¹ç·×ÅÀ30ÅÀ°Ê¾å¤È¤¤¤¦¤Î¤Ï»È¤ï¤Ê¤¤¤È¸À¤¦¤³¤È¤Ç¤¹¡£¹ç·×ÅÀ¤Çɾ²Á¤·¤¿¤â¤Î¤¬¡ÖÉÔ¹ç³Ê¡×¡Ö¹ç³Ê¡×¤È¤¤¤¦¥é¥Ù¥ë¤Ë¤Ê¤Ã¤Æ¤ª¤ê¤Þ¤¹¤Î¤Ç¡¤¹ç·×¤ÏÉÔÍפ«¤È¹Í¤¨¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

¥Ç¡¼¥¿·Á¼°¤ÏźÉդΤ褦¤Ê¤â¤Î¤Ë¤Ê¤ë¤Î¤«¤Ê¤È¹Í¤¨¤¿¼¡Âè¤Ç¤¹¤¬¡¤¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«¡£


Re: ¤É¤ÎʬÀϼêË¡¤òÍѤ¤¤ì¤Ð¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/12/18(Fri) 11:56 No. 23004
[½¾Â°ÊÑ¿ô¤¬ÆÈΩÊÑ¿ô¤ÎϤ¬30°Ê¾å]¤È¤¤¤¦¤Î¤âÆóÃÍÊÑ¿ô¤Ç¤¹¤è¡Ê30̤Ëþ¤¬ÉÔ¹ç³Ê¡Ë¡£

¤½¤¦¤¤¤¦¤³¤È¤Ç¤Ï¤Ê¤¯¡¤½¾Â°ÊÑ¿ô¤Ï³°Åª´ð½à¤È¤â¸Æ¤Ð¤ì¤ë¤è¤¦¤Ë¡¤ÆÈΩÊÑ¿ô¤È¤ÏÊ̤δÑÅÀ¤«¤éÍ¿¤¨¤é¤ì¤¿¤â¤Î¤È¤¤¤¦¤³¤È¤Ç¤¹¡£

¤¿¤È¤¨¤Ð¡¤¤ª°å¼Ô¤µ¤ó¤¬¤¢¤ëɵ¤¤Ç¤¢¤ë¤«¤É¤¦¤«¤ò¿ÇÃǤ¹¤ë¤È¤­¡¤³Î¤«¤ËÍÍ¡¹¤Ê¸¡ºº·ë²Ì¤òÁí¹ç¤·¤Æ¿ÇÃǤ¹¤ëÌõ¤Ç¤¹¤¬¡¤¤¿¤È¤¨¤Ð¡Ö·ì°µ¤¬150/90 °Ê¾å¤Ç¡¤¿´Çï¿ô¤¬80°Ê¾å¤Ç¡¤¸ÆµÛ¿ô¤¬100°Ê¾å¤Î¤È¤­¤Ëɵ¤¤Ç¤¢¤ë¡Ê½¾Â°ÊÑ¿ô¤¬1¡Ë¤È¿ÇÃǤ¹¤ë¡×¤È¤¤¤¦¤è¤¦¤Ë½¾Â°ÊÑ¿ô¤¬·è¤á¤é¤ì¤Æ¤¤¤ë¤È¤¹¤ì¤Ð¡¤¤Á¤ç¤Ã¤ÈÊѤ¸¤ã¤Ê¤¤¤Ç¤¹¤«¤È¤¤¤¦¤³¤È¤Ç¤¹¡£


¿½Å¸¡Äê¤Ë¤Ä¤¤¤Æ¤Î¤´¼ÁÌä¤Ç¤¹¡£
¡¡¡¡Åê¹Æ¼Ô¡§¤¤¤± 2020/12/17(Thu) 08:46 No. 22995
ÂçÊÑ¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
¿½Å¸¡Äê¤Ë¤Ä¤¤¤Æ¤´ÁêÃ̤µ¤»¤Æ¤¯¤À¤µ¤¤¡£
°Û¤Ê¤ë50¸Ä¤Îsample¤ËÂФ·¤Æ3¼ïÎà¤Î²òÀϡʲòÀϾò·ï¤ò3¤Ä¤ï¤ê¤Õ¤ê¡Ë¤òÍѤ¤¤ÆÆÀ¤é¤ì¤¿·ë²Ì¤ËÂФ·¤ÆÂ¿½Å¸¡Äê¤ò¹Ô¤¦¤³¤È¤ò¸¡Æ¤¤·¤Æ¤ª¤ê¤Þ¤¹¡£

¤³¤Î¾ì¹ç¤Î²òÀϤÏÂбþ¤Î¤¢¤ë¸¡Äê¡¢Âбþ¤Î¤Ê¤¤¸¡Äê¤Î¤É¤Á¤é¤Ç²òÀϤ¹¤ë¤³¤È¤¬Å¬ÀڤʤΤǤ·¤ç¤¦¤«¡£»ä¤ÎÄ´¤Ù¤¿ÈϰϤǤÏÂбþ¤Î¤¢¤ë¸¡Äê¤Ï·«¤êÊÖ¤·Æ±¤¸É¾²Á¤ò¹Ô¤¦¾ì¹ç¤Ë¹Ô¤¦¤È¤µ¤ì¤Æ¤ª¤ê¡¢Âбþ¤Î¤Ê¤¤¸¡Äê¡ÊKruskal-Wallis¸¡Äê¡Ë¤ò¹Ô¤¦¤Ç¤¢¤Ã¤Æ¤¤¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡£

¤ªË»¤·¤¤¤È¤³¤íÂçÊѶ²½Ì¤Ç¤¹¤¬¤´¶µ¼øÄº¤±¤Þ¤·¤¿¤é¹¬¤¤¤Ç¤¹¡£
²¿Â´¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: ¿½Å¸¡Äê¤Ë¤Ä¤¤¤Æ¤Î¤´¼ÁÌä¤Ç¤¹¡£
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/12/17(Thu) 09:59 No. 22996
1¸Ä¤Îsample ¤ËÂФ·¤Æ¡¤3¼ïÎà¤Î²òÀÏ·ë²Ì¤¬ÆÀ¤é¤ì¤ë¡¤¤Ä¤Þ¤ê¡¤50¸Ä¤Îsample ¤À¤È¡¤50 x 3 ¤Î¥Ç¡¼¥¿¤È¤¤¤¦¤³¤È¤Ç¤¹¤«¡£
¡Ö3¼ïÎà¤Î²òÀÏ·ë²Ì¡×¤È¤¤¤¦¤Î¤Ï¤É¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤¹¤«¡©À¸²½³Ø¼Â¸³¤Î¤è¤¦¤Ê¤â¤Î¤ÇʬÀϼêË¡¤Ë¤è¤Ã¤Æ·ë²Ì¤¬¼ã´³°Û¤Ê¤ë¤è¤¦¤Ê¤â¤Î¡©
¤Þ¤µ¤«¡¤¡ÖÅý·×²òÀϼêË¡¤Î°ã¤¤¤Ë¤è¤ë·ë²Ì¤Î°ã¤¤¡×¤Ê¤ó¤Æ¤³¤È¤Ï¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤Í¡£
¤â¤¦¾¯¤·¡¤¶ñÂÎŪ¤ËÀâÌÀ¤·¤Æ¤¯¤À¤µ¤¤¡£

Re: ¿½Å¸¡Äê¤Ë¤Ä¤¤¤Æ¤Î¤´¼ÁÌä¤Ç¤¹¡£
¡¡¡¡Åê¹Æ¼Ô¡§¤¤¤± 2020/12/17(Thu) 10:56 No. 22998
¤ªË»¤·¤¤ÃæÊ¬¤«¤ê¤Ë¤¯¤¤¼ÁÌä¤ò¤·¤Æ¤·¤Þ¤¤ÂçÊÑ¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
ưʪͳÍè¤Î¸¡ÂΡÊÂñաˤËÂФ·¤ÆºÙ¶Ý²òÀϤò¹Ô¤Ã¤Æ¤ª¤ê¡¢ÆÀ¤é¤ì¤Æ½Ð¤Æ¤¯¤ëÃͤËÂФ·¤Æ²òÀϤ¹¤ë»þ¤ÎïçÃͤò3¥Ñ¥¿¡¼¥ó¤ËÀßÄê¡Ê1¤Î¸¡ÂΤˤÏA¤ÎïçÃͤDzòÀϤ¹¤ë·ë²Ì¤¬0.3¡¢B¤ÎïçÃͤÇ0.6¡¢C¤ÎïçÃͤÇ0.8 ¤Ê¤É¡Ë¤·¤ÆÆÀ¤é¤ì¤¿²òÀϤθ¡Æ¤¤ò¹Ô¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£¤½¤Î¤¿¤á¡¢¥Ç¡¼¥¿¤È¤·¤Æ¤Ï50¡ß3¤Î¥Ç¡¼¥¿¤Ë¤Ê¤ê¤Þ¤¹¡£

Ʊ°ì¤Î¸¡ÂΤËÂФ·¤Æ¤Î²òÀϤǤ¹¤¬¡¢¹Ô¤Ã¤Æ¤¤¤ë²òÀϤ¬¾ò·ï¤òÊѤ¨¤Æ¹Ô¤Ã¤¿¸¡Æ¤¤Î·ë²Ì¤Ç¤¢¤ë¤¿¤áÂбþ¤Î¤Ê¤¤¸¡Äê¤Ç¤¹¤¹¤á¤Æ¤è¤¤¤«¤´»ØÆ³Äº¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£

Åý·×¼êË¡¤Î¤Á¤¬¤¤¤Ë¤è¤ë·ë²Ì¤Î°ã¤¤¤Ï¹Í¤¨¤Æ¤ª¤ê¤Þ¤»¤ó¡£
¤â¤·¤è¤í¤·¤±¤ì¤Ð¤´»ØÆ³²¿Â´¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: ¿½Å¸¡Äê¤Ë¤Ä¤¤¤Æ¤Î¤´¼ÁÌä¤Ç¤¹¡£
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/12/17(Thu) 17:08 No. 22999
¡ÖÂбþ¤Î¤¢¤ë¥Ç¡¼¥¿¡×¤È¤¤¤¦¤â¤Î¤Ï¤É¤Î¤è¤¦¤Ê¤â¤Î¤È¤ª¹Í¤¨¤Ç¤¹¤«¡©
http://aoki2.si.gunma-u.ac.jp/lecture/TwoWayANOVA/friedman.html
¤ËÂбþ¤Î¤¢¤ë¥Ç¡¼¥¿¤ÎÎ㤬¤¢¤ê¤Þ¤¹¤¬¡¤ÉáÄ̤ÏÂбþ¤Î¤¢¤ë¥Ç¡¼¥¿¤Ï°Û¤Ê¤ë¾ò·ï²¼¤Ç¤Î¬ÄêÃ͡ʴѻ¡Ã͡ˤȤ¤¤¦¤³¤È¤Ç¡¤¾ò·ï¤¬Æ±¤¸¾ì¹ç¤ÏËè²ó¤Î¬ÄêÃͤËÊѲ½¤Ï¤Ê¤¤¤È¤¤¤¦¤Î¤¬µ¢Ìµ²¾Àâ¤Ë¤Ê¤ë¤Ç¤·¤ç¤¦¡£Ä̾ï¤Ï¡¤¾ò·ï¤Î°ã¤¤¤Ç¬ÄêÃͤ˰㤤¤¬½Ð¤Æ¤¯¤ë¤¬¤½¤Î°ã¤¤¤¬Í­°Õ¤Ê¤â¤Î¤«¤É¤¦¤«¤òÄ´¤Ù¤Æ¡¤¾ò·ï¤Î°ã¤¤¤¬¤¢¤ë¤«¤É¤¦¤«·ëÏÀ¤Å¤±¤ë¤È¤¤¤¦¿äÏÀ²áÄø¤òé¤ë¤â¤Î¤È»×¤¤¤Þ¤¹¤¬¡£
¡Ö²òÀϤ¹¤ëïçÃͤΰ㤤¡×¤¬Îã¤Ëµó¤²¤¿¤è¤¦¤Ê¡Ö¾ò·ï¤Î°ã¤¤¡×¤Ë¤¢¤¿¤ë¤Î¤«¤É¤¦¤«¡¤¤¢¤Ê¤¿¤¬È½ÃǤ·¤Æ²¼¤µ¤¤¡£

Re: ¿½Å¸¡Äê¤Ë¤Ä¤¤¤Æ¤Î¤´¼ÁÌä¤Ç¤¹¡£
¡¡¡¡Åê¹Æ¼Ô¡§¤¤¤± 2020/12/17(Thu) 17:57 No. 23001
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
»²¹Í¤Ë¤Ê¤ê¤Þ¤¹¡£


Dunnett¤ÎpÃͤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ºù¤È¤ª¾ë 2020/11/18(Wed) 10:26 No. 22983
ÀÄÌÚÀèÀ¸

¡¡ÀèÀ¸¤Î²¼µ­¥Ú¡¼¥¸¤Ë¤¢¤ëDunnett¤ÎpÃͤˤĤ¤¤Æ¡¤¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£

> dunnett(data, group)
t p
1:2 1.854090 2.156676e-01
1:3 4.187543 8.023633e-04
1:4 7.073685 5.706414e-08
1:5 4.072727 1.169213e-03

¡¡Î㤨¤Ð¡¤Í­°Õ¿å½à5¡ó¤È¤·¤¿¾ì¹ç¡¤¤³¤ÎpÃͤòÊÒ¦¤Î»þ0.05¡¤Î¾Â¦¤Î»þ0.025¤ÈÈæ³Ó¤¹¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

¡¡¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£
¡¡

Re: Dunnett¤ÎpÃͤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/11/18(Wed) 23:36 No. 22987
Î׳¦ÃͤǤϤʤ¯¡¤PÃͤ½¤Î¤â¤Î¤Ç¤¹¡£

PÃͤÏξ¦¸¡Äê¤Î¾ì¹ç¤ÎÃͤʤΤǡ¤ÊÒ¦¸¡Äê¤Î¾ì¹ç¤ÏȾʬ¤Ë¤Ê¤ë¤Ç¤·¤ç¤¦¡£

´þµÑ°è¤Î³ÎΨ¤Ï¡¤º¸Â¦¡¡¡Ü ¡¡±¦Â¦¡¡¡á¡¡É½¼¨¤µ¤ì¤Æ¤¤¤ëPÃÍ
´þµÑ°è¤Î³ÎΨ¤Ï¡¤º¸Â¦¡Ê°¿¤¤¤Ï±¦Â¦¡Ë¤Î¤ß¡¡¡á¡¡É½¼¨¤µ¤ì¤Æ¤¤¤ëPÃͤÎȾʬ

Re: Dunnett¤ÎpÃͤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ºù¤È¤ª¾ë 2020/11/23(Mon) 09:48 No. 22989
ÀÄÌÚÀèÀ¸

¡¡¤ªÎé¤ÎÊÖ»ö¤¬ÃÙ¤¯¤Ê¤ê¤Þ¤·¤¿¡£·×»»¤µ¤ì¤¿pÃͤ¬Î¾Â¦¸¡Äê¤ÎÃͤǤ¢¤ë¤È¡¤ÂçÊÑÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿¡£


Áê´Ø·¸¿ô¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥¢¥á¥ê¡½ 2020/11/17(Tue) 11:59 No. 22982 HomePage
¤¿¤Ó¤¿¤Ó¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£

Áê´Ø·¸¿ô¤Ë¤Ä¤¤¤Æ¡¢ÊÙ¶¯¤·¤Æ¤ª¤ê¡¢ÎÌ¡ßÎ̤ʤΤǤ¹¤¬¡¢ÊÒÊý¤¬Àµµ¬Ê¬ÉÛ¡¢¤â¤¦ÊÒÊý¤¬Àµµ¬Ê¬ÉÛ¤·¤Æ¤ª¤é¤º¡¢FʬÉۤΤ褦¤ÊʬÉۤǤ¹¡£
¤³¤Î¾ì¹ç¡¢Pearson ¤ò»È¤¦¤è¤ê¡¢Spearman ¤ÎÊý¤¬¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©

»î¤·¤ËξÊý¤ä¤Ã¤¿¤é¡¢Î¾Êý¡¢Í­°Õº¹¤¬¤¢¤ê¡¢Æ±¤¸·ë²Ì¤ÇÁê´Ø¤¢¤ê¤È¤Ê¤ê¤Þ¤·¤¿¡£

¤ª¼ê¿ô¤ò¤ª³Ý¤±Ãפ·¤Þ¤¹¤¬¡¢¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

Re: Áê´Ø·¸¿ô¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥¢¥á¥ê¡½ 2020/11/18(Wed) 10:40 No. 22984 HomePage
Ê䭤Ǥ¹¤¬¡¢ÊÒÊý¤¬¡¡1¡¡2¡¡3¡¡4¡¡5¡¡6¤ÎÀµµ¬Ê¬Éۥǡ¼¥¿¡¢¤â¤¦ÊÒÊý¤¬1¡Á29¤Þ¤Ç¤ÎÈóÀµµ¬Ê¬ÉۤΥǡ¼¥¿¤Ê¤Î¤Ç¡¢Spearman ¤Î½ç°ÌÁê´Ø·¸¿ô¤Ç¸¡Äꤷ¤è¤¦¤È»×¤¤¤Þ¤¹¡£

¤â¤·¡¢´Ö°ã¤Ã¤Æ¤¤¤¿¤é¡¢¤´¶µ¼ø¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£
¤ª¼ê¿ô¤ò¤ª³Ý¤±Ãפ·¤Þ¤¹¤¬¡¢¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

Re: Áê´Ø·¸¿ô¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/11/18(Wed) 22:54 No. 22986
Áê´Ø·¸¿ô¤Ë¤Ä¤¤¤Æ¤Îº£²ó¤Î¼ÁÌä¤Ï¡¤Æó¤Ä¤ÎÊÑ¿ô¤¬Àµµ¬Ê¬ÉÛ¤¹¤ë¤«¤É¤¦¤«¤Ç¤Ï¤Ê¤¯¡¤¥Ô¥¢¥½¥ó¤ÎÀÑΨÁê´Ø·¸¿ô¤ÏľÀþÁê´Ø¤ò¸«¤ë¤Î¤ËÂФ·¤Æ¡¤¥¹¥Ô¥¢¥Þ¥ó¤Î½ç°ÌÁê´Ø·¸¿ô¤Ï¶ÊÀþÁê´Ø¤ò¸«¤ë¤È¤¤¤¦ÂÐÈæ¤Ç¤Ï¤Ê¤¤¤«¤È»×¤ï¤ì¤Þ¤¹¤¬¡£¤Þ¤¢¡¤ÊÒÊý¤ÎÊÑ¿ô¤¬Â礭¤ÊÃͤò¼è¤ê¤¬¤Á¡Ê¤¢¤Ê¤¿¤Î¤¤¤¦FʬÉÛÎà»÷¤Î¤è¤¦¤ÊʬÉۡˤξì¹ç¤Ï¡¤Ä¾ÀþÁê´ØÅù¤è¤ê¤Ï¶ÊÀþÁê´Ø¤Ã¤Ý¤¯¤Ê¤ë¤Ç¤·¤ç¤¦¤¬¡Ë¡£
ξ¼Ô¤Î°ã¤¤¤Ï¡¤Àµµ¬Ê¬ÉÛ¤¹¤ë¤«¤·¤Ê¤¤¤«¤ÎÌäÂê¤Ï¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¡£¤Ä¤Þ¤ê¡¤¥Ô¥¢¥½¥ó¤ÎÀÑΨÁê´Ø·¸¿ô¤Ï¡¤Î¾¼Ô¤¬Àµµ¬Ê¬Éۤ˽¾¤¦¤«¤É¤¦¤«¤ÏÍ×·ï¤Ë¤·¤Æ¤¤¤Ê¤¤¤Ç¤·¤ç¤¦¡£¤â¤È¤ÎÊÑ¿ô¤¬ y = a*x + b ¤Ê¤Î¤«¡¤¤¢¤ë¤¤¤Ï¡¤¤¿¤È¤¨¤Ð y = f(x) ¡¤¤¿¤È¤¨¤Ð y¡ác * x^d ¤È¤« ¤Î¶ÊÀþÁê´Ø¤«¤É¤¦¤«¤È¤¤¤¦¤³¤È¡£
Àµµ¬Ê¬ÉÛ¤¹¤ë¤«¤·¤Ê¤¤¤«¤Ï¡¤¶Ëü¤Ê¿ôÃͤ¬¸½¤ì¤ä¤¹¤¤¤«¤É¤¦¤«¤È¤¤¤¦¤³¤È¤Ë¤â´Ø·¸¤·¤Þ¤¹¤¬¡Ê¶Ëü¤ÊÃͤ¬¤¢¤ë¤È¡¤¥Ô¥¢¥½¥ó¤ÎÀÑΨÁê´Ø·¸¿ô¤ÏÂ礭¤¯¤Ê¤ê¤ä¤¹¤¤¡£¶Ëü¤Ê¾ì¹ç¤Ï¡¤¤ï¤º¤«1¸Ä¤Î¶Ëü¤ÊÃͤΤ¿¤á¤ËÁê´Ø·¸¿ô¤¬1¤Ë¶Ë¤á¤Æ¶á¤¤Ãͤˤʤë»ö¤â¤¢¤ë¡Ë¡£

°Ê²¼¤ÎÎã¤Ï y2 = y^3 / 1e4 ¤È¤·¤¿¤â¤Î¤Ç¤¹¤¬¡¤¶ÊÀþÁê´Ø¤ÈľÀþÁê´Ø¤Î°ã¤¤¤Ë¤Ä¤¤¤Æ¤ÎÎ㼨¤Ç¤¹¡£Âç¾®´Ø·¸¤ò¬Äꤹ¤ë¥¹¥Ô¥¢¥Þ¥ó¤Î½ç°ÌÁê´Ø·¸¿ô¤Ïξ¼Ô¤ÇÁ´¤¯Æ±¤¸¤Ë¤Ê¤ê¤Þ¤¹¤¬¡¤Ä¾ÀþÁê´Ø¤òµá¤á¤ë¥Ô¥¢¥½¥ó¤ÎÀÑΨÁê´Ø·¸¿ô¤Ï¤Á¤¤¤µ¤¯¤Ê¤ê¤Þ¤¹¡£¤Ä¤Þ¤ê¡¤¶ÊÀþÁê´Ø¤Î¾ì¹ç¤Ï¡¤¥Ô¥¢¥½¥ó¤ÎÀÑΨÁê´Ø·¸¿ô¤Ï¥¹¥Ô¥¢¥Þ¥ó¤Î½ç°ÌÁê´Ø·¸¿ô¤è¤ê¾®¤µ¤ÊÃͤˤʤê¤Þ¤¹¡£

¤Þ¤¢¡¤Î¾¼Ô¤ò·×»»¤·¤Æ¡¤¤É¤Á¤é¤âÍ­°Õ¤ÊÁê´Ø·¸¿ô¤È¤¤¤¦·ë²Ì¤Ë¤Ê¤Ã¤¿¤Î¤Ê¤é¡¤¤É¤Á¤é¤Ç¤â¤è¤¤¤Ç¤·¤ç¤¦¤¬¡¤¤½¤ì¤¾¤ì¤ÎÁê´Ø·¸¿ô¤¬²¿¤ò¬Äꤷ¤Æ¤¤¤ë¤Î¤«¤ÏÍý²ò¤·¤ÆÃÖ¤¤¤¿Êý¤¬¤è¤¤¤Ç¤·¤ç¤¦¡£¤Ä¤Þ¤ê¡¤¤¢¤Ê¤¿¤Ï¡¤ÆóÊÑ¿ô¤ÎÁê´Ø´Ø·¸¤Ë¤ª¤¤¤Æ¡¤¶ÊÀþÁê´Ø¤òÁÛÄꤷ¤¿¤Î¤«¡¤Ä¾ÀþÁê´Ø¤òÁÛÄꤷ¤¿¤Î¤«¤È¤¤¤¦º¬ËÜŪ¤ÊÁ°Äó°Õ¼±¤¬¤¢¤Ã¤¿¤Î¤«¤É¤¦¤«¤È¤¤¤¦¤³¤È¤Ç¤¹¡£¤³¤ì¤Ï¡¤½ÅÍפʤ³¤È¤Ç¤¹¤è¡£ÆóÊÑ¿ô¤Î´Ö¤Î°ø²Ì´Ø·¸¤Ë´ØÏ¢¤¹¤ë¤³¤È¤Ç¤¹¤«¤é¡£¥â¥Ç¥ë¤Î°ã¤¤¤Ç¤¹¤è¤Í¡£Ã±¤Ë¡¤Æó¤Ä¤ÎÊÑ¿ô¤¬Àµµ¬Ê¬ÉÛ¤¹¤ë¤«¤É¤¦¤«¤Ê¤ó¤Æ¤³¤È¤Ç¤Ï¤Ê¤¤¤Ç¤¹¡£Áê´Ø´Ø·¸¤ÏÆó¤Ä¤ÎÊÑ¿ô¤¬¤É¤ó¤ÊʬÉۤ˽¾¤¦¤«¤É¤¦¤«¤Ê¤ó¤Æ¤¢¤Þ¤ê½ÅÍפʤ³¤È¤Ç¤Ï¤Ê¤¤¤Ç¤¹¡£


Re: Áê´Ø·¸¿ô¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥¢¥á¥ê¡½ 2020/11/19(Thu) 12:41 No. 22988 HomePage
ÀÄÌÚÀèÀ¸

¤ªÊÖ»ö¡¢¤É¤¦¤â¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¤È¤Ã¤Æ¤âÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿¡£

¼ÂºÝ¤Î½ê¡¢ÀèÀ¸¤Î¤ª¼¨¤·¤¯¤À¤µ¤Ã¤¿±¦Â¦¤Î¿Þ¤Î¤è¤¦¤ÊFʬÉÛ¤¬1¤Ä¤È¡¢¤Û¤ÜÉٻλ³·¿¤ÎʬÉۤΥǡ¼¥¿¤¬1¤Ä¤Ç¡¢¤½¤ÎÁê´Ø¤ò¤ß¤¿¤¤¤È»×¤¤¤Þ¤·¤¿¡£

¤¿¤À¡¢1¡Á6¤Þ¤Ç¡¢6¤¬ºÇ¶¯¤È¹Í¤¨¡¢¥¹¥Ô¥¢¥Þ¥ó¤Î½ç°ÌÁê´Ø·¸¿ô¤ò»»½Ð¤·¤¿¤È¤³¤í¡¢rs=0.12¤È¤Ê¤ê¡¢¤Û¤ÜÁê´Ø¤Ê¤·¤È¤Ê¤ê¤Þ¤·¤¿¡£

¤¿¤À¡¢1¡Á6¤Þ¤Ç¤Î¿ôÃͥǡ¼¥¿¤È¡¢2¥«¥Æ¥´¥ê¡¼(Îɤ¤¡¦°­¤¤)¤Ë¤·¤¿¦Ö2¸¡Äê¤Ç¤Ï¡¢Í­°Õ¤µ¤¬¸«¤é¤ì¡¢¸¡Äê¤Ï¤É¤ì¤òɽ¼¨¤¹¤Ù¤­¤«¡¢º®Í𤷤Ƥª¤ê¡¢¤´¶µ¼ø¤¤¤¿¤À¤±¤Þ¤»¤ó¤Ç¤·¤ç¤¦¤«¡©

¸ü¤«¤Þ¤·¤¤¤ª´ê¤¤¤ÇÂçÊÑ¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£¤ª¼ê¿ô¤ò¤ª³Ý¤±Ãפ·¤Þ¤¹¤¬¡¢¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

¤³¤³¤Þ¤Ç½ñ¤¤¤Æµ¤¤¬ÉÕ¤¤¤¿¤Î¤Ç¤¹¤¬¡¢FʬÉÛ¤ÈÉٻλ³¤Ç¤Ï¡¢Áê´Ø¤Ê¤·¤ÇÅö¤¿¤êÁ°¤Ç¤¹¤è¤Í¡£¡£¡£¥Ð¥«¤ß¤¿¤¤¤Ê¼ÁÌä¤Ç¡¢ÂçÊÑ¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£


¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤Î·ë²Ì¤ÎÆÉ¤ßÊý¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥¢¥á¥ê¡½ 2020/10/07(Wed) 14:57 No. 22965 HomePage
¤ªÀ¤Ïäˤʤê¤Þ¤¹¡£

¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤Î·ë²Ì¤ÎÆÉ¤ßÊý¤òÊÙ¶¯¤·¤Æ¤¤¤Þ¤¹¡£

SPSS¤Î·ë²Ì¤òÀâÌÀ¤·¤¿¥µ¥¤¥È¤Î¡¢¥ª¥Ã¥ºÈæ¤ÎÀâÌÀ¤ÎÃæ¤Ë¡¢

1¤è¤ê¤âÂ礭¤¤¤Û¤É¡¢¤Þ¤¿¤Ï¾®¤µ¤¤¤Û¤É¡¢±Æ¶ÁÎϤ¬¶¯¤¤¤Ç¤¹¡¡¤È¤¤¤¦ÀâÌÀ¤¬¤¢¤ê¡¢Îã¤È¤·¤Æ
ǯÎð¤Ï¥ª¥Ã¥ºÈæ0.964(CI:0.932-0.997)¡¢À­Ê̤Ï2.799(CI: 1.048-7.477)¤Ç¤¹¤«¤é¡¢Ç¯Îð¤ÎÊý¤¬±Æ¶ÁÎϤò¤â¤Á¤Þ¤¹¡¡¤È¤¢¤ê¤Þ¤·¤¿¡£

¿ôÃͤÀ¤±¤ß¤ë¤È¡¢À­Ê̤ÎÊý¤¬±Æ¶ÁÎϤ϶¯¤¤¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

¤ªË»¤·¤¤Ãæ¡¢ÂçÊÑ¿½¤·Ìõ¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢¤­¤Á¤ó¤ÈÍý²ò¤·¤¿¤¤¤Î¤Ç¡¢¶µ¤¨¤Æ¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

Re: ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤Î·ë²Ì¤ÎÆÉ¤ßÊý¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/10/07(Wed) 16:24 No. 22966 HomePage
¡ÖSPSS¤Î·ë²Ì¤òÀâÌÀ¤·¤¿¥µ¥¤¥È¡×¤È¤¤¤¦¤Î¤Ï
SPSS¤Ç¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢Ê¬ÀÏ
¤Ç¤¹¤Í¡£

¾¤Î¥µ¥¤¥È¤â¸«¤ë¤È¤è¤¤¤Ç¤·¤ç¤¦¡£¤¿¤È¤¨¤Ð¡¤

¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢
¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢(1/4)
¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢(2/4)
¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢(3/4)
¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢(4/4)


Re: ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤Î·ë²Ì¤ÎÆÉ¤ßÊý¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥¢¥á¥ê¡½ 2020/10/08(Thu) 16:36 No. 22967 HomePage
ÀÄÌÚÀèÀ¸

¤ªÊÖ»ö¤È¥ê¥ó¥¯¤ò¤É¤¦¤â¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
ÊÙ¶¯¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£

Re: ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤Î·ë²Ì¤ÎÆÉ¤ßÊý¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥¢¥á¥ê¡½ 2020/10/30(Fri) 11:40 No. 22978 HomePage
ÀÄÌÚÀèÀ¸

¥ê¥ó¥¯¤ò¤É¤¦¤â¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
ÊÙ¶¯¤·¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢¤¤¤Þ¤¤¤Á¡¢¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£

ÀÄÌÚÀèÀ¸¤Î¥µ¥¤¥È2¥Ú¡¼¥¸Ìܤˤϡ¢¡Ö¥ª¥Ã¥ºÈ椬1¤ò²¼²ó¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£Î㤨¤Ð¡¢ÀâÌÀÊÑ¿ô¤Ë¥¦¥©¡¼¥­¥ó¥°Í­Ìµ¤¬¤¢¤ê¡¢¥ª¥Ã¥ºÈ椬0.8¤À¤È¤·¤Þ¤¹¡£¡ÖÉÔ·ò¹¯¡×¤Ë¤Ê¤ë¥ª¥Ã¥ºÈæ¤Ï0.8¤Ç¤¹¤Î¤Ç¡¢µÕ¿ô¡Ê1¡à0.8¡á1.25¡Ë¤ò·×»»¤·¡¢¥¦¥©¡¼¥­¥ó¥°¤Î¡Ö·ò¹¯¡×¤Ë¤Ê¤ë¥ª¥Ã¥ºÈæ¤Ï1.25¤È¤¤¤¦²ò¼á¤â¤Ç¤­¤Þ¤¹¡£¡×¤È¤¢¤ê¤Þ¤·¤¿¡£

¤½¤³¤Ç¡¢ÎãÂê¤Î¥ª¥Ã¥º¤ò·×»»¤¹¤ë¤È¡¢

1/0.964=1.037¡¡¤Ç¤·¤¿¡£

»ä¤¬ºÇ½é¤Ëµ¿Ìä¤ò¤â¤Ã¤¿¥µ¥¤¥È¤Ë¤Ï¡¢¡ÖǯÎð¤Ï¥ª¥Ã¥ºÈæ0.964(CI:0.932-0.997)¡¢À­Ê̤Ï2.799(CI: 1.048-7.477)¤Ç¤¹¤«¤é¡¢Ç¯Îð¤ÎÊý¤¬±Æ¶ÁÎϤò¤â¤Á¤Þ¤¹¡×¤È¤¢¤ê¤Þ¤·¤¿¡£

¤ä¤Ï¤ê¿ôÃͤÀ¤±¤ß¤ë¤È¡¢À­ÊÌ(2.799)¤ÎÊý¤¬Ç¯Îð(1.037)¤è¤ê¡¢±Æ¶ÁÎϤ϶¯¤¤¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

ÀÄÌÚÀèÀ¸¤Î¥µ¥¤¥È¤Î3¥Ú¡¼¥¸¤Ë¤Ï¡¢¡Ö¥ª¥Ã¥ºÈæ¤ÏÀâÌÀÊÑ¿ô¤ÎÌÜŪÊÑ¿ô¤Ø¤Î±Æ¶ÁÅÙ¤òÄ´¤Ù¤ë¼ÜÅ٤Ǥ¹¡£Ãͤ¬Â礭¤¤¤Û¤É±Æ¶ÁÅÙ¤¬¹â¤¤¹àÌܤȤ¤¤¨¤Þ¤¹¡£¡×

¤È¡¢¤¢¤ê¤Þ¤·¤¿¡£

¤â¤·¡¢ÏÀʸ¤Ë½ñ¤¯¤Ê¤é¡¢
¡ÖÀ­ÊÌ(2.799)¤ÎÊý¤¬Ç¯Îð(1.037)¤è¤ê¡¢±Æ¶ÁÎϤ϶¯¤¤¡×¤È½ñ¤¤¤Æ¤Ï¡¢´Ö°ã¤¤¤Î¤è¤¦¤Ç¤¹¤¬¡¢Íýͳ¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£

¤ªË»¤·¤¤Ãæ¡¢ÂçÊÑ¿½¤·Ìõ¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢ç¥¤ËÍî¤Á¤Ê¤¤¤Î¤Ç¡¢¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡©
¤ª¼ê¿ô¤ò¤ª³Ý¤±Ãפ·¤Þ¤¹¤¬¡¢¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

Re: ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤Î·ë²Ì¤ÎÆÉ¤ßÊý¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/10/30(Fri) 16:23 No. 22979
> ÀÄÌÚÀèÀ¸¤Î¥µ¥¤¥È2¥Ú¡¼¥¸Ìܤˤϡ¢¡Ö¥ª¥Ã¥ºÈ椬1¤ò²¼²ó¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£

°Ê²¼¤Î¥Ú¡¼¥¸¤Ï¡¤»ä¤Î¥Ú¡¼¥¸¤Ç¤Ï¤Ê¤¤¤Ç¤¹¤è¡£
> ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢(1/4)
> ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢(2/4)
> ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢(3/4)
> ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢(4/4)

·ë¶É¤Î½ê¡¤¤¢¤Ê¤¿¤¬ºÇ½é¤Ë¸«¤¿
> ¡ÖSPSS¤Î·ë²Ì¤òÀâÌÀ¤·¤¿¥µ¥¤¥È¡×¤È¤¤¤¦¤Î¤Ï
> SPSS¤Ç¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢Ê¬ÀÏ

¤¬¡¤Ã±¤Ë´Ö°ã¤¨¤Æ¤¤¤ë¤À¤±¡£¤È¤¤¤¦¤³¤È¤Ç¤¹¡£

»ä¤¬»²¹Í¤Ëµó¤²¤¿¥Ú¡¼¥¸¤Î¾¤Ë¤â»²¾È¤¹¤ì¤Ð¡¤¤¢¤Ê¤¿¤ÎÍý²ò¤¬Àµ¤·¤¤¤Î¤À¤È³Î¿®¤Ç¤­¤ë¤Ç¤·¤ç¤¦¡¤¤È¤¤¤¦¤Ä¤â¤ê¤Ç¤·¤¿¤±¤É

Re: ¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤Î·ë²Ì¤ÎÆÉ¤ßÊý¤Ë¤Ä¤­¤Þ¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥¢¥á¥ê¡½ 2020/10/30(Fri) 16:44 No. 22980 HomePage
ÀÄÌÚÀèÀ¸

ÂçÊÑ¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
¤½¤¦¤À¤Ã¤¿¤Î¤Ç¤¹¤Í¡£
¥µ¥¤¥È¤Î¾ðÊó¤ò¿®¤¸¤Æ¤·¤Þ¤¤¡¢Í¾·×º®Í𤷤Ƥ·¤Þ¤¤¤Þ¤·¤¿¡£
¤É¤¦¤â¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
°Ê¸å¡¢µ¤¤òÉÕ¤±¤Þ¤¹¡£
¤É¤¦¤â¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


3»þÅÀ¤Î¥Ç¡¼¥¿¤Ç¡¢»þÅÀ´Ö¤ÎÊѲ½Î̤òÈæ³Ó¤¹¤ëÊýË¡
¡¡¡¡Åê¹Æ¼Ô¡§ÅÌÄï 2020/10/22(Thu) 18:27 No. 22973
¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£·ÇÂê¤Î·ï¤ÇÁêÃ̤µ¤»¤Æ¤¯¤À¤µ¤¤¡£

³Æ¥µ¥ó¥×¥ë¤ËÂФ·¤Æ¡¢t1¢ª t2¢ª t3¤Î£³»þÅÀʬ¡¢¤¢¤ëÃͤò¬Äꤷ¤Þ¤·¤¿¡£
¤½¤Î¬ÄêÃͤÏϢ³ÃͤÇÀµµ¬Ê¬Éۤ˽¾¤¦¤È¤·¤Þ¤¹¡£

¤³¤ÎºÝ¡¢t2-t1, t3-t2¤ÎÃͤ˺¹¤¬¤¢¤ë¤«¤ò¸¡Äꤷ¤¿¤¤¤È¹Í¤¨¤Æ¤ª¤ê¤Þ¤¹¡£

¤³¤Î¤è¤¦¤Ê¸¡Äê¤ò¹Ô¤¤¤¿¤¤¤Ê¤é¡¢
(t3-t2)-(t2-t1)¤ò·×»»¤·¤Æ¡¢£±É¸ËÜt¸¡Äꤹ¤ë¤È¤¤¤¦¥¢¥×¥í¡¼¥Á¤ÇÎɤ¤¤Ç¤·¤ç¤¦¤«¡©

¤³¤Î¥¢¥×¥í¡¼¥Á¤Ë¤Ä¤¤¤Æ¤´°Õ¸«¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£

Re: 3»þÅÀ¤Î¥Ç¡¼¥¿¤Ç¡¢»þÅÀ´Ö¤ÎÊѲ½Î̤òÈæ³Ó¤¹¤ëÊýË¡
¡¡¡¡Åê¹Æ¼Ô¡§¶¶ËÜÀ¿ 2020/10/23(Fri) 08:10 No. 22974
ËèÄ«¤³¤Î·Ç¼¨ÈĤǤÁ¤ç¤³¤Ã¤È¤º¤ÄÊÙ¶¯¤µ¤»¤Æ¤¤¤¿¤À¤¤¤Æ¤¤¤ë¥ÉÁǿͤ¬¤¤¤¦¤Î¤â²¿¤Ç¤¹¤¬¡¢
¸¡Äê¤Î¿½ÅÀ­¤ÎÌäÂ꤬¤¢¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£

Re: 3»þÅÀ¤Î¥Ç¡¼¥¿¤Ç¡¢»þÅÀ´Ö¤ÎÊѲ½Î̤òÈæ³Ó¤¹¤ëÊýË¡
¡¡¡¡Åê¹Æ¼Ô¡§ÅÌÄï 2020/10/23(Fri) 13:29 No. 22975
¤´°Õ¸«¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

(t3-t2)-(t2-t1)¤Ç·×»»¤·¤¿»ØÉ¸°ì¤Ä¤·¤«¸¡Äꤷ¤Ê¤¤¤Î¤Ç¡¢
¿½ÅÀ­¼«ÂΤÏȯÀ¸¤·¤Ê¤¤¤È¹Í¤¨¤Þ¤¹

Re: 3»þÅÀ¤Î¥Ç¡¼¥¿¤Ç¡¢»þÅÀ´Ö¤ÎÊѲ½Î̤òÈæ³Ó¤¹¤ëÊýË¡
¡¡¡¡Åê¹Æ¼Ô¡§¶¶ËÜÀ¿ 2020/10/23(Fri) 15:10 No. 22976
¼ºÎ餷¤Þ¤·¤¿¡£Âбþ¤¢¤ê¤Î£Ô¸¡Äê°ì²ó¤Ç¤¹¤Í¡£
¥ì¥Ù¥ë¤ÎÄ㤤½ñ¤­¹þ¤ß¡¢¤´ÍƼϤ¯¤À¤µ¤¤¡£


¡Ú£Ò¡Ûapply()´Ø¿ô¤Î»È¤¤Êý
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2020/10/14(Wed) 09:52 No. 22968
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£
Ë衹¡¢¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
²þ¤á¤Æ¸æÎé¤ò¿½¤·¾å¤²¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

apply()´Ø¿ô¤ò¤Ä¤«¤Ã¤¿¹ß½ç¥½¡¼¥È¤Ë¤Ä¤¤¤Æ¡¢¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
²¿Â´¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

---------------------------------

´Êñ¤ÊÎãÂê¤Ç¤ª¼¨¤·¤ò¤·¤Þ¤¹¡£

5¹Ô3Îó¤Î¹ÔÎã¤òºîÀ®¤·¤Þ¤¹¡£
¥«¥é¥à¤Î¥é¥Ù¥ë¤Ï¡¢·î¤Î̾¾Î¤ò¤ª¼Ú¤ê¤·¤Þ¤·¤¿¡£

v <- sample(1:15)
mat <- matrix(v, nc=3)
colnames(mat) <- month.name[1:3]

> mat
January February March
[1,] 13 10 8
[2,] 12 11 14
[3,] 2 1 6
[4,] 4 3 15
[5,] 7 5 9

¤ä¤ê¤¿¤¤¤³¤È¤Ï¡¢
³Æ¹Ô¤Ë¤Ä¤¤¤Æ¡¢Ãͤò¹ß½ç¥½¡¼¥È¤·¤Æ¡¢
Ãͤ½¤Î¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢¤½¤Î¥«¥é¥à¤Î¥é¥Ù¥ë¤Çɽ¼¨¤·¤¿¤¤¤È»×¤¤¤Þ¤¹¡£

½ÐÍè¾å¤¬¤ê¥¤¥á¡¼¥¸¤Ï¡¢°Ê²¼¤Ç¤¹¡£

> mat2
Âè1°Ì Âè2°Ì Âè3°Ì
[1,] "January" "February" "March"
[2,] "March" "January" "February"
[3,] "March" "January" "February"
[4,] "March" "January" "February"
[5,] "March" "January" "February"

¤Þ¤º¤Ï¡¢¥ë¡¼¥×¤ò²ó¤¹¥×¥í¥°¥é¥à¤òºîÀ®¤·¤Þ¤·¤¿¡£

label <- colnames(mat)
loop <- 1:nrow(mat)

mat2 <- mat
for(i in loop) {
v <- mat[i,]
mat2[i,] <- label[order(v, decreasing=TRUE)]
}

colnames(mat2) <- paste("Âè", 1:ncol(mat), "°Ì", sep="")
mat2

apply()´Ø¿ô¤ò»È¤Ã¤Æ¤ä¤ê¤¿¤¤¤È»×¤¤¡¢°Ê²¼¤òºîÀ®¤·¤Þ¤·¤¿¡£

mat2 <- apply(mat, 1, function(x) label[order(x, decreasing=TRUE)])
·ë²Ì¤Ï¡¢½ê˾¤¹¤ë¤â¤Î¤È¤Ï¤Þ¤Ã¤¿¤¯°ã¤¤¤Þ¤¹¡£

> mat2
[,1] [,2] [,3] [,4] [,5]
[1,] "January" "March" "March" "March" "March"
[2,] "February" "January" "January" "January" "January"
[3,] "March" "February" "February" "February" "February"

»ä¤Ë¤Ï¡¢Íý²ò¤Ç¤­¤Ê¤¤¤Çº¤¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£
¤´¶µ¼¨¤ò¤¤¤¿¤À¤±¤ì¤ÐÂçÊѤ˽õ¤«¤ê¤Þ¤¹¡£
¤ª¼ê¿ô¤ò¤ª¤«¤±¤¤¤¿¤·¤Þ¤¹¡£
//

Re: ¡Ú£Ò¡Ûapply()´Ø¿ô¤Î»È¤¤Êý
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2020/10/14(Wed) 23:02 No. 22969
apply() ¤ÇÊÖ¤µ¤ì¤ë¤â¤Î¤¬²¿¤Ê¤Î¤«¤ò³Îǧ¤·¤Æ¤¯¤À¤µ¤¤
> apply(mat, 1, function(x) order(x, decreasing=TRUE))
[,1] [,2] [,3] [,4] [,5]
[1,] 1 3 3 3 3
[2,] 2 1 1 1 1
[3,] 3 2 2 2 2
¤Ê¤Î¤Ç¡¤µá¤á¤ë¤â¤Î¤òÆÀ¤ë¤¿¤á¤Ë¤Ï¡¤
> label[apply(mat, 1, function(x) order(x, decreasing=TRUE))]
[1] "January" "February" "March"
[4] "March" "January" "February"
[7] "March" "January" "February"
[10] "March" "January" "February"
[13] "March" "January" "February"
¤È¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ç¤¹¡£
¤Þ¤¿¤Ï¡¤
> mat2 <- t(apply(mat, 1, function(x) label[order(x, decreasing=TRUE)]))
> mat2
[,1] [,2] [,3]
[1,] "January" "February" "March"
[2,] "March" "January" "February"
[3,] "March" "January" "February"
[4,] "March" "January" "February"
[5,] "March" "January" "February"
¤Ç¤â¤è¤¤¤Ç¤¹¡£

¸æÎé¡ÊRe:¡Ú£Ò¡Ûapply()´Ø¿ô¤Î»È¤¤Êý¡Ë
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2020/10/15(Thu) 08:07 No. 22970
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£
Í­¤êÆñ¤¤¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢¿´¤«¤é¡¢¿´¤è¤ê´¶¼Õ¿½¤·¾å¤²¤Þ¤¹¡£
¤´ÃúÇ«¤Ë¤´ÀâÌÀ¤ò¤·¤Æ¤¯¤À¤µ¤¤¤Þ¤·¤¿¤Î¤Ç¡¢¤è¤¯Íý²ò¤Ç¤­¤Þ¤·¤¿¡£
À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
//


Àµµ¬Ê¬¤·¤Ê¤¤Ï¢Â³ÊÑ¿ô¤ÎÈ¿Éü¬Äê
¡¡¡¡Åê¹Æ¼Ô¡§MoMo 2020/09/05(Sat) 13:36 No. 22955
¤¤¤Ä¤â¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£
One-way repeated measures ANOVA¤ËÂбþ¤¹¤ëÈóÀµµ¬Ê¬ÉÛϢ³ÊÑ¿ô¤Î²òÀϤÏFriedman¸¡Ä꤫¤È»×¤¤¤Þ¤¹¡£Two-way repeated measures ANOVA¤ËÂбþ¤¹¤ë¤½¤ì¤Ï¸½ºß¤Î¤È¤³¤í¸ºß¤·¤Ê¤¤¤Èʹ¤­¤Þ¤·¤¿¡£¤³¤ì¤¬ËÜÅö¤Ê¤é¤Ð¡¢¤³¤Î²òÀϤϤɤΤ褦¤Ë¤¹¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤«¡©
ÈóÀµµ¬Ê¬ÉÛ¤¹¤ëϢ³ÊÑ¿ô¤òƱ°ìÈ︡¼Ô¤Ë¤ª¤¤¤Æ3²ó¬Äꤷ¡¢3·²¤ÎÈ︡¼Ô¤Î¥°¥ë¡¼¥×´Ö¤Ç¤³¤ì¤é¤¬Æ±°ì¤Ç¤¢¤ë¡¢¤È¤¤¤¦µ¢Ìµ²¾Àâ¤òÈÝÄꤷ¤è¤¦¤È¤·¤Æ¤¤¤Þ¤¹¡£
¤´¶µ¼ø¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£

Re: Àµµ¬Ê¬¤·¤Ê¤¤Ï¢Â³ÊÑ¿ô¤ÎÈ¿Éü¬Äê
¡¡¡¡Åê¹Æ¼Ô¡§ÎëÌÚ¹¯¹° 2020/09/10(Thu) 16:29 No. 22957
¡¡Ã¯¤âÅú¤¨¤Ê¤¤¤È¤³¤í¤ò¸«¤ë¤È¡¢¤ä¤Ï¤êANOVA¤Ç¤ä¤ë¤·¤«¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¡£
ANOVA¤ÏÀµµ¬À­¤Î²¾Äê¤Ë¤Ä¤¤¤Æ¤Ï´è·ò¤À¤È¤µ¤ì¤ë¤Î¤Ç¡£


¶¦Ê¬»¶Ê¬ÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¾®Åè 2020/08/17(Mon) 21:56 No. 22941
Åý·×½é¿´¼Ô¤Ç¡¢½é¤á¤Æ¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£
¶µ°é¸½¾ì¤ÇƯ¤­¤Ê¤¬¤é¡¢¼ÂÁ©¸¦µæ¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£

¤¢¤ë³Ø½¬ÊýË¡¤ò1ǯ´Ö¼Â»Ü¤¹¤ëA¥¯¥é¥¹¡Ê¼Â¸³·²¡Ë¤È¼Â»Ü¤·¤Ê¤¤B¡¤C¥¯¥é¥¹¡ÊÅýÀ©·²¡Ë¤¬¤¢¤ê¤Þ¤¹¡£
»öÁ°¡Ê4·î¡Ë¤È»ö¸å¡ÊÍâǯ¤Î3·î¡Ë¤ËƱÍͤΥƥ¹¥È¤ò¼Â»Ü¤·¡¢»öÁ°¤«¤é»ö¸å¤Ë¤«¤±¤Æ¤Î¥Æ¥¹¥È¤ÎÅÀ¿ô¤Î¿­¤Ó¶ñ¹ç¤òÈæ³Ó¤·¤ÆÅö³º³Ø½¬ÊýË¡¤¬Í­¸ú¤«¤É¤¦¤«¤ò³Î¤«¤á¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£

¤³¤Î¤è¤¦¤Ê¾ì¹ç¡¢¶¦Ê¬»¶Ê¬ÀϤò¼Â»Ü¤¹¤ë¤«¤È»×¤¦¤Î¤Ç¤¹¤¬¡¢Ä´¤Ù¤¿¸Â¤ê¤Ç¤¹¤¬¡¢2¥¯¥é¥¹¡Ê¼Â¸³·²1¥¯¥é¥¹¤ÈÅýÀ©·²1¥¯¥é¥¹¡Ë¤ÎÈæ³Ó¤Î»ÅÊý¤ÎÎ㤷¤«¸«½Ð¤»¤Þ¤»¤ó¤Ç¤·¤¿¡£
¤½¤Î¤¿¤á¡¢ A¥¯¥é¥¹¤ÈB¥¯¥é¥¹¡¢A¥¯¥é¥¹¤ÈC¥¯¥é¥¹¤Ç¤½¤ì¤¾¤ì¶¦Ê¬»¶Ê¬ÀϤò¼Â»Ü¤·¡¢Î¾Êý¤Î¶¦Ê¬»¶Ê¬ÀϤǡ¢A¥¯¥é¥¹¤ÎÊý¤¬»öÁ°¤«¤é»ö¸å¤Ë¤«¤±¤ÆÍ­°Õ¤Ë¥Æ¥¹¥È¤ÎÅÀ¿ô¤¬¿­¤Ó¤Æ¤¤¤ë¤³¤È¤¬³Îǧ¤Ç¤­¤ì¤Ð¡¢Åö³º³Ø½¬ÊýË¡¤ÏÍ­¸ú¤Ç¤¢¤ë¤È¹Í¤¨¤Æ¤¤¤¤¤Ç¤·¤ç¤¦¤«¡©
¤½¤ì¤È¤â¡¢Â¾¤ÎÎɤ¤¤ä¤êÊý¤¬¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©
¤´¶µ¼¨¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£
¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: ¶¦Ê¬»¶Ê¬ÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÎëÌÚ¹¯¹° 2020/09/11(Fri) 17:07 No. 22958
¡¡¤½¤Î¤ä¤êÊý¤Ç¤â¤¤¤¤¤È»×¤¤¤Þ¤¹¤¬¡¢B,C¥¯¥é¥¹¤òºÇ½é¤«¤é¤Ò¤È¤Þ¤È¤á¤Ë¤¹¤ë¤ï¤±¤Ë¤Ï¤¤¤«¤Ê¤¤¤ó¤Ç¤¹¤«?

Re: ¶¦Ê¬»¶Ê¬ÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¾®Åè 2020/09/11(Fri) 22:47 No. 22959
ÎëÌÚÀèÀ¸
¤ªÅú¤¨¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤Ç¤Ï¡¢ B,C¥¯¥é¥¹¤ò¤Ò¤È¤Þ¤È¤á¤Ë¤·¤Æ¶¦Ê¬»¶Ê¬ÀϤò¤·¤Þ¤¹¡£

Åö³º¤Î¶¦Ê¬»¶Ê¬ÀϤˤĤ¤¤ÆÄɲäǶµ¤¨¤Æ¤¤¤¿¤À¤­¤¿¤¤¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£
»öÁ°¤Î¥Æ¥¹¥È¤ò¶¦ÊÑÎ̤Ȥ¹¤ë¶¦Ê¬»¶Ê¬ÀϤò¼Â»Ü¤·¤¿ºÝ¡¢¥¯¥é¥¹¡Ê¸ÇÄê°ø»Ò¡Ë-»öÁ°¤Î¥Æ¥¹¥È¡Ê¶¦ÊÑÎ̡ˤθò¸ßºîÍѤ¬Í­°Õ¤Ë¤Ê¤Ã¤¿¾ì¹ç¡¢¶¦Ê¬»¶Ê¬ÀϤò¼Â»Ü¤¹¤ë¤Î¤¬Å¬ÀڤǤʤ¤¤³¤È¤Ïʬ¤«¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¤³¤Î¸å¡¢¤É¤Î¤è¤¦¤Ë¤¹¤ì¤ÐÈæ³Ó¤¬¤Ç¤­¤ë¤Î¤«¤ò¾Ü¤·¤¯¶µ¤¨¤Æ¤¤¤¿¤À¤±¤ì¤Ð¤È»×¤¤¤Þ¤¹¡£
¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£

Re: ¶¦Ê¬»¶Ê¬ÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÎëÌÚ¹¯¹° 2020/09/13(Sun) 09:52 No. 22960
¥¯¥é¥¹¤ä¥Æ¥¹¥È¤Î»þ´ü¤ò£°¡¢£±¤ÎÊÑ¿ô¤Ë¤·¤Æ½Å²óµ¢Ê¬ÀϤˤ·¤Æ¤Ï¡£

Re: ¶¦Ê¬»¶Ê¬ÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¾®Åè 2020/09/14(Mon) 06:25 No. 22961
ÎëÌÚÀèÀ¸
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
½Å²óµ¢Ê¬ÀϤˤĤ¤¤ÆÄ´¤Ù¤Æ¤ä¤Ã¤Æ¤ß¤Þ¤¹¡£
½Å²óµ¢Ê¬ÀϤˤĤ¤¤ÆÊ¬¤«¤é¤Ê¤¤¤³¤È¤¬½Ð¤Æ¤­¤Þ¤·¤¿¤é¡¢¤Þ¤¿¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£
¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
½Å²óµ¢Ê¬ÀϤˤĤ¤¤Æ³Ø¤Ö¾å¤Ç¡¢½é¿´¼Ô¤Ë¤âʬ¤«¤ê¤ä¤¹¤¯¡¢»ä¤Î¤ä¤í¤¦¤È¤·¤Æ¤¤¤ë¤³¤È¤ÎÎ㤬¼¨¤µ¤ì¤Æ¤¤¤ë¤è¤¦¤Ê¤ª¤¹¤¹¤á¤Î½ñÀÒ¤¬¤¢¤ê¤Þ¤·¤¿¤é¡¢¾Ò²ð¤¤¤¿¤À¤±¤ë¤È¹¬¤¤¤Ç¤¹¡£


¼ê¸µ¤Î¥Ç¡¼¥¿¤ÎÀµµ¬Ê¬ÉÛ¡¤ÍýÏÀŪ¤ÊÀµµ¬Ê¬ÉÛ¡©
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2020/09/01(Tue) 13:44 No. 22942
¤ªÀ¤Ïäˤʤê¤Þ¤¹¡£

»ä¤Îµ­²±°ã¤¤¤Ç¤¢¤ì¤ÐÂçÊÑ¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¤¬¡¤°ÊÁ°¡¤¤³¤Î·Ç¼¨ÈǤǡ¤ÀÄÌÚÀèÀ¸¤¬É¸Âê¤Î¤è¤¦¤Ê¤³¤È¤ò½ñ¤«¤ì¤Æ¤¤¤¿¤Î¤Ç¤Ï¤Ê¤¤¤«¤Èµ­²±¤·¤Æ¤ª¤ê¤Þ¤¹¡£¤Ä¤Þ¤ê¡¤¡Ö¼ê¸µ¤Î¥Ç¡¼¥¿¤¬Àµµ¬Ê¬ÉÛ¤¹¤ë¤«¤Ç¤Ï¤Ê¤¯¡¤¤½¤Î¥Ç¡¼¥¿¤¬ÍýÏÀŪ¤ËÀµµ¬Ê¬ÉÛ¤·¤Æ¤¤¤ë¤«¤É¤¦¤«¤¬Âç»ö¡×¤È¤¤¤Ã¤¿ÆâÍÆ¤Ç¤¹¡£

²áµî¥í¥°¤ò¸¡º÷¤·¤Æ¤ª¤ê¤Þ¤¹¤¬¡¤¥Ò¥Ã¥È¤·¤Þ¤»¤ó¤Î¤Ç¡¤»ä¤Î´ª°ã¤¤¤Ê¤Î¤«¤Ê¤È»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¤¬¡¤¼ºÎé¤ò¾µÃΤǡ¤¤ª¿Ò¤Í¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

¤â¤·µ­²±°ã¤¤¤Ç¤Ê¤±¤ì¤Ð¡¤¤½¤Î²áµî¥í¥°¤¬¤É¤ì¤«¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Þ¤¹¤È¹¬¤¤¤Ë¸¤¸¤Þ¤¹¡£

»ä¤Î´ª°ã¤¤¤Ç¡¤ÀÄÌÚÀèÀ¸¤Ë¤´ÌÂÏǤò¤ª¤«¤±¤¹¤ë¤è¤¦¤Ç¤·¤¿¤é¡¤¤³¤ÎÆâÍÆ¤òºï½ü¤¤¤¿¤À¤¤¤Æ¹½¤¤¤Þ¤»¤ó¡£

¼ºÎ餤¤¿¤·¤Þ¤¹¡£

Re: ¼ê¸µ¤Î¥Ç¡¼¥¿¤ÎÀµµ¬Ê¬ÉÛ¡¤ÍýÏÀŪ¤ÊÀµµ¬Ê¬ÉÛ¡©
¡¡¡¡Åê¹Æ¼Ô¡§ÎëÌÚ¹¯¹° 2020/09/04(Fri) 15:35 No. 22954
¡¡¥Ç¡¼¥¿¤ÎÀµµ¬À­¤Î¸¡Äê¤ò¤·¤Æ¤â¡¢¡ÖÀµµ¬Ê¬Éۤ˽¾¤ï¤Ê¤¤¡×¤«¡ÖÀµµ¬Ê¬Éۤ˽¾¤ï¤Ê¤¤¤È¤Ï¤¤¤¨¤Ê¤¤¡×¤È¤·¤«¸À¤¨¤º¡¢¡ÖÀµµ¬Ê¬Éۤ˽¾¤¦¡×¤È¤Ï¸À¤¨¤Ê¤¤¡£¤À¤«¤éÍýÏÀŪ¤ËÀµµ¬Ê¬Éۤ˽¾¤¦¤È¾ÚÌÀ¤·¤¿Êý¤¬¤¤¤¤¡¢¤È¤¤¤¦°ÕÌ£¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£
¡¡¤É¤Îȯ¸À¤«¡¢¤º¤Ð¤ê¼¨¤»¤Ê¤¯¤Æ¡¢¤´¤á¤ó¤Ê¤µ¤¤¡£

Re: ¼ê¸µ¤Î¥Ç¡¼¥¿¤ÎÀµµ¬Ê¬ÉÛ¡¤ÍýÏÀŪ¤ÊÀµµ¬Ê¬ÉÛ¡©
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2020/09/06(Sun) 10:37 No. 22956
ÎëÌÚÀèÀ¸

·Ç¼¨ÈǤò¸«¤Æ¤ª¤é¤º¡¤¤ªÎé¤Î¤ªÊÖ»ö¤¬º£¤Ë¤Ê¤ê¤Þ¤·¤¿¤³¤È¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ¡Ê£²¡Ë
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2020/09/03(Thu) 13:17 No. 22951
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£
ºòÆü¤Ï¡¢¥é¥Ù¥ëÉÕ¤­»¶ÉۿޤˤĤ¤¤Æ¡¢Í­¤êÆñ¤¤¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¤Þ¤·¤¿¡£
À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

ÄɲäμÁÌ䤬¤´¤¶¤¤¤Þ¤¹¡£
²¿Â´¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£

---------------------------------

http://aoki2.si.gunma-u.ac.jp/R/princo.html

iris¥Ç¡¼¥¿¤Ç¡¢plot¥á¥½¥Ã¥É¤Î¥°¥é¥Õɽ¼¨¤ÎÀâÌÀ¤¬¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

> a <- similarity.matrix(iris[1:4]) # Îà»÷ÅÙ¹ÔÎó¤òºî¤ë
> b <- princo(a)
> plot(b, labels=TRUE, col=(1:3)[as.integer(iris[,5])])

£³¹ÔÌܤˤĤ¤¤Æ¡¢¤´¼ÁÌä¤Ç¤¹¡¦

col=as.integer(iris[,5])¤Ç¤âÎɤ¤¤è¤¦¤Ë»×¤¨¤Þ¤¹¤¬¡¢
col=(1:3)[as.integer(iris[,5])]¤È½ñ¤«¤ì¤Æ¤¤¤ëÍýͳ¤Ë¤Ä¤¤¤Æ¤´¶µ¼¨¤¤¤¿¤À¤±¤ì¤Ð
ÂçÊѤËÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤¹¡£

¤ª¼ê¿ô¤ò¤ª¤«¤±¤¤¤¿¤·¤Þ¤¹¡£
¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£
//

Re: ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ¡Ê£²¡Ë
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/09/03(Thu) 16:59 No. 22952 HomePage
col=(1:3)[as.integer(iris[,5]) ¤Ï¾éŤǤ¹¤¬¡¤¿§¤ò1:3 ¤Ç¤Ï¤Ê¤¤¤â¤Î¤Ë¤·¤¿¤¤¤È¤­¡¤
col=c(1, 2, 4)[as.integer(iris[,5]) ¤ä¡¤¤â¤Ã¤È¤ï¤«¤ê¤ä¤¹¤¯
col=c('black', 'blue', 'brown')[as.integer(iris[,5])] ¤Ê¤É¤È½ÐÍè¤Þ¤¹¤È¤¤¤¦Îã¤Î¤Ä¤â¤ê¤À¤Ã¤¿¤è¤¦¤Ç¤¹¡£

¸æÎé¡ÊRe: ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ¡Ê£²¡Ë¡Ë
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2020/09/03(Thu) 17:46 No. 22953
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£
ÂçÊѤËÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿¡£

¤µ¤Ã¤½¤¯³èÍѤµ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£

ͦµ¤¤ò¿¶¤ê¹Ê¤Ã¤Æ¡¢¤ªÊ¹¤­¤·¤Æ¤è¤«¤Ã¤¿¤Ç¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
//


Re:Re:Re: Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§yamada 2020/08/11(Tue) 17:23 No. 22937 HomePage
¡ä¡Öx ¤È y ¤Î¥Ç¡¼¥¿¡×¤Ã¤Æ¡¤ÊÑ¿ô¤Ç¤Ï¤Ê¤¯¡¤·²¤À¤Ã¤¿¤ï¤±¤Ç¤¹¤Í¡£

¡ä¤µ¤Æ¡¤·¹¤­¤ÎÊѲ½ÅÀ¤Î¸¡½Ð¤Ç¤¹¤¬¡¤
¡äÆóËܤÎľÀþ¤Ë¤è¤ëÀÞ¤ìÀþ²óµ¢
¡ähttp://aoki2.si.gunma-u.ac.jp/R/oresen.html
¡ä¤Ê¤É¤Ï¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«¡©

¤Þ¤¿¡¢¤³¤Á¤é¤ÏÍ¥°ÌÀ­¸¡Äê¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡©
ÆóËܤÎľÀþ¤Î·¹¤­Í¥°Ì¤Ëº¹¤¬¤¢¤ë¤«¤É¤¦¤«¤Ï¤É¤¦¤ä¤Ã¤ÆÈ½Äꤷ¤¿¤é¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re:Re:Re: Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/08/12(Wed) 21:54 No. 22938 HomePage
¶¦Ê¬»¶Ê¬ÀÏ
http://aoki2.si.gunma-u.ac.jp/R/covar-test.html

Re:Re:Re: Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§yamada 2020/09/01(Tue) 17:28 No. 22943 HomePage
¤´²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹

¹¹¤Ë¡¢¼ÁÌä¤Ç¤¹¡£

³Æ·²(x,y)¤Î¶­³¦¤¬Û£Ëæ¤Ç¤ï¤«¤Ã¤Æ¤¤¤Ê¤¤¤È¤¤¤¦¾õ¶·¤Ç¡¢
µá¤á¤¿¤¤¤Î¤Ï¡¢²óµ¢·¸¿ô¤¬°Û¤Ê¤ëx1¤ÎÅÀ¤Ê¤Î¤Ç¤¹¤¬¡¢
¤³¤Î¤è¤¦¤Ê¾ì¹ç¡¢
¶­³¦ÃÍx1¤Ç x<x1 ¤È x>=x1 ¤È¥Ç¡¼¥¿¤ò2¤Ä¤Ëʬ¤±¤Æ·²£±¤È·²£²¤È¤·¤Æ
¤«¤é¶¦Ê¬»¶Ê¬ÀϤòÍѤ¤¤Æ¡¢2¤Ä·²¤Î²óµ¢·¸¿ô¤¬Í­°Õ¤Ë°Û¤Ê¤ë
x1¤ÎÃͤòµá¤á¤ë¡¢¤È¤¤¤¦ÊýË¡¤Ç¤â¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

Re:Re:Re: Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/09/03(Thu) 11:41 No. 22950 HomePage
»ÅÊý¤Ê¤¤¤È»×¤¤¤Þ¤¹


ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2020/09/01(Tue) 18:46 No. 22944
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£
Ë衹¡¢¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
²þ¤á¤Æ¸æÎé¤ò¿½¤·¾å¤²¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

ÀÄÌÚÀèÀ¸¤Ë¤´¶µ¼¨¤¤¤¿¤À¤­¤¿¤¤¤³¤È¤¬¤´¤¶¤¤¤Þ¤¹¡£
²¿Â´¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

---------------------------------

ÅÀ¤È¥é¥Ù¥ë¤¬½Å¤Ê¤é¤Ê¤¤¤è¤¦¤Ê¡¢¥é¥Ù¥ëÉÕ¤­»¶ÉÛ¿Þ¤òºîÀ®¤·¤¿¤¤¤È»×¤¤¤Þ¤¹¡£

GoogleÀèÀ¸¤Ë¤ªÊ¹¤­¤·¤¿¤é¡¢
library(maptools)¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¤¬¡¢
»ä¤Î°ú¿ô¤ÎÍ¿¤¨Êý¤¬°­¤¤¤Î¤«¡¢²èÁü¥µ¥¤¥º¤òÂ礭¤¯¤¹¤ë¤È¡¢ÅÀ¤È¥é¥Ù¥ë¤¬Î¥¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

http://aoki2.si.gunma-u.ac.jp/R/princo.html

ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀϤòÇÒ¼Ú¤·¤Æ¤¤¤Þ¤¹¤¬¡¢
¼çºÂɸʬÀϤÎplot´Ø¿ô¤¬¡¢¤È¤Æ¤â¤¤¤¤´¶¤¸¤Ç¤¹¡£

offset=.2¡¡¤Ç¡¢
ÅÀ¤È¥é¥Ù¥ë¤¬½Å¤Ê¤é¤Ê¤¤¤è¤¦¤Ê¹©Éפò¤µ¤ì¤Æ¤¤¤ë¤ÈÍý²ò¤·¤Æ¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©

¤è¤í¤·¤¯¤É¤¦¤¾¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/09/02(Wed) 09:03 No. 22945 HomePage
> »ä¤Î°ú¿ô¤ÎÍ¿¤¨Êý¤¬°­¤¤¤Î¤«¡¢²èÁü¥µ¥¤¥º¤òÂ礭¤¯¤¹¤ë¤È¡¢ÅÀ¤È¥é¥Ù¥ë¤¬Î¥¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

¤É¤Î¤è¤¦¤Ê¥×¥í¥°¥é¥à¤Ç¤¹¤«¡©

offset ¤Ï¡¤when pos is specified, this value controls the distance (¡Æoffset¡Ç) of the text label from the specified coordinate in fractions of a character width.¤È¤¤¤¦¤³¤È¤Ç¡¤»È¤¦Ê¸»úÉý¤ÎÇÜ¿ô¤Ç¥»¥Ã¥È¤·¤Æ¤¤¤Þ¤¹¡£

Re: ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2020/09/02(Wed) 13:45 No. 22946
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£
¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

»ä¤¬ºîÀ®¤·¤¿£Ò¥×¥í¥°¥é¥à¤ò¤ª¼¨¤·¤·¤Þ¤¹¡¢

¥Ç¡¼¥¿¥Õ¥ì¡¼¥à df¤Ë¡¢»¶ÉۿޤκÂɸ¤¬¥»¥Ã¥È¤·¤Æ¤¢¤ê¤Þ¤¹¡£

library(maptools)

x1 <- min(df$x)
x2 <- max(df$x)
y1 <- min(df$y)
y2 <- max(df$y)

plot(df$x, df$y, xlab="ÁØÊ̤ÎÊ¿¶ÑÃÍ", ylab="ÁØÊ̤Îɸ½àÊк¹", main=title)

pointLabel(df$x, df$y, xlim=c(x1,x2), ylim=c(y1,y2) , labels=ÀßÌä, method="SANN", offset = 0, cex=1 )

pointLabel()´Ø¿ô¤Ï¡¢¥Ñ¥Ã¥±¡¼¥¸maptools¤Î´Ø¿ô¤Ç¤¹¡£

°ú¿ô¤ò¡¢»î¹Ôºø¸íŪ¤Ë¤ä¤Ã¤Æ¤¤¤ë¾õ¶·¤Ç¤¹¡£

²èÁü¥µ¥¤¥º¤¬¾®¤µ¤¤¤È¤­¤Ë¤Ï¡¢µ¤¤Ë¤Ê¤ê¤Þ¤»¤ó¤¬¡¢
²èÁü¥µ¥¤¥º¤òÂ礭¤¯¤¹¤ë¤È¡¢ÅÀ¤È¥é¥Ù¥ë¤¬Â礭¤¯Î¥¤ì¤Æ¤·¤Þ¤¤¡¢µ¤¤Ë¤Ê¤ê¤Þ¤¹¡£
µ¤¤Ë¤Ê¤ëǯº¢¤Ç¤¹¡£

¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¸æÎé¤ò¿½¤·¾å¤²¤Þ¤¹¡£
//

Re: ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/09/02(Wed) 16:54 No. 22947 HomePage
offset ¤Ï¡¤when pos is specified, ¤È½ñ¤«¤ì¤Æ¤¤¤ë¤è¤¦¤Ë¡¤pos ¤âƱ»þ¤Ë»ØÄꤷ¤Ê¤¤¤È¤¤¤±¤Ê¤¤¤è¤¦¤Ç¤¹¤Í¡£
pointLabel(df$x, df$y, xlim=c(x1,x2), ylim=c(y1,y2) , labels=ÀßÌä, method="SANN", offset = 0, pos=4, cex=1 )
¤Î¤è¤¦¤Ë¤·¤Æ¤ß¤Æ¤Ï¤¤¤«¤¬¤Ç¤·¤ç¤¦¡©

Very Special Thanks!!¡ÊRe: ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ¡Ë
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2020/09/02(Wed) 18:51 No. 22948
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£
¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¤µ¤Ã¤½¤¯»î¤·¤Æ¤ß¤Þ¤¹¡£

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
//

Re: ÀÄÌÚÀèÀ¸¤Î¼çºÂɸʬÀÏplot´Ø¿ô¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÌÀÀÐ 2020/09/03(Thu) 09:27 No. 22949
ÀÄÌÚÀèÀ¸¡¡ÍÍ¡¨

¤ªË»¤·¤¤¤È¤³¤í¤ò¼ºÎ餤¤¿¤·¤Þ¤¹¡¢ÌÀÀФȿ½¤·¤Þ¤¹¡£
¤´ÃúÇ«¤Ê¤´¶µ¼¨¤ò¤¤¤¿¤À¤­¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¥é¥Ù¥ëÉÕ¤­»¶Éۿޤϡ¢¿§¡¹¤È¼Â¸³¤·¤Æ¡¢
maptools¥Ñ¥Ã¥±¡¼¥¸¤ÎÍøÍÑ¤Ï»ß¤á¤Æ¡¢
ÀÄÌÚÀèÀ¸¤Îplot¥×¥í¥°¥é¥à¤òÇÒ¼Ú¤µ¤»¤Æ¤¤¤¿¤À¤¯¤³¤È¤Ë¤·¤Þ¤·¤¿¡£
¤¢¤ê¤¬¤¿¤¯»È¤ï¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£

²¿¤«º¤¤Ã¤¿¤³¤È¤¬¤¢¤ë¤È¡¢GoogleÀèÀ¸¤Ë¤ªÊ¹¤­¤·¤Æ¡¢
¥Ò¥Ã¥È¤·¤¿¥Ú¡¼¥¸¤Ë·ÇºÜ¤µ¤ì¤Æ¤¤¤ë¥×¥í¥°¥é¥à¤ò¥³¥Ô¥Ú¤·¤ÆÍøÍѤ¹¤ë¤³¤È¤¬Â¿¤¤¤Î¤Ç¤¹¤¬¡¢
¥Þ¥Ë¥å¥¢¥ë¤ò¤·¤Ã¤«¤ê¤ÈÆÉ¤à¤³¤È¤Î½ÅÍ×À­¤òÄË´¶¤¹¤ëÎɤ¤µ¡²ñ¤È¤â¤Ê¤ê¤Þ¤·¤¿¡£

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
//


¿ôÎ̲½IIIÎà¤Î´óͿΨ¤È¤½¤Î°ÕÌ£
¡¡¡¡Åê¹Æ¼Ô¡§tree 2020/08/11(Tue) 14:37 No. 22935
ÀÄÌÚÀèÀ¸¤Î¤ª½ñ¤­¤Ë¤Ê¤Ã¤¿qt3´Ø¿ô¤òÍѤ¤¤Æ¡¢¥µ¥ó¥×¥ë¤Î2¼¡¸µ¤ÎÉÛÃÖ¤ò¤·¤Æ¤ß¤è¤¦¤È¹Í¤¨¤Æ¤ª¤ê¤Þ¤¹¡£
http://aoki2.si.gunma-u.ac.jp/R/qt3.html

ÀèÀ¸¤Î¥½¡¼¥¹¤ÎÃæ¤Ë¤Ï´óͿΨ¤Ë´Ø¤¹¤ë½ÐÎϤ¬¤Ê¤¤¤è¤¦¤ËÇÒÆÉ¤·¤Þ¤·¤¿¤¬¡¢»»½Ð¤ËºÝ¤·¤Æ¤Ï°Ê²¼¤Î¤è¤¦¤Ê½èÍý¤Ç¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡£
result_qt3 <- qt3(data)
result_qt3$Eigen.value/sum(result_qt3$Eigen.value) #¤³¤ì¤¬´óͿΨ¡©

º£¤Î¤È¤³¤í2¼¡¸µ¤ÎÉÛÃÖ¤ò¹Í¤¨¤Æ¤ª¤ê¤Þ¤¹¤¬¡¢ÎßÀÑ´óͿΨ¤¬12.6%¤Ç¤·¤¿¡£¤³¤ÎÃͤ¬¹â¤¤¤È¤«Ä㤤¤È¤«¤¤¤¦´ð½à¤¬¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£¤½¤ì¤È¤âÅêÆþ¤¹¤ë¥Ç¡¼¥¿¤Î¥µ¥ó¥×¥ë¥µ¥¤¥º¡¦¥«¥Æ¥´¥ê¿ô¤È´ØÏ¢¤¹¤ëÌäÂê¤Ç¤¢¤Ã¤Æ¡¢°ì³µ¤Ë¤Ï¸À¤¨¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£

Re: ¿ôÎ̲½IIIÎà¤Î´óͿΨ¤È¤½¤Î°ÕÌ£
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/08/12(Wed) 21:56 No. 22939 HomePage
¡ä esult_qt3$Eigen.value/sum(result_qt3$Eigen.value) #¤³¤ì¤¬´óͿΨ¡©

¤½¤ì¤Ç¤è¤¤¤Ï¤º¤Ç¤¹¤¬¡£

´óͿΨ¤Î´ð½à¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¡£
¤À¤é¤À¤é¤È²¼¤¬¤ê¤Þ¤¹¤Î¤Ç¡¤¥¹¥¯¥ê¡¼¥×¥í¥Ã¥È¤¬Í­¸ú¤Ê¼çÀ®Ê¬Ê¬ÀϤδóͿΨ¤È¤Ï¤«¤Ê¤ê´¶³ÐŪ¤Ë°ã¤¤¤¬¤¢¤ë¤È»×¤¤¤Þ¤¹¡£

Re: ¿ôÎ̲½IIIÎà¤Î´óͿΨ¤È¤½¤Î°ÕÌ£
¡¡¡¡Åê¹Æ¼Ô¡§tree 2020/08/13(Thu) 09:07 No. 22940
ÀÄÌÚÀèÀ¸

¥³¥á¥ó¥È¤¤¤¿¤À¤±¤ÆÂçÊѸ÷±É¤Ç¤¹¡£¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
Àè¹Ô¸¦µæ¤Ç¤Ï¡ÖÎßÀÑ´óͿΨ¤Ï¡Á%¤Ç¤¢¤Ã¤¿¡£¡×¤È½Ò¤Ù¤Æ¤¤¤ë¤À¤±¤Î¤â¤Î¤¬¤¤¤¯¤Ä¤«¤¢¤Ã¤Æ¡¢¤À¤Ã¤¿¤é²¿¤Ê¤ó¤À¡©¤È¤¤¤¦¤Î¤¬¤ï¤«¤é¤º¤Ë¤ª¤ê¤Þ¤·¤¿¡£

Îã¤Ë¤Ê¤é¤Ã¤Æ¡©¤½¤Î¤è¤¦¤Ëµ­ºÜ¤·¤Æ¤ª¤³¤¦¤È»×¤¤¤Þ¤¹¡£


Re:Re:Re: Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§yamada 2020/08/11(Tue) 17:19 No. 22936 HomePage
ÀÄÌÚÀèÀ¸

¤´ÊÖÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¡ä¡Öx ¤È y ¤Î¥Ç¡¼¥¿¡×¤Ã¤Æ¡¤ÊÑ¿ô¤Ç¤Ï¤Ê¤¯¡¤·²¤À¤Ã¤¿¤ï¤±¤Ç¤¹¤Í¡£

¡ä¤µ¤Æ¡¤·¹¤­¤ÎÊѲ½ÅÀ¤Î¸¡½Ð¤Ç¤¹¤¬¡¤
¡äÆóËܤÎľÀþ¤Ë¤è¤ëÀÞ¤ìÀþ²óµ¢
¡ähttp://aoki2.si.gunma-u.ac.jp/R/oresen.html
¡ä¤Ê¤É¤Ï¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«¡©

ÆóËܤÎľÀþ¤Ë¤è¤ëÀÞ¤ìÀþ²óµ¢¤È¤¤¤¦¤Î¤Ï½é¤á¤ÆÊ¹¤­¤Þ¤·¤¿
¶µ¤¨¤Æ¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

ÆóËܤÎľÀþ¤Ë¤è¤ëÀÞ¤ìÀþ²óµ¢¤Î¸¶Íý¤ÎÊý¤¬¤ï¤«¤é¤Ê¤¤¤Î¤ÇÊÙ¶¯¤·¤¿¤¤¤Î¤Ç¤¹¤¬
¤³¤Á¤é¤ÎÍýÏÀ¤Î²òÀ⤬ºÜ¤Ã¤Æ¤¤¤ë¤ï¤«¤ê¤ä¤¹¤¤
¥µ¥¤¥È¤È¤«ÃΤäƤ¤¤Þ¤·¤¿¤é¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡©

¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

»³ÅÄ


Re:Re: Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§yamada 2020/08/04(Tue) 16:35 No. 22933 HomePage
ÀÄÌÚ¤µ¤Þ

¤´²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
ÀâÌÀ¤¬Ê¬¤«¤ê¤Ë¤¯¤¯¤Æ¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£

>> x¤Èy¤Î¥Ç¡¼¥¿¤ËÂФ·¤Æ¡¤¦¤y¤Îbin¤Ç¶èÀڤäÆx¤ÎÊ¿¶ÑÃͤκ¹¤òWelch¥Æ¥¹¥È

>¤È¤¤¤¦¤Î¤¬¡¤¼ÂºÝ¤Ë¤É¤Î¤è¤¦¤Ë¹Ô¤ï¤ì¤¿¤«¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£
>x, y ¤Î¤½¤ì¤¾¤ì¤Î¥Ç¡¼¥¿¤ò¦¤y ¤Ç¥«¥Æ¥´¥ê¡¼²½¤ò¹Ô¤Ã¤Æ¡¤¥«¥Æ¥´¥ê¡¼²½¤µ¤ì¤¿ x, y ¤ÎÊ¿
>¶ÑÃͤκ¹¤Î¸¡Äê¤ò¹Ô¤Ã¤¿¤È¸À¤¤¤¦¤³¤È¤Ç¤¹¤«¡©¤Ê¤¼¥«¥Æ¥´¥ê¡¼²½¤·¤¿¤Î¤«¡©¤Þ¤¿¡¤Welch ¤Î
>¸¡Äê¤Ï¡¤ÆÈΩÆóɸËܤÎÊ¿¶ÑÃͤκ¹¤Î¸¡Äê¤Ç¤¹¤¬¡¤x, y ¤ÏÆÈΩÆóɸËܤʤΤǤ¹¤«¡©

¥«¥Æ¥´¥ê¡¼²½¤Ê¤É¤Ï¹Ô¤Ã¤Æ¤¤¤Þ¤»¤ó¡£
y1 (x1,x2,x3,..) y2(z1,z2,z3,,,)¤ÏƱ¤¸Ê콸ÃĤ˰¤·¤Æ¤¤¤Ê¤¤¤È¤·¤Æ¤¤¤Þ¤¹¡£

>ñ¤Ë¡Ö­¡¤È­¢¤Î°ã¤¤¤Ï­¡¤ÎÊý¤Ïʬ»¶¤¬Â礭¤¯¤Ê¤ë¤¿¤á¤È¤¤¤¦Íýͳ¡×¤«¤É¤¦¤«¤Ê¤é¤Ð¡¤Ê¬»¶
>¤ÎÂ礭¤µ¤ò¸«¤Æ¤ß¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡£¥¦¥¨¥ë¥Á¤Î t ¤ÎʬÊì¤ò¸«¤Æ¤ß¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡£

¤´»ØÅ¦Ä̤ꡢʬ»¶¤¬Â礭¤¤¤¿¤á¤Ç¤·¤¿¡£

>> y¤Î¸ûÇÛ¤ÎÊѲ½¤ò¸¡½Ð

>>¤È¤¤¤¦¤Î¤â¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£x ¤Î¤¢¤ëÃÍÁ°¸å¤Ç y ¤Î²óµ¢Ä¾Àþ¤Î·¹¤­¤¬ÊѲ½¤¹¤ë¤«¤É¤¦
>>¤«¤È¤¤¤¦¤³¤È¤Ç¤¹¤«¡©

Î㤨¤Ð¡¢¤¢¤ë(x,y)¥Ç¡¼¥¿¤¬ x<c ¤Ç·¹¤­ a1 ¡§ y=a1x+b1¡¡¤À¤Ã¤¿¤â¤Î¤¬¡¢
x>=c ¤Ç ·¹¤­ a2 ¡§ y=a2x+b2 ¤ËÊѲ½¤¹¤ë¾ì¹ç¡¢¤½¤Î·¹¤­¤ÎÊѲ½ ( a1 => a2) ¤ò¸¡½Ð¤¹¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡¢¤È¤¤¤¦¼ÁÌä¤Ç¤¹¡£
°Õ¿Þ¤¬Ê¬¤«¤ê¤Ë¤¯¤¯¤Æ¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£

¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re:Re: Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/08/05(Wed) 10:15 No. 22934 HomePage
¡Öx ¤È y ¤Î¥Ç¡¼¥¿¡×¤Ã¤Æ¡¤ÊÑ¿ô¤Ç¤Ï¤Ê¤¯¡¤·²¤À¤Ã¤¿¤ï¤±¤Ç¤¹¤Í¡£

¤µ¤Æ¡¤·¹¤­¤ÎÊѲ½ÅÀ¤Î¸¡½Ð¤Ç¤¹¤¬¡¤
ÆóËܤÎľÀþ¤Ë¤è¤ëÀÞ¤ìÀþ²óµ¢
http://aoki2.si.gunma-u.ac.jp/R/oresen.html
¤Ê¤É¤Ï¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«¡©


Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§yamada 2020/07/28(Tue) 18:07 No. 22931 HomePage
¤Ï¤¸¤á¤Þ¤·¤Æ¡¢ÀÄÌÚÀèÀ¸

±§ÃèʪÍý¤Î¸¦µæ¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£
¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤¿¤¯¡¢¥³¥á¥ó¥È¤ò¤¤¤¿¤·¤Þ¤¹¡£
£±¡ËWelch¥Æ¥¹¥È¤ò»È¤Ã¤Æ¥Ç¡¼¥¿¤òʬÀϤ·ÏÀʸ¤òºîÀ®¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢
x¤Èy¤Î¥Ç¡¼¥¿¤ËÂФ·¤Æ¡¤¦¤y¤Îbin¤Ç¶èÀڤäÆx¤ÎÊ¿¶ÑÃͤκ¹¤òWelch¥Æ¥¹¥È¤Çɾ²Á¤·¤¿¤È¤³¤í¡¢­¡x¤Èy¤Ëlinear¤Ê´Ø·¸¤¬¤¢¤ë¾ì¹ç¤Ï¡¢x¤ÎÊ¿¶ÑÃͤκ¹¤Ï2¦Ò¤ò±Û¤¨¤º¡¢­¢linear¤Ê¡¡´Ø·¸¤¬¤Ê¤¤¾ì¹ç¤Ï¡¢x¤ÎÊ¿¶ÑÃͤκ¹¤Ï2¦Ò¤ò±Û¤¨¤ë¤È¤¤¤¦·ë²Ì¤Ë¤Ê¤ê¤Þ¤¹¡£­¡¤È­¢¤Î°ã¤¤¤Ï­¡¤ÎÊý¤Ïʬ»¶¤¬Â礭¤¯¤Ê¤ë¤¿¤á¤È¤¤¤¦Íýͳ¤Ç¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

£²¡Ë(x,y)¥Ç¡¼¥¿¤ò2¼¡¸µplot¤·¤¿¤È¤­¡¢y¤Î¸ûÇÛ¤ÎÊѲ½¤ò¸¡½Ð¤¹¤ë¤Ë¤Ï¤É¤Î¤è¤¦¤Ê¸¡Äê¤ò»È¤Ã¤¿¤é¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

°Ê¾å¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: Welch¥Æ¥¹¥È¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/07/29(Wed) 10:13 No. 22932 HomePage
> x¤Èy¤Î¥Ç¡¼¥¿¤ËÂФ·¤Æ¡¤¦¤y¤Îbin¤Ç¶èÀڤäÆx¤ÎÊ¿¶ÑÃͤκ¹¤òWelch¥Æ¥¹¥È

¤È¤¤¤¦¤Î¤¬¡¤¼ÂºÝ¤Ë¤É¤Î¤è¤¦¤Ë¹Ô¤ï¤ì¤¿¤«¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£
x, y ¤Î¤½¤ì¤¾¤ì¤Î¥Ç¡¼¥¿¤ò¦¤y ¤Ç¥«¥Æ¥´¥ê¡¼²½¤ò¹Ô¤Ã¤Æ¡¤¥«¥Æ¥´¥ê¡¼²½¤µ¤ì¤¿ x, y ¤ÎÊ¿¶ÑÃͤκ¹¤Î¸¡Äê¤ò¹Ô¤Ã¤¿¤È¸À¤¤¤¦¤³¤È¤Ç¤¹¤«¡©¤Ê¤¼¥«¥Æ¥´¥ê¡¼²½¤·¤¿¤Î¤«¡©¤Þ¤¿¡¤Welch ¤Î¸¡Äê¤Ï¡¤ÆÈΩÆóɸËܤÎÊ¿¶ÑÃͤκ¹¤Î¸¡Äê¤Ç¤¹¤¬¡¤x, y ¤ÏÆÈΩÆóɸËܤʤΤǤ¹¤«¡©

ñ¤Ë¡Ö­¡¤È­¢¤Î°ã¤¤¤Ï­¡¤ÎÊý¤Ïʬ»¶¤¬Â礭¤¯¤Ê¤ë¤¿¤á¤È¤¤¤¦Íýͳ¡×¤«¤É¤¦¤«¤Ê¤é¤Ð¡¤Ê¬»¶¤ÎÂ礭¤µ¤ò¸«¤Æ¤ß¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡£¥¦¥¨¥ë¥Á¤Î t ¤ÎʬÊì¤ò¸«¤Æ¤ß¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡£

> y¤Î¸ûÇÛ¤ÎÊѲ½¤ò¸¡½Ð

¤È¤¤¤¦¤Î¤â¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£x ¤Î¤¢¤ëÃÍÁ°¸å¤Ç y ¤Î²óµ¢Ä¾Àþ¤Î·¹¤­¤¬ÊѲ½¤¹¤ë¤«¤É¤¦¤«¤È¤¤¤¦¤³¤È¤Ç¤¹¤«¡©

¼ÂºÝ¤Î¥Ç¡¼¥¿¤ò½Ð¤¹¤Î¤ÏÆñ¤·¤¤¤Ç¤·¤ç¤¦¤¬¡¤¥Ç¡¼¥¿¤Î°ìÉô¤ò¼è¤ê½Ð¤·¤ÆÆ±¤¸¤è¤¦¤Ê·ë²Ì¤Ë¤Ê¤ë¤è¤¦¤Ë¾¯¤·ÃͤòÊѤ¨¤Æ¡¤¥Ç¡¼¥¿¤È¤½¤ÎʬÀÏ¥×¥í¥°¥é¥à¡ÊR ¥¹¥¯¥ê¥×¥È¡Ë¤ò¸«¤»¤Æ¤â¤é¤¦¤ÈÍý²ò¤¬Áá¤Þ¤ë¤È»×¤¤¤Þ¤¹¡£


¸¡Äê¤Ë¤ª¤±¤ëƱÃÏÅÀ¤«¤éºÎ¼è¤·¤¿2»îÎÁ¥Ç¡¼¥¿¤Î°·¤¤¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¤æ¤­ 2020/07/08(Wed) 11:07 No. 22925
ÀÄÌÚÀèÀ¸

½é¤á¤Æ¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£Ê¬ÀÏ¡¦³«È¯´Ø·¸¤Ë½¾»ö¤·¤Æ¤ª¤ê¤Þ¤¹¡£
½èÍýÊýË¡¤¬°Û¤Ê¤ë2¶è²è¡ÊA,B¤È¤·¤Þ¤¹¡Ë¤ÎÅÚ¾í¤Ë¤Ä¤¤¤Æ¡¢¿ô¤«·î¤´¤È¤Ë¶è²èÆâ¤Î°Û¤Ê¤ëÃÏÅÀ¤«¤é»îÎÁ¤òºÎ¼è¤·ÈùÀ¸Êª¤ä²½³ØÊ¬ÀϤò¼Â»Ü¤·¤Þ¤·¤¿¡£»îÎÁ¤ÏºÎ¼è¤·¤¿ÅÚ¾í¥³¥¢¤«¤éN=2¤ÇºÎ¼è¤·¤Æ¤¤¤Þ¤¹¡£
¶è²èA,¶è²èB¤ÇÈùÀ¸Êª¿ô¤ä²½³ØÀ®Ê¬Ç»Å٤˺¹¤¬¤¬¤¢¤ë¤«t¸¡Äê¤Ë¤è¤ëɾ²Á¤ò¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢Æ±°ì¥³¥¢¤«¤éºÎ¼è¤·¤¿N=2»îÎÁ¤Î¥Ç¡¼¥¿¤Î¼è¤ê°·¤¤¤Ë¤Ä¤¤¤Æ°Ê²¼¤Î¤É¤Á¤é¤¬Å¬ÀÚ¤«¤´¶µ¼ø¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£
­¡ ³Æ»îÎÁN=2¤Î¥Ç¡¼¥¿¤ò¸¡Äê¤ËÍѤ¤¤ë¡Ê¥Ç¡¼¥¿¿ô¡§»îÎÁ¿ô¡ß£²¡Ë
­¢ ³Æ»îÎÁ¤Î¥Ç¡¼¥¿¤È¤·¤ÆN=2¤ÎÊ¿¶ÑÃͤòÍѤ¤¤ë¡Ê¥Ç¡¼¥¿¿ô¡á»îÎÁ¿ô¡Ë

¤ªË»¤·¤¤¤È¤³¤í¶²½Ì¤Ç¤¹¤¬¡¢¤´²óÅú¤è¤í¤·¤¯¤ª´ê¤¤¿½¤·¾å¤²¤Þ¤¹¡£

Re: ¸¡Äê¤Ë¤ª¤±¤ëƱÃÏÅÀ¤«¤éºÎ¼è¤·¤¿2»îÎÁ¥Ç¡¼¥¿¤Î°·¤¤¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/07/09(Thu) 10:42 No. 22926 HomePage
³Æ¿å½à¤Î·«ÊÖ¤·¿ô¤¬Åù¤·¤¯¡¤2 °Ê¾å¤Ç¤¢¤ë¾ì¹ç
http://aoki2.si.gunma-u.ac.jp/lecture/TwoWayANOVA/TwoWay2.html

¤Ç¤·¤ç¤¦¤«¤Í¡©¶è²è¤ÈºÎ¼è»þÅÀ¤¬2Í×°ø¡¤·«¤êÊÖ¤·¤¬2¡£

Re: ¸¡Äê¤Ë¤ª¤±¤ëƱÃÏÅÀ¤«¤éºÎ¼è¤·¤¿2»îÎÁ¥Ç¡¼¥¿¤Î°·¤¤¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¤æ¤­ 2020/07/09(Thu) 12:58 No. 22927
ÊÖ¿®¤¤¤¿¤À¤­¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

ÅÙ¡¹¤Î¼ÁÌä¤Ç¿½¤·Ìõ¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢»î¸³´ü´ÖÃæ¤Î³ÆÊ¬ÀÏÃÍ¡ÊʬÀÏÃͤÎÊÑÆ°¡Ë¤Ë¤Ä¤¤¤Æ¶è²èA,B¤Çº¹¤¬¤¢¤ë¤«¤É¤¦¤«¤òɾ²Á¤¹¤ë¾ì¹ç¤â2Í×°ø¡¤·«¤êÊÖ¤·¤¬2¤ÎÆó¸µÇÛÃÖʬ»¶Ê¬ÀϤò¼Â»Ü¤·¡¢¶è²èÍ×ÁǤ˴ؤ¹¤ë·ë²Ì¤ò¸«¤ë¤Î¤¬Å¬ÀڤʤΤǤ·¤ç¤¦¤«¡£
¤½¤ì¤È¤â³Æ»îÎÁN=2¤Î¥Ç¡¼¥¿¤ò¤½¤ì¤¾¤ì¶è²èA¤Î¥Ç¡¼¥¿¡¢¶è²èB¤Î¥Ç¡¼¥¿¤È¤·¤Æ
2·²´Ö¤ÎÈæ³Ó¤ò¤·¤Æ¤âÎɤ¤¤Î¤Ç¤·¤ç¤¦¤«¡£
¤ªË»¤·¤¤¤È¤³¤í¶²½Ì¤Ç¤¹¤¬¡¢¤è¤í¤·¤¯¤ª´ê¤¤¿½¤·¾å¤²¤Þ¤¹¡£

Re: ¸¡Äê¤Ë¤ª¤±¤ëƱÃÏÅÀ¤«¤éºÎ¼è¤·¤¿2»îÎÁ¥Ç¡¼¥¿¤Î°·¤¤¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/07/09(Thu) 18:18 No. 22928 HomePage
> ³Æ»îÎÁN=2¤Î¥Ç¡¼¥¿¤ò¤½¤ì¤¾¤ì¶è²èA¤Î¥Ç¡¼¥¿¡¢¶è²èB¤Î¥Ç¡¼¥¿¤È¤·¤Æ
> 2·²´Ö¤ÎÈæ³Ó¤ò¤·¤Æ¤âÎɤ¤¤Î¤Ç¤·¤ç¤¦¤«¡£

µÕ¤Ë¤ª»Ç¤¤¤·¤Þ¤¹¤¬¡¤
(1) n = 2 ¤Ç¸¡Äꤷ¤Æ¡¤¸¡½ÐÎϤ¬½½Ê¬¤È»×¤¤¤Þ¤¹¤«¡©
(2) ¡Ö¿ô¤«·î¤´¤È¤Ë¡×¥Ç¡¼¥¿¤ò²¿²ó¤â¤È¤Ã¤¿¤È¤¤¤¦¤³¤È¤Ç¤¹¤Í¡£¤Ç¤Ï¡¤¤½¤Î¤è¤¦¤Ê¸¡Äê¤ò¥Ç¡¼¥¿ºÎ¼è»þÅÀ¤´¤È¤Ë²¿²ó¤â·«¤êÊÖ¤¹¤È¤¤¤¦¤³¤È¤Ç¤¹¤«¡©

Re: ¸¡Äê¤Ë¤ª¤±¤ëƱÃÏÅÀ¤«¤éºÎ¼è¤·¤¿2»îÎÁ¥Ç¡¼¥¿¤Î°·¤¤¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¤æ¤­ 2020/07/10(Fri) 11:22 No. 22929
¤ªË»¤·¤¤¤È¤³¤í¶²¤ìÆþ¤ê¤Þ¤¹¡£
¤ï¤«¤ê¤Ë¤¯¤¤ÀâÌÀ¤Ç¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
ºÎ¼è»þ´ü¤ÎÍ×ÁǤÏ̵»ë¤·¤Æ¶è²è¤Î¤ß¤Ë¤Ä¤¤¤ÆÈæ³Ó¤ò¤¹¤ë¤¿¤á¤Ë¡¢»î¸³´ü´ÖÃæ¤Î³Æ¶è²è¤ÎÁ´¥Ç¡¼¥¿¤òÍѤ¤¤¿¶è²èA,¶è²èB¤ÎÆó·²´Ö¤Î¸¡Äê¤Ç¤¹¡£
°Û¤Ê¤ëÃÏÅÀ¤«¤é·î¤´¤È¤ËºÎ¼è¤·¤¿¥Ç¡¼¥¿¤òÍѤ¤¤Æ¡¢ÃÏÅÀ´Ö¤ÇʬÀÏÃͤ˺¹¤¬¤¢¤ë¤«¡¢t¸¡Äê¤òÍѤ¤¤ÆÉ¾²Á¤·¤Æ¤¤¤ëÎ㤬¤¢¤Ã¤¿¤Î¤Ç¡¢¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

Re: ¸¡Äê¤Ë¤ª¤±¤ëƱÃÏÅÀ¤«¤éºÎ¼è¤·¤¿2»îÎÁ¥Ç¡¼¥¿¤Î°·¤¤¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÀÄÌÚÈË¿­ 2020/07/10(Fri) 13:52 No. 22930 HomePage
Î㤨¤Ð¡¤7²ó¤Î¥Ç¡¼¥¿ºÎ¼è¤¬¤¢¤ê¡¤³Æ²ó¤È¤â¶è²èA¡¤¶è²èB¤Ç¤½¤ì¤¾¤ì2¸Ä¤Î¥Ç¡¼¥¿¤ò¼è¤Ã¤¿¤È¤¤¤¦¤³¤È¤Ç¡¤¶è²èA¡¤¶è²èB¤´¤È¤Ë¤Þ¤È¤á¤¿14¸Ä¤º¤Ä¤Î¥Ç¡¼¥¿¤Ç t ¸¡Äê¤ò¤¹¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¤«¡£
ºÎ¼è»þ´ü ¶è²èA    ¶è²èB
1 (11, 13) (16, 17)
2 (12, 13) (15, 18)
3 (18, 15) (18, 19)
4 (10, 12) (19, 21)
5 (11, 19) (18, 22)
6 (19, 10) (20, 24)
7 (11, 11) (22, 23)

> a = c(11, 13, 12, 13, 18, 15, 10, 12, 11, 19, 19, 10, 11, 11)
> b = c(16, 17, 15, 18, 18, 19, 19, 21, 18, 22, 20, 24, 22, 23)
> t.test(a, b)

Welch Two Sample t-test

data: a and b
t = -5.5305, df = 25.123, p-value = 9.353e-06
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-8.527883 -3.900688
sample estimates:
mean of x mean of y
13.21429 19.42857
¥Ç¡¼¥¿¤ò¥×¡¼¥ë¤¹¤ë¤¿¤á¤Ë¤Ï¡¤ºÎ¼è»þ´ü¡¤¤¢¤ë¤¤¤ÏºÎ¼è»þ´ü¤Ë¤È¤â¤Ê¤¦Â¾¤ÎÍ×°ø¤¬¥Ç¡¼¥¿¤ÎÂç¾®¤Ë̵´Ø·¸¤Ç¤¢¤ë¤³¤È¤ò¼¨¤µ¤Ê¤¤¤È¤¤¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤Í¡£¾å¤Î²Í¶õÎã¤Ç¤Ï¶è²èB¤Î¥Ç¡¼¥¿¤Ï»þ´Ö¤Ë¤Ä¤ì¤ÆÂ礭¤¯¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£

[1] [2] [3] [4] [5] [6] [7] [8] [9]

- J o y f u l ¡¡N o t e -
Modified by¡¡i s s o