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

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


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

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


¥ê¥Ã¥«¡¼¥È¤Î²òÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¤Ï¤Ê¤³ 2024/02/22(Thu) 18:26 No. 23253
½é¤á¤Æµ­ºÜ¤µ¤»¤Æ夭¤Þ¤¹¡£
¥ê¥Ã¥«¡¼¥È¤Î²òÀϤˤĤ¤¤Æ¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£

¥ê¥Ã¥«¡¼¥È¼ÜÅ٤ǡÖÁ´¤¯»×¤ï¤Ê¤¤¡×¡Ö¤¢¤Þ¤ê»×¤ï¤Ê¤¤¡×¡Ö¤Þ¤¢¤Þ¤¢»×¤¦¡×¡Ö¤«¤Ê¤ê»×¤¦¡×
¡ÖÈó¾ï¤Ë»×¤¦¡×¤ò¡ÖÁ´¤¯»×¤ï¤Ê¤¤¡¦¤¢¤Þ¤ê»×¤ï¤Ê¤¤¡×¤È¡Ö¤Þ¤¢¤Þ¤¢»×¤¦¡¦¤«¤Ê¤ê»×¤¦¡¦Èó¾ï¤Ë»×¤¦¡×¤Ç2ÃͤËÊÑ´¹¤·¤Æ½Å²óµ¢Ê¬ÀϤò¹Ô¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¤¬¡¢¤³¤ì¤ÇÂç¾æÉפ«¤È¤¤¤¦·üÇ°¤¬¤¢¤ê¤Þ¤¹¡£¤É¤Î¤è¤¦¤ËȽÃǤ¹¤ì¤Ð¤è¤¤¤Î¤«¶µ¤¨¤Æ失¤ì¤Ð¤È»×¤¤¤Þ¤¹¡£
µ¹¤·¤¯¤ª´ê¤¤¿½¤·¾å¤²¤Þ¤¹¡£

Re: ¥ê¥Ã¥«¡¼¥È¤Î²òÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2024/02/23(Fri) 10:15 No. 23254
¥À¥ß¡¼ÊÑ¿ô¤È¤·¤Æ°·¤¨¤Ð¤è¤¤¤È»×¤¤¤Þ¤¹¡£
R ¤Ê¤é¤Ð¡¤factor() ¤Ç¥À¥ß¡¼ÊÑ¿ô¤È¤·¤Æ°·¤¦¤è¤¦¤Ë½ÐÍè¤Þ¤¹¡£
°Ê²¼¤Î¼Â¹ÔÎã¤ò»²¹Í¤Ë¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£

> df$d2 = factor(df$x2)
> df = data.frame(
+ y = c(45, 47.9, 47.1, 53.6, 49.5, 44.5, 41.6, 46.1, 48.3, 44.4),
+ x1 = c(41, 45, 67, 41, 36, 56, 52, 45, 42, 53),
+ x2 = c("med", "med", "lo", "med", "med", "lo", "hi", "lo", "hi", "med")
+ )
> typeof(df$x2)
[1] "character"
> df$d2 = factor(df$x2)
> typeof(df$d2)
[1] "integer"
> df$d2
[1] med med lo med med lo hi lo hi med
Levels: hi lo med
> summary(lm(y ~ x1 + x2, data=df))

Call:
lm(formula = y ~ x1 + x2, data = df)

Residuals:
Min 1Q Median 3Q Max
-3.442 -1.953 -0.642 1.955 5.158

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 52.6809 7.8750 6.690 0.000541
x1 -0.1645 0.1596 -1.031 0.342392
x2lo 2.4304 3.4163 0.711 0.503539
x2med 2.5049 2.9050 0.862 0.421648

Residual standard error: 3.396 on 6 degrees of freedom
Multiple R-squared: 0.3005, Adjusted R-squared: -0.04927
F-statistic: 0.8591 on 3 and 6 DF, p-value: 0.5113

Re: ¥ê¥Ã¥«¡¼¥È¤Î²òÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§hash 2024/02/26(Mon) 08:53 No. 23255
ÀÄÌÚÀèÀ¸¡¢ÆóÃÍÊÑ´¹¤¹¤ë¤Ê¤é¡¢½Å²óµ¢Ê¬ÀϤǤϤʤ¯¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢Ê¬ÀϤǤâ¤è¤í¤·¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©¼ÁÌä¼Ô¤Ç¤Ï¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢µ¿Ì䤬ͯ¤¤¤¿¤Î¤Ç¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£ÉÔŬÀڤʥ³¥á¥ó¥È¤Ê¤éºï½ü¤·¤Æ¤¯¤À¤µ¤¤¡£

Re: ¥ê¥Ã¥«¡¼¥È¤Î²òÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2024/02/27(Tue) 15:09 No. 23256
¤Ï¤Ê¤³¤µ¤ó¡¤hash ¤µ¤ó¡¤º®Í𤵤»¤Æ¤´¤á¤ó¤Ê¤µ¤¤¡£
»ä¤Ï¤¹¤Ã¤«¤êÆÈΩÊÑ¿ô¤ÎÊý¤À¤È»×¤Ã¤Æ¤¤¤¿¤Î¤Ç¤¹¡£½¾Â°ÊÑ¿ô¤ÎÊý¤Ê¤é¤ÐÆóÃÍʬÎà¤Ë¤¹¤ëɬÍפϤ¢¤ê¤Þ¤¹¤Í¡£µÕ¤Ë¡¤½¾Â°ÊÑ¿ô¤Î¾ì¹ç¤Ë¥À¥ß¡¼ÊÑ¿ô¤È¤·¤Æ»È¤¦¤È¤¹¤ì¤ÐÀµ½àÁê´ØʬÀϡʽŲóµ¢Ê¬ÀϤγÈÄ¥¡Ë¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¤·¡¤¥í¥¸¥¹¥Æ¥£¥Ã¥¯Ê¬ÀϤȤ¤¤¦¾ì¹ç¤Ë¤ÏÆóÃÍʬÎà¤Ê¤éÉáÄÌ¤Î¥í¥¸¥¹¥Æ¥£¥Ã¥¯Ê¬ÀÏ¡¤Ê£¿ô¤ÎʬÎà¤Ê¤é¤Ð¿¹à¥í¥¸¥¹¥Æ¥£¥Ã¥¯Ê¬ÀϤȤ¤¤¦¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£

Re: ¥ê¥Ã¥«¡¼¥È¤Î²òÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§hash 2024/02/28(Wed) 08:04 No. 23257
ÀÄÌÚÀèÀ¸¡¢¤´ÃúÇ«¤Ê¤´ÊÖ¿®¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¤Þ¤â¤Ê¤¯Äêǯ¤ò·Þ¤¨¤ë¤Î¤Ç¤¹¤¬¡¢½é³Ø¼Ô¤Î¤¿¤áËèÄ«ÇÒ¸«¤·¤Æ¤¤¤Þ¤¹¡£
º£¸å¤È¤â¤´»ØƳ¤¤¤¿¤À¤±¤Þ¤·¤¿¤é¹¬¿Ó¤Ç¤¹¡£


º®¹ç¸ú²Ì¥â¥Ç¥ë¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÉÙÀî 2024/02/13(Tue) 12:54 No. 23252
º®¹ç¸ú²Ì¥â¥Ç¥ë¤Ë¤Ä¤¤¤Æ¶µ¤¨¤Æ²¼¤µ¤¤¡£

¤è¤¯¤¢¤ëÎã¤È¤·¤Æ¡¢1ºÐ¡¢3ºÐ¡¢5ºÐ¤Ê¤É¡¢·è¤á¤é¤ì¤¿»þÅÀ¤Ç¤ÎÈ¿Éü¥Ç¡¼¥¿¤ò²òÀϤ¹¤ëºÝ¤Ëº®¹ç¸ú²Ì¥â¥Ç¥ë¤òÍøÍѤ¹¤ë¤È¤¢¤ê¤Þ¤¹¡£¤½¤¦¤Ç¤Ï¤Ê¤¯¡¢Î㤨¤Ð½é²óÆþ±¡»þ¡¢2²óÌܤÎÆþ±¡»þ¡¢3²óÌܤÎÆþ±¡»þ¤Ê¤É¤Îʬ¤±Êý¤Ç¡¢È¿Éü¤·¤¿¥Ç¡¼¥¿¤âº®¹ç¸ú²Ì¥â¥Ç¥ë¤Ç²òÀϤǤ­¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

¤³¤Î¾ì¹ç¤Ï¡¢¿Í¤Ë¤è¤Ã¤ÆÆþ±¡´Ö³Ö¤¬°ã¤¦¤¿¤á¡¢È¿Éü¥Ç¡¼¥¿¤Î»þ´ÖŪ¤Ê´Ö³Ö¤¬°Û¤Ê¤ê¤Þ¤¹¡£¤³¤ì¤é¤ò¹Íθ¤·¤Æ²òÀϤ¹¤ëÊýË¡¤Ï¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡ÊÆþ±¡¤Î´Ö¤ÎÆü¿ô¤ò¥â¥Ç¥ë¤Ë¤¤¤ì¤ë¤Ê¤É¡Ë¡©¤½¤ì¤È¤â¡¢¤³¤¦¤¤¤Ã¤¿Ä´À°¤Ï¤Ç¤­¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©


0-1¤ÎÈϰϤò¼è¤ëÊÑ¿ô¤ÎÈæ³Ó
¡¡¡¡Åê¹Æ¼Ô¡§naki 2023/09/13(Wed) 18:07 No. 23242
¥°¥ë¡¼¥×´Ö¤Ç´üÂÔÃͤΰ㤤¤Ë¤Ä¤¤¤Æ½Ò¤Ù¤¿¤¤¤Î¤Ç¤¹¤¬¡¢¸¡ÄêÊýË¡¤Ë¤Ä¤¤¤Æ¤´ÁêÃ̤µ¤»¤Æ²¼¤µ¤¤¡£
¤¤¤Þ¡¢³ÆɸËܤÏÈæΨ¡ÊÎ㡧¥ê¥ó¥Ñµå¤Ë¤ª¤±¤ë°Û·¿¥ê¥ó¥Ñµå¤ÎÈæΨ¡Ë¤È¤·¤ÆÍ¿¤¨¤é¤ì¤Æ¤¤¤Þ¤¹¡ÊʬÊ졦ʬ»Ò¤Ïʬ¤«¤é¤ºÈæΨ¤Î¤ßÍ¿¤¨¤é¤ì¤Æ¤¤¤Þ¤¹¡Ë¡£
Ãͤ¬0-1¤Î´Ö¤Ë«Çû¤µ¤ì¤Æ¤ª¤ê¡¢Ä̾ï¤Ît¸¡Äê¤ò¼Â»Ü¤¹¤ë¤³¤È¤ÏÉÔŬÀڤǤ¢¤ë¤è¤¦¤Ë»×¤ï¤ì¤Þ¤·¤¿¤¬¡¢¥³¥á¥ó¥È失¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£¤Þ¤¿t¸¡Ä꤬ÉÔŬÀÚ¤À¤È¤¹¤ì¤Ð¡¢¤É¤Î¤è¤¦¤ÊÊ̤ÎÅý·×Ū¼êË¡¤¬»È¤¨¤ë¤«¡¢¤´½õ¸À失¤ì¤Ð¹¬¤¤¤Ç¤¹¡£

Î㡧
group value
A 0.144
A 0.177
A 0.264
...
A 0.574
B 0.206
B 0.283
B 0.701
...
B 0.956

Re: 0-1¤ÎÈϰϤò¼è¤ëÊÑ¿ô¤ÎÈæ³Ó
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2023/09/13(Wed) 22:09 No. 23243
¸¡Äê¤Ë¤ª¤¤¤Æ¤Ï¡¤¥µ¥ó¥×¥ë¥µ¥¤¥º¤Ï½ÅÍפÊÍ×ÁǤǤ¹¡£
¸¡ÄêÅý·×Î̤ϡ¤É¸ËÜÅý·×Î̤κ¹¤È¥µ¥ó¥×¥ë¥µ¥¤¥º¤ÎξÊý¤Ë°Í¸¤¹¤ë¤«¤é¤Ç¤¹¡£
¤¢¤Ê¤¿¤ÎÎã¤Î¤è¤¦¤Ê¾ì¹ç¤Ë¤Ï¥µ¥ó¥×¥ë¥µ¥¤¥º¡Ê¤½¤â¤½¤âÊ콸ÃĤâ¡Ë¤Ï¤Ê¤«¤Ê¤«µ¬Äꤷ¤Å¤é¤¯¡¤³ä¹ç¤·¤«Â¬Äê¤Ç¤­¤Ê¤¤¤È¤¤¤¦¾ì¹ç¤â¼ÂºÝ¤Ë¤Ï¤¢¤ê¤Þ¤¹¡£¤·¤«¤·¤½¤Î¤è¤¦¤Ê¾ì¹ç¤Ë¤ÏËÜÍè¡Ö¸¡Äê¡×¤ÏŬÍѤ·¤Å¤é¤¤¤Î¤Ç¤¹¡£

¤³¤Î¤è¤¦¤Ê¾ì¹ç¤Ë¤Ï¡¤¡Ö¸¡Ä꤬Á´¤Æ¤Ç¤Ï¤Ê¤¤¡×¤È¤¤¤¦¡¤¸¶Íý¸¶Â§¤ËΩ¤ÁÊ֤뤷¤«¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£

Re: 0-1¤ÎÈϰϤò¼è¤ëÊÑ¿ô¤ÎÈæ³Ó
¡¡¡¡Åê¹Æ¼Ô¡§naki 2023/10/11(Wed) 10:11 No. 23249
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£ÊÖ¿®¤¬ÃÙ¤¯¤Ê¤ê¤¹¤ß¤Þ¤»¤ó¡£
¤Þ¤¿¡¢¾¯¡¹¼«Ê¬¤Î¥×¥ì¥¼¥ó¥Æ¡¼¥·¥ç¥ó¤¬Îɤ¯¤Ê¤«¤Ã¤¿¤è¤¦¤Êµ¤¤¬¤·¤Æ¤ª¤ê¡¢Äɵ­¤µ¤»¤Æ²¼¤µ¤¤¡£

¡ä¸¡Äê¤Ë¤ª¤¤¤Æ¤Ï¡¤¥µ¥ó¥×¥ë¥µ¥¤¥º¤Ï½ÅÍפÊÍ×ÁǤǤ¹¡£
¡ä¸¡ÄêÅý·×Î̤ϡ¤É¸ËÜÅý·×Î̤κ¹¤È¥µ¥ó¥×¥ë¥µ¥¤¥º¤ÎξÊý¤Ë°Í¸¤¹¤ë¤«¤é¤Ç¤¹¡£
¥µ¥ó¥×¥ë¥µ¥¤¥º¤È¤¤¤¦¤Î¤Ï¡¢group=A or B¤Î¤½¤ì¤¾¤ì¤Î¿ô¤È¤¤¤¦¤³¤È¤Ç¤·¤ç¤¦¤«¡£¤½¤ì¤Ç¤¢¤ì¤Ð¡¢º£²ó¤Ï20 vs 25¤Ê¤É¤È¤·¤Æ¤¤¤¿¤À¤±¤ì¤Ð¤È»×¤¤¤Þ¤¹¡£

¤³¤³¤Çvalue(group=A)¤Èvalue(group=B)¤Î´üÂÔÃͤκ¹¤¬0¤Ç¤¢¤ë¤³¤È¤òµ¢Ìµ²¾Àâ¤È¤·¤¿Åý·×¸¡Äê¤ò¤·¤¿¤¤¤È¤¤¤¦¤è¤¦¤ÊÆâÍƤˤʤê¤Þ¤¹¡£ºÇ½é¤ÎÎã¤Ë¹ç¤ï¤»¤Æ¸À¤¨¤Ð¡¢¡ÖA·²¤Î¾ÉÎã20̾¤ÈB·²¤Î¾ÉÎã25̾¤Ç¡¢°Û·¿¥ê¥ó¥ÑµåÈæΨ¡ÊÈæΨ¤Ê¤Î¤Ç0-100%¤Ç¤¹¡Ë¤Ëº¹¤¬¤¢¤ë¤«ÃΤꤿ¤¤¡×¤È¤¤¤¦¤è¤¦¤ÊÆâÍƤǤ¹¡£

¤ª¤½¤é¤¯¤Ç¤¹¤¬¡¢ÉáÄ̤覵æ¼Ô¤ÏÉáÄ̤ÎϢ³ÃÍ¡Ê-¡ç〜+¡ç¡Ë¤ò°·¤¦¤È¤­¤ÈƱÍͤËt¸¡ÄêŬÍѤ·¤Æ¤¤¤ëÊý¤¬Â¿¤¤¤è¤¦¤Êµ¤¤¬¤·¤Æ¤¤¤Þ¤¹¡£¤½¤ì¤¬Å¬ÀڤʤΤ«¤É¤¦¤«¤È¤¤¤¦¤è¤¦¤Ê¤´¼ÁÌä¤Ë¤Ê¤ê¤Þ¤¹¡£

Re: 0-1¤ÎÈϰϤò¼è¤ëÊÑ¿ô¤ÎÈæ³Ó
¡¡¡¡Åê¹Æ¼Ô¡§ÂÀϺ 2023/10/17(Tue) 11:25 No. 23250
¥Ç¡¼¥¿¤ò³ÑÊÑ´¹¤·¤Æ¤«¤é£ô¸¡Äê¤ò¹Ô¤¦¤È¤¤¤¦ÊýË¡¤Ï¤¤¤«¤¬¤Ç¤¹¤«



Re: 0-1¤ÎÈϰϤò¼è¤ëÊÑ¿ô¤ÎÈæ³Ó
¡¡¡¡Åê¹Æ¼Ô¡§naki 2023/10/23(Mon) 13:37 No. 23251
¡äÂÀϺ¤µ¤ó
¤Ê¤ë¤Û¤É¤Ç¤¹¤Í¡£
¸À¤ï¤ì¤Æµ¤¤Å¤­¤Þ¤·¤¿¤¬¡¢¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤ÎÌäÂê¤Ë¤·¤Æ¤â¤¤¤¤¤Î¤«¤Ê¤È»×¤¤»ê¤ê¤Þ¤·¤¿¡£¡Ê¤³¤Î¾ì¹ç³ÑÊÑ´¹¤Ç¤Ï¤Ê¤¯¥í¥¸¥Ã¥ÈÊÑ´¹¤·¤ÆÈæ³Ó¤¹¤ë¤È¤¤¤¦°ÕÌ£¤Ë¤Ê¤ë¤ÈÍý²ò¤·¤Æ¤¤¤Þ¤¹¡¢¡¢¡¢¡Ë

²¿¤ì¤Ë¤»¤è¡¢¤³¤Î¤è¤¦¤ÊÊÑ´¹¤ò¹Ô¤¦¤Î¤ÏÂбþºö¤È»×¤¤¤Þ¤·¤¿¡£¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£


¥¤¥Ù¥ó¥Èǯ´Öȯ¾ÉΨ¤Î¥á¥¿²òÀÏ
¡¡¡¡Åê¹Æ¼Ô¡§MoMo 2023/09/22(Fri) 00:04 No. 23244
¥á¥¿¥¢¥Ê¥ê¥·¥¹¤ò¤ä¤í¤¦¤È¤·¤Æ¤¤¤Þ¤¹¡£
¤¢¤ëÎ×¾²Åª¥¤¥Ù¥ó¥È¤ÎȯÀ¸¤ò¼£ÎÅ·²¤È¥³¥ó¥È¥í¡¼¥ë·²¤ÇÈæ³Ó¤·¤Þ¤¹¡£
²òÀϤ¹¤ëÊ£¿ô¤ÎÏÀʸ¤Ï¡¢Ç¯´Öȯ¾ÉΨ¤òµ­ºÜ¤·¤Æ¤¤¤ë¤â¤Î¤È¥Ï¥¶¡¼¥ÉÈæ¤òµ­ºÜ¤·¤Æ¤¤¤ë¤â¤Î¤È¤¬º®ºß¤·¤Æ¤¤¤Þ¤¹¡£review manager ver. 5.4¤òÍѤ¤¤Æ¤¤¤Æ²òÀϤ·¤Þ¤¹¡£
¤³¤Î¾ì¹ç¡¢Ç¯´Öȯ¾ÉΨ¤ò¥Ï¥¶¡¼¥ÉÈæ¤ËÊÑ´¹¤·¤Æ²òÀϤ¹¤Ù¤­¡¢¤È¶µ¤ï¤ê¤Þ¤·¤¿¡£
¥¤¥Ù¥ó¥È¤Îǯ´Öȯ¾ÉΨ¤«¤é¥Ï¥¶¡¼¥ÉÈ椬·×»»¤Ç¤­¤Þ¤¹¤«¡©
¤¿¤È¤¨¤Ð¡¢²òÀϤ¹¤ë¤Ò¤È¤Ä¤ÎÏÀʸ¤Ë¤ª¤¤¤Æ¤Ï¡¢Ç¯´Ö¥¤¥Ù¥ó¥ÈȯÀ¸Î¨¤Ï¼£ÎÅ·²¤Ç2.0¡ó/year¡ÊÈ︡¼ÔÁí¿ô3241¡¢¥¤¥Ù¥ó¥ÈȯÀ¸·ï¿ô94¡Ë¡¢¥³¥ó¥È¥í¡¼¥ë·²¤Ç2.5¡ó/year¡ÊÈ︡¼ÔÁí¿ô941¡¢¥¤¥Ù¥ó¥ÈÁí¿ô34¡Ë¤Ç¤¹¡£´Ñ»¡´ü´Ö¤ÏÈ︡¼ÔÁ´ÂΤÎÃæ±ûÃͤȥì¥ó¥¸¤Çµ­ºÜ¤µ¤ì¤Æ¤¤¤Æ522 (29〜756)Æü¡¢¤Ç¤¹¡££±¿Í¤ÎÈ︡¼Ô¤¬´Ñ»¡´ü´ÖÃæ¤ËÊ£¿ô¤Î¥¤¥Ù¥ó¥È¤òµ¯¤³¤¹²ÄǽÀ­¤â¤¢¤ê¤Þ¤¹¡£¤â¤·»»½Ð¤¬²Äǽ¤Ê¤é¡¢¥Ï¥¶¡¼¥ÉÈæ¤Î95¡ó¿®Íê¶è´Ö¤âɬÍפǤ¹¡£
¤³¤ÎÊýË¡°Ê³°¤Ë¤â¤³¤ÎÌäÂê¤ò²ò·è¤¹¤ëÊýË¡¤¬¤¢¤ë¤Ç¤·¤ç¤¦¤«¡©
¤´¶µ¼ø¤ò¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: ¥¤¥Ù¥ó¥Èǯ´Öȯ¾ÉΨ¤Î¥á¥¿²òÀÏ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2023/09/22(Fri) 09:06 No. 23246
»ä¤Ë¤Ï¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¤¬¡¤°Ê²¼¤Ï ChatGPT 3.5 ¤ÎÊÖ»ö¤Ç¤¹¡£ÆâÍƤ¬Àµ¤·¤¤¤«¤É¤¦¤«¤¹¤é»ä¤Ë¤Ï¤ï¤«¤ê¤Þ¤»¤ó¤¬¡¤»²¹Í¤Þ¤Ç¤Ë¡£

--- ³«»Ï
ǯ´Öȯ¾ÉΨ¤«¤é¥Ï¥¶¡¼¥ÉÈæ¤Ø¤ÎÊÑ´¹¤Ï²Äǽ¤Ç¤¹¤¬¡¢¤½¤ÎºÝ¤Ë¤Ï¤¤¤¯¤Ä¤«¤Î²¾Ä꤬ɬÍפǤ¹¡£Ç¯´Öȯ¾ÉΨ¤«¤é¥Ï¥¶¡¼¥ÉÈæ¤ò·×»»¤¹¤ë¤¿¤á¤Ë¤Ï¡¢°Ê²¼¤Î¾ðÊó¤¬É¬ÍפǤ¹¡§

1. ¼£ÎÅ·²¤È¥³¥ó¥È¥í¡¼¥ë·²¤Îǯ´Öȯ¾ÉΨ¡ÊȯÀ¸Î¨¡Ë¡£
2. ´Ñ»¡´ü´Ö¤ÎŤµ¡ÊÎ㡧Æü¿ô¡Ë¡£
3. ¼£ÎÅ·²¤È¥³¥ó¥È¥í¡¼¥ë·²¤Î¥µ¥ó¥×¥ë¥µ¥¤¥º¡ÊÈ︡¼ÔÁí¿ô¡Ë¡£
4. ¥¤¥Ù¥ó¥È¤ÎȯÀ¸·ï¿ô¡£

ǯ´Öȯ¾ÉΨ¤«¤é¥Ï¥¶¡¼¥ÉÈæ¤ò·×»»¤¹¤ë°ìÈÌŪ¤ÊÊýË¡¤Ï¡¢¥³¥Ã¥¯¥¹ÈæÎã¥Ï¥¶¡¼¥É¥â¥Ç¥ë¤ò»ÈÍѤ¹¤ë¤³¤È¤Ç¤¹¡£¥³¥Ã¥¯¥¹ÈæÎã¥Ï¥¶¡¼¥É¥â¥Ç¥ë¤Ï¡¢»þ´Ö¤ËÂФ¹¤ë¥Ï¥¶¡¼¥É¡Ê¥¤¥Ù¥ó¥È¤¬µ¯¤³¤ë¥ê¥¹¥¯¡Ë¤ÎÈæ¤òɾ²Á¤¹¤ë¤Î¤ËŬ¤·¤Æ¤¤¤Þ¤¹¡£°Ê²¼¤Ï¤³¤Î·×»»¤Î¥¹¥Æ¥Ã¥×¤Ç¤¹¡§

1. ¼£ÎÅ·²¤È¥³¥ó¥È¥í¡¼¥ë·²¤Îǯ´Öȯ¾ÉΨ¤ò¥Ï¥¶¡¼¥É¤ËÊÑ´¹¤·¤Þ¤¹¡£¥Ï¥¶¡¼¥É¤Ï¡¢Ã±°Ì»þ´Ö¤¢¤¿¤ê¤Î¥¤¥Ù¥ó¥È¤Î³ÎΨ¤Ç¤¹¡£Ç¯´Öȯ¾ÉΨ¤ò´Ñ»¡´ü´Ö¤ÎŤµ¡ÊÎ㡧Æü¿ô¡Ë¤Ç³ä¤ë¤³¤È¤Ç¡¢Ã±°Ì»þ´Ö¤¢¤¿¤ê¤Î¥¤¥Ù¥ó¥È¤Î³ÎΨ¤òµá¤á¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

¼£ÎÅ·²¤Î¥Ï¥¶¡¼¥É = (¼£ÎÅ·²¤Îǯ´Öȯ¾ÉΨ) / (´Ñ»¡´ü´Ö¤ÎŤµ)
¥³¥ó¥È¥í¡¼¥ë·²¤Î¥Ï¥¶¡¼¥É = (¥³¥ó¥È¥í¡¼¥ë·²¤Îǯ´Öȯ¾ÉΨ) / (´Ñ»¡´ü´Ö¤ÎŤµ)

2. ¥Ï¥¶¡¼¥ÉÈæ¡ÊHR¡Ë¤ò·×»»¤·¤Þ¤¹¡£¥Ï¥¶¡¼¥ÉÈæ¤Ï¡¢¼£ÎÅ·²¤Î¥Ï¥¶¡¼¥É¤ò¥³¥ó¥È¥í¡¼¥ë·²¤Î¥Ï¥¶¡¼¥É¤Ç³ä¤ë¤³¤È¤Çµá¤á¤Þ¤¹¡£

¥Ï¥¶¡¼¥ÉÈæ (HR) = (¼£ÎÅ·²¤Î¥Ï¥¶¡¼¥É) / (¥³¥ó¥È¥í¡¼¥ë·²¤Î¥Ï¥¶¡¼¥É)

3. ¥Ï¥¶¡¼¥ÉÈæ¤Î95¡ó¿®Íê¶è´Ö¤ò·×»»¤·¤Þ¤¹¡£¤³¤ì¤ÏÅý·×¥½¥Õ¥È¥¦¥§¥¢¤ò»ÈÍѤ·¤Æ·×»»¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£Â¿¤¯¤ÎÅý·×¥½¥Õ¥È¥¦¥§¥¢¥Ñ¥Ã¥±¡¼¥¸¤Ï¡¢¥³¥Ã¥¯¥¹ÈæÎã¥Ï¥¶¡¼¥É¥â¥Ç¥ë¤ÎʬÀϤò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£

°Ê¾å¤Î¼ê½ç¤ò»È¤Ã¤Æ¡¢Ç¯´Öȯ¾ÉΨ¤«¤é¥Ï¥¶¡¼¥ÉÈæ¤ò·×»»¤·¡¢¤½¤Î¿®Íê¶è´Ö¤òµá¤á¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤¿¤À¤·¡¢¤³¤ÎÊýË¡¤Ë¤Ï¥Ï¥¶¡¼¥ÉÈæ¤ò·×»»¤¹¤ë¤¿¤á¤ËɬÍפʥǡ¼¥¿¤¬É¬ÍפǤ¢¤ê¡¢Àµ³ÎÀ­¤Ë±Æ¶Á¤òÍ¿¤¨¤ë²ÄǽÀ­¤¬¤¢¤ë¤³¤È¤ò¹Íθ¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£¤Þ¤¿¡¢¥³¥Ã¥¯¥¹ÈæÎã¥Ï¥¶¡¼¥É¥â¥Ç¥ë¤ÎÁ°Äó¾ò·ï¡Ê¥Ï¥¶¡¼¥ÉÈ椬»þ´Ö¤Ë¤è¤é¤º°ìÄê¤Ç¤¢¤ë¤È¤¤¤¦Á°Äó¡Ë¤¬Ëþ¤¿¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«¤â¸¡Æ¤¤¹¤ë½ÅÍ×À­¤¬¤¢¤ê¤Þ¤¹¡£

¸¦µæ¤Ë¤ª¤¤¤Æ¡¢Â¾¤ÎÊýË¡¤ò¸¡Æ¤¤¹¤ëÁ°¤Ë¡¢¤³¤ÎÊýË¡¤ò»î¤·¤Æ¤ß¤ë¤³¤È¤¬Îɤ¤¥¢¥×¥í¡¼¥Á¤«¤â¤·¤ì¤Þ¤»¤ó¡£¤¿¤À¤·¡¢²òÀϤÎÀµ³ÎÀ­¤È¿®ÍêÀ­¤ò³ÎÊݤ¹¤ë¤¿¤á¤Ë¡¢Åý·×²òÀϤÎÀìÌç²È¤Î¶¨ÎϤòÆÀ¤ë¤³¤È¤ò¤ª´«¤á¤·¤Þ¤¹¡£
---½ªÎ»

Re: ¥¤¥Ù¥ó¥Èǯ´Öȯ¾ÉΨ¤Î¥á¥¿²òÀÏ
¡¡¡¡Åê¹Æ¼Ô¡§MoMo 2023/09/22(Fri) 11:15 No. 23247
ÀÄÌÚÀèÀ¸¤¤¤Ä¤â¤¢¤ê¤¬¤È¤¦Â¸¤¸¤Þ¤¹¡£

ChatGPT3¤Ï¤½¤³¤Þ¤Ç¸­¤¤¤Î¤Ç¤¹¤Í¡©¡ª
»ä¤Ï¿ô³Ø¤¬¤«¤é¤Ã¤­¤·¥À¥á¤Ê¤Î¤Ç¡¢ChatGPT3¤Ë¤ä¤Ã¤Æ¤â¤é¤¦¤³¤È¤Ë¤·¤Þ¤·¤¿¡£
HR¤Ï¤­¤Á¤ó¤È·×»»¤·¤Æ¤¯¤ì¤Þ¤·¤¿¤¬¡¢95¡óCI¤Ï´Ö°ã¤Ã¤Æ¤¤¤Þ¤·¤¿¡£
¤½¤ÎÍýͳ¤Ï¡¢ËÜÏÀʸ¤Ë¤ª¤¤¤Æ¡¢¥¤¥Ù¥ó¥È¤Ï°ì¿Í¤Î´µ¼Ô¤ËÊ£¿ô¤ª¤­¤ë¤³¤È¤¬¤Þ¤Þ¤¢¤ë¡¢¤È¤¤¤¦»ö¼Â¤Î¤¿¤á¤Î¤è¤¦¤Ç¤·¤¿¡£¤·¤¿¤¬¤Ã¤Æ¡¢»Íʬɽ¤Ë¤­¤ì¤¤¤Ë¡¢¥¤¥Ù¥ó¥È¤¢¤ê¡¢¤Ê¤·¡¢Ë½Ïª¤¢¤ê¡¢¤Ê¤·¡¢¤Î¤è¤¦¤Ëµ­Æþ¤Ç¤­¤Ê¤¤¤Î¤Ç¤¹¡£
specific¤ÊÅý·×¥½¥Õ¥È¤ò»È¤¦¤«¡¢¥×¥í¤ÎÅý·×³Ø¼Ô¤ËÁêÃ̤¹¤ë¤è¤¦»Ø¼¨¤·¤Æ¤â¤é¤¤¤Þ¤·¤¿¡£
¤³¤ÎÌäÂê¤ò²ò·è¤¹¤ë¼êΩ¤Æ¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

Re: ¥¤¥Ù¥ó¥Èǯ´Öȯ¾ÉΨ¤Î¥á¥¿²òÀÏ
¡¡¡¡Åê¹Æ¼Ô¡§MoMo 2023/09/22(Fri) 16:59 No. 23248
ÀÄÌÚÀèÀ¸¤ªÀ¤Ïäˤʤê¤Þ¤¹¡£

ChatGPT3.5¤È¤â¤¦°ìÅÙÁêÃ̤·¤Ä¤Ä²òÀϤ·¤Æ¤ß¤Þ¤·¤¿¡£
ºÇ½é¤Ë¤ªÅÁ¤¨¤·¤¿¥Ç¡¼¥¿¥»¥Ã¥È¤Ë¸í¤ê¤¬¤´¤¶¤¤¤Þ¤·¤¿¤Î¤Ç¡¢ÅºÉÕ¥Õ¥¡¥¤¥ë¤ËÀ°Íý¤¤¤¿¤·¤Þ¤¹¡£

¸¡Æ¤¹àÌÜ¡§¼£ÎÅ·²¤ÎÂоȷ²¤ËÂФ¹¤ëÂç½Ð·ì¥¤¥Ù¥ó¥È¤Î¥Ï¥¶¡¼¥ÉÈæ¤È¤½¤Î95¡ó¿®Íê¶è´Ö

°Ê²¼¤¬ChatGPT3.5¤¬ÃƤ­½Ð¤·¤¿·ë²Ì¤Ç¤¹¡£

£±¡¥¥Ï¥¶¡¼¥ÉÈæ¡á¼£ÎÅ·²¤Îǯ´Ö¥¤¥Ù¥ó¥ÈȯÀ¸Î¨/Âоȷ²¤Îǯ´Ö¥¤¥Ù¥ó¥ÈȯÀ¸Î¨=2.5/2.0=1.25

2¡¥SE(ln(HR)) = ¢å((1 / (¼£ÎÅ·²¤Î´Ñ»¡´ü´ÖÃæ¤Î¥¤¥Ù¥ó¥ÈȯÀ¸¿ô/ Ê¿¶Ñ´Ñ»¡´ü´Ö)) + (1 / (Âоȷ²¤Î´Ñ»¡´ü´ÖÃæ¤Î¥¤¥Ù¥ó¥ÈȯÀ¸¿ô/ Ê¿¶Ñ´Ñ»¡´ü´Ö))) = ¢å((1 / (94 / 1.45)) + (1 / (34 / 1.45))) = 0.241

CI = exp(ln(HR) ¡Þ 1.96 * SE(ln(HR)))
Lower Limit of CI = exp(0.223 - 1.96 * 0.241) = 0.779
Upper Limit of CI = exp(0.223 + 1.96 * 0.241) = 2.0044

Conc.) Hazard ratio 1.25, 95%CI 0.779-2.0044

ÀÄÌÚÀèÀ¸¡¢acceptable¤Ç¤·¤ç¤¦¤«¡©
¤ªË»¤·¤¤¤È¤³¤í¶²¤ìÆþ¤ê¤Þ¤¹¡£



1̾¤Î¥Ç¡¼¥¿¤ò¸µ¤ËºîÀ®¤·¤¿¥¯¥í¥¹½¸·×ɽ¤ÎʬÀÏ
¡¡¡¡Åê¹Æ¼Ô¡§kouryu 2023/03/30(Thu) 01:19 No. 23239
¤¢¤ë1̾¤Î´µ¼ÔA¤µ¤ó¤Î¹ÔÆ°¤ò1ǯ´Ö¡Ê365Æü¡Ë´Ñ»¡¤·¡¤ÌäÂê¹ÔÆ°¤¬¸«¤é¤ì¤¿Æü¤Ë¤Ï¡ß¡¤ÌäÂê¹ÔÆ°¤¬¸«¤é¤ì¤Ê¤«¤Ã¤¿Æü¤Ë¤Ï¡û¤ò¤Ä¤±¤Þ¤·¤¿¡£¤Þ¤¿¡¤³ÆÆü¤ÎÉþÌô¤Î̵ͭ¤âµ­Ï¿¤·¤Þ¤·¤¿¡£¤½¤Î·ë²Ì¡¤ÉþÌô¤·¤¿Æü¤Ï261Æü¡Ê¡û¡§250¡¤¡ß:11¡Ë¡¤ÉþÌô¤ò¤·¤Ê¤«¤Ã¤¿Æü¤Ï104Æü¡Ê¡û¡§69¡¤¡ß¡§35¡Ë¤Ç¤·¤¿¡£A¤µ¤ó¤ÎÉþÌô¤Î̵ͭ¤ÈÌäÂê¹ÔÆ°¤Ë´ØÏ¢¤¬¤¢¤ë¤«¤òÄ´¤Ù¤¿¤¤¤Î¤Ç¤¹¤¬¡¤¥«¥¤Æó¾è¸¡Äê¤ä¥Õ¥£¥Ã¥·¥ã¡¼¤ÎÀµ³ÎÀ­¸¡Ä꤬»È¤¨¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡£¤´¶µ¼¨¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£

Re: 1̾¤Î¥Ç¡¼¥¿¤ò¸µ¤ËºîÀ®¤·¤¿¥¯¥í¥¹½¸·×ɽ¤ÎʬÀÏ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2023/03/30(Thu) 22:16 No. 23240
°ìÆü°ìÆü¤¬¤½¤Î´µ¼Ô¤µ¤ó¤Î¹ÔÆ°¤ÈÉþÌô¤Î´ØÏ¢¤Ë´Ø¤¹¤ë¥Ç¡¼¥¿Ê콸ÃĤΤ¦¤Á¤ÎɸËܤǤ¹¤«¤é¡¤²Äǽ¤À¤È»×¤¤¤Þ¤¹¡£¤¿¤À¡¤°ì¿Í¤Ë¤Ä¤¤¤Æ¤Î·ë²Ì¤Ê¤Î¤Ç¡¤¤½¤ì¤ò¤â¤Ã¤Æ°ìÈ̲½¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¤Í¡£

Re: 1̾¤Î¥Ç¡¼¥¿¤ò¸µ¤ËºîÀ®¤·¤¿¥¯¥í¥¹½¸·×ɽ¤ÎʬÀÏ
¡¡¡¡Åê¹Æ¼Ô¡§kouryu 2023/03/31(Fri) 15:15 No. 23241
¤ªÎ餬ÃÙ¤¯¤Ê¤ê¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
¤ï¤¿¤·¤â°ìÈ̲½¤Ç¤Ï¤Ê¤¯¡¤¸Ä¿Í¡ÊA¤µ¤ó¡Ë¤ÎÆÃħ¤òÌÀ¤é¤«¤Ë¤¹¤ë¤³¤È¤òÌÜŪ¤È¤·¤ÆʬÀϤ·¤¿¤¤¤È¹Í¤¨¤Æ¤ª¤ê¤Þ¤¹¡£
¤´¶µ¼¨¤¯¤À¤µ¤ê¡¤¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿


ÀΤ¢¤Ã¤¿Excel VBA
¡¡¡¡Åê¹Æ¼Ô¡§ÇȲ» 2023/02/08(Wed) 09:21 No. 23235
ÀÄÌÚÀèÀ¸¤Ø¤ÎľÀÜ¥³¥á¥ó¥È¤Ë¤Ê¤ê¶²½Ì¤Ç¤¹¡£

ÀÎExcel VBA¤ò¸ø³«¤µ¤ì¤Æ¤¤¤Æ¡¢¥È¥Ã¥×¤«¤é¤Î¥ê¥ó¥¯¤ò³°¤µ¤ì¤¿¸å¤âÌ©¤«¤ËURL¼«ÂΤÏÀ¸¤­¤Æ¤¤¤¿¤È»×¤¦¤Î¤Ç¤¹¤¬¡¢¡¢¡¢º£¤Ï´°Á´¤Ë¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

¼Â¤ÏGoogle¥¹¥×¥ì¥Ã¥É¥·¡¼¥È¾å¤Ç¥í¥¸¥¹¥Æ¥£¥Ã¥¯²óµ¢¤È¥¯¥é¥¹¥¿¡¼Ê¬ÀϤò¼Â¹Ô¤·¤¿¤¯¤Æ¡¢ÀΤ¢¤Ã¤¿Excel VBA¤ò¼«Ê¬¤Ç°Ü¿¢¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£¡Ê°ìÈ̸ø³«¤¹¤ë¤è¤¦¤Ê°Õ¿Þ¤Ï¤¢¤ê¤Þ¤»¤ó¡Ë

¤â¤·²Äǽ¤Ç¤¢¤ì¤Ð¡¢²þ¤á¤Æ¤æ¤º¤Ã¤Æ¤¤¤¿¤À¤±¤Þ¤»¤ó¤Ç¤·¤ç¤¦¤«¡©

¢¨¥À¥¦¥ó¥í¡¼¥É¤·¤ÆÊݸ¤·¤Æ¤¤¤¿µ¤¤¬¤¹¤ë¤Î¤Ç¤¹¤¬¡¢¸«¤Ä¤±¤ë¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó¤Ç¤·¤¿¡¢¡¢¡¢

Re: ÀΤ¢¤Ã¤¿Excel VBA
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2023/02/08(Wed) 22:48 No. 23237
¤ª¤ä¤Þ¤¢¡¤¤³¤Ã¤½¤ê¤È±£¤·¤Æ¤·¤Þ¤Ã¤Æ¡¤¤½¤Î̾Á°¤â˺¤ì¤Æ¤¤¤Þ¤·¤¿¡£
°Ê²¼¤ò»²¾È¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£

http://aoki2.si.gunma-u.ac.jp/4192296vba/
http://aoki2.si.gunma-u.ac.jp/4192296work-sheets/

2014 ǯ¤Ë±£¤·¤¿¤ß¤¿¤¤¤Ç¤¹¡£

¥Ç¥£¥ì¥¯¥È¥ê̾¤Ï¡¤¡ÖÎɤ¤¹ñºî¤í¤¦¡×¤À¤Ã¤¿¤è¤¦¤Ç¤¹¤Í¡£
Îɤ¤¹ñºî¤ì¤¿¤Ç¤·¤ç¤¦¤«...

Re: ÀΤ¢¤Ã¤¿Excel VBA
¡¡¡¡Åê¹Æ¼Ô¡§ÇȲ» 2023/02/09(Thu) 09:46 No. 23238
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
ÂçÊѽõ¤«¤ê¤Þ¤¹¡£

¢¨¤½¤¦¤¤¤¨¤ÐÀÎ¤Ï .xls ¤ÇÌó6Ëü¹Ô¤·¤«Âбþ¤·¤Æ¤¤¤Ê¤«¤Ã¤¿¤Ç¤¹¤Í¡¢¡¢º£¤Ï·Ú¤¯100Ëü¹Ô¤È¤«°·¤¨¤ë¤Î¤ÇÊØÍø¤Ë¤Ê¤Ã¤¿¤È»×¤¤¤Þ¤¹¡£

¡ä¥Ç¥£¥ì¥¯¥È¥ê̾¤Ï¡¤¡ÖÎɤ¤¹ñºî¤í¤¦¡×¤À¤Ã¤¿¤è¤¦¤Ç¤¹¤Í¡£
¡äÎɤ¤¹ñºî¤ì¤¿¤Ç¤·¤ç¤¦¤«...

¤Ï¤¤¡¢¤³¤ì¤Ï´Ö°ã¤¤¤Ê¤¯¡ª


2Âæ¤ÎÀ£Ë¡Â¬ÄêÁõÃÖ¤ÎÍ­°Õº¹¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§Mao 2023/01/24(Tue) 10:32 No. 23227
2Âæ¤ÎÀ£Ë¡Â¬ÄêÁõÃÖ(»°¼¡¸µÂ¬Ä굡)¤ÎƱ°ì¥µ¥ó¥×¥ë¤ò¬Äꤷ¤¿»þ¤Ë¡¢Â¬ÄêÃͤ˺¹¤¬¤Ê¤¤¤È¸À¤¨¤ë¤Î¤«¡©º¹¤¬¤¢¤ë¤È¸À¤¨¤ë¤Î¤«¡©¤òȽÃǤ¹¤ë¾ì¹ç¡¢¤É¤ÎÍͤʼêË¡¤ò»È¤¨¤ÐÎɤ¤¤Î¤«¤ò
¶µ¤¨¤Æ²¼¤µ¤¤¡£

¼«Ê¬¤Ê¤ê²¿ÅÀ¤¬ÊýË¡¤Ï¹Í¤¨¤Þ¤·¤¿¡£

­¡Æ±°ì²Õ½ê¤ò5²ó¬Äꤷ¤Æ¡¢AÁõÃÖ/BÁõÃ֤κ¹¤Î¸¡Äê¤È¤·¤Æ¡¢t¸¡Äê¤ò¹Ô¤¦¡£
­¢Æ±°ì²Õ½ê¤ò5²ó¬Äꤷ¤Æ¡¢AÁõÃÖ¤ÎÊ¿¶ÑÃͤÈBÁõÃÖ¤ÎÊ¿¶ÑÃͤκ¹¤Èµ¡º¹0¤È¤·¤Æ¡¢Ê¿¶ÑÃͤÈ0¤Îº¹¤Î¸¡Æ¤¤È¤·¤Æ¡¢t¸¡Äê¤ò¹Ô¤¦¡£
­£´ð½à¥¹¥±¡¼¥ë¤ò¬Äꤷ¤Æ¡¢ÁõÃÖ¸øº¹Æâ¤Ê¤é¡¢Æ±¤¸¤ÈȽÃǤ¹¤ë¡£

­£¤ÏÅý·×¤È¤Ï´Ø·¸¤Ê¤¤¤È»×¤¤¤Þ¤¹¤¬¡¢°Æ¤È¤·¤Æ¹Í¤¨¤Þ¤·¤¿¡£

°Ê¾å

Re: 2Âæ¤ÎÀ£Ë¡Â¬ÄêÁõÃÖ¤ÎÍ­°Õº¹¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§ÎëÌÚ¹¯¹° 2023/01/27(Fri) 12:33 No. 23230
¤¿¤Ö¤ó£±¤¬°ìÈÖÉáÄ̤ÎÊýË¡¤È»×¤¤¤Þ¤¹¡£
¡Ê2¤Ï1¤ÈƱ¤¸£ôÃͤˤʤë¤Î¤Ç¤Ï¡©¡Ë

¤¿¤À¤·£ô¸¡Äê¤Ç¸À¤¨¤ë¤³¤È¤Ï¡Öº¹¤¬¤¢¤ë¡×¤«¡Öº¹¤¬¤¢¤ë¤È¤Ï¸À¤¨¤Ê¤¤¡×¤«¤Ç¡¢
¡Öº¹¤¬¤Ê¤¤¡×¤Ï¡Ö¸¡½ÐÎÏ¡Ê£±¡Ý¦Â¥¨¥é¡¼¡Ë²¿¡ó¤Ç¡×¤òÉÕµ­¤·¤Ê¤¤¤È¤¤¤±¤Ê¤¤¤Ç¤·¤ç¤¦¡£

Re: 2Âæ¤ÎÀ£Ë¡Â¬ÄêÁõÃÖ¤ÎÍ­°Õº¹¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§Mao 2023/02/03(Fri) 09:06 No. 23234
¤´²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

À£Ë¡Â¬ÄêÁõÃ֥᡼¥«¡¼¤È¤·¤Æ¤Ï¡¢´ð½à¥¹¥±¡¼¥ë(¹»ÀµÉ¸½à)¤ò¬Äꤷ¤Æ¡¢ÁõÃÖÀºÅÙ¤ËÍ­¤ì¤Ð¡¢ÌäÂê̵¤¤¤È¤Î»ö¤Ç¤·¤¿¡£

⤷¡¢ÈóÀÜ¿¨¼°¤ÎÀ£Ë¡Â¬ÄêÁõÃ֤ʤΤǡ¢²èÁüǧ¼±(¸÷¸»/¼þ¤ê¤Î´Ä¶­)¤ÇÊ¿¶ÑÃͤ˿ô¦Ìm¤Îº¹¤¬½Ð¤Æ¤¤¤Þ¤¹¡£
¬Ä굡¤Î·«¤êÊÖ¤·ÀºÅÙ¤¬Îɤ¤¤Î¤Ç¡¢t¸¡Äê¤ò¤¹¤ë¤Èº¹¤¬Í­¤ë¤È¸À¤¦·ë²Ì¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

¤´²óÅú¤ò»²¹Í¤ËºÆÅٹͤ¨¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

°Ê¾å


·²Ê¬¤±¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¤µ¤Ê 2023/01/21(Sat) 03:49 No. 23225
10¹àÌܳÆ5Ãʳ¬¡Ê1ÅÀ¡Á5ÅÀ¤ÇÇÛÅÀ¡Ë¤Ç²óÅú¤¹¤ë¥¢¥ó¥±¡¼¥È¤ò2¤Ä¹Ô¤¤¤Þ¤·¤¿¡£
¹ç·×ÆÀÅÀ¤Ï5¡Á50ÅÀ¤Î´Ö³Ö¼ÜÅÙ¤ÎÊÑ¿ô¤¬2¤ÄÆÀ¤é¤ì¤Þ¤·¤¿¤¬¡¢
1¤Ä¤á¤Î¥¢¥ó¥±¡¼¥È¤Î·ë²Ì¤òÃæ±ûÃͤǹⷲ¡¦Äã·²¤Ëʬ¤±¡¢
¤³¤Î¹â·²¡¦Äã·²¤´¤È¤Ë2¤Ä¤á¤Î¥¢¥ó¥±¡¼¥È¤Î·ë²Ì¤ÎÊ¿¶ÑÃͤò½Ð¤·¡¢t¸¡Äê¤ò¹Ô¤ª¤¦¤È»×¤Ã¤Æ¤¤¤Þ¤·¤¿¡£
¤·¤«¤·¡¢¤³¤Á¤é¤Î·Ç¼¨ÈĤǡ¢2·²¤Ëʬ¤±¤ë¤Î¤Ï¾ðÊó¤Î»¼º¤¬¤¢¤ë¤¿¤á¤è¤¯¤Ê¤¤¤ÈÃΤê¤Þ¤·¤¿¡£

¤½¤³¤Çµ¿Ìä¤Ê¤Î¤Ç¤¹¤¬¡¢

¡Ê1¡Ë¤½¤â¤½¤â¾ðÊó¤Î»¼º¤È¤Ï¤É¤Î¤è¤¦¤Ê¤â¤Î¤Ç¡¢¤Ê¤¼¥À¥á¤Ê¤ó¤Ç¤·¤ç¤¦¤«¡©

¡Ê2¡Ë¹â·²¡¦Ãæ·²¡¦Äã·²¤Î3·²¤Ê¤é¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

¡Ê3¡ËÂåÂؤÎʬÀÏÊýË¡¡Ê²óµ¢¡©¡Ë¤Ï¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

ÂÌʸ¤Ç¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬¡¢µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

Re: ·²Ê¬¤±¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2023/01/23(Mon) 15:43 No. 23226
(1) Î㤨¤Ð30ÅÀ̤Ëþ¤È30ÅÀ°Ê¾å¤Ç·²Ê¬¤±¤·¤¿¤È¤­5ÅÀ¤Î¿Í¤â29ÅÀ¤Î¿Í¤âƱ¤¸¤Ë°·¤ï¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¾ðÊó¤Î»¼º¤Ç¤¹¤Í¡£
¡Ê2¡Ë3·²¤Ë¤¹¤ì¤Ð¾ðÊ󻼺¤ÎÄøÅ٤ϴËϤµ¤ì¤ë¤Ç¤·¤ç¤¦¡£¤Ç4·²¡¤5·²¤È¤¹¤ì¤Ð¾ðÊó¤Î»¼º¤Ï¤É¤ó¤É¤ó¾¯¤Ê¤¯¤Ê¤ê¤Þ¤¹¤Í¡£°ìÈÖ¾ðÊó¤Î»¼º¤¬¤Ê¤¤¤Î¤Ï·²Ê¬¤±¤·¤Ê¤¤¡ÊÁÇÅÀ¤ò¤½¤Î¤Þ¤Þ»È¤¦¡Ë¾ì¹ç¤Ç¤¹¤Í¡£
¡Ê3¡ËÌÜŪ¤Ë¤è¤ê¤Þ¤¹¤Í¡£
2¤Ä¤Î¥¢¥ó¥±¡¼¥È¤Î´ØÏ¢À­¤ò¸«¤ë¤Ê¤é²óµ¢Ê¬ÀϤǤ¹¡£²óµ¢Ê¬ÀϤǤÏÁÇÅÀ¤½¤Î¤Þ¤Þ»È¤¨¤Ð¤è¤¤¤Ç¤¹¡£
Ê¿¶ÑÃͤκ¹¤ò¸«¤¿¤¤¾ì¹çŬÀÚ¤ÊʬÀϼêË¡¤Ï¸«Åö¤¿¤é¤Ê¤¤¤Î¤Ç¡¤·²¤Î¿ô¤ò¤½¤³¤½¤³¤Ë¤·¤Æ°ì¸µÇÛÃÖʬ»¶Ê¬ÀÏ¡Ê¥¦¥§¥ë¥Á¤ÎÊýË¡¤Ç¡Ë¤ò¹Ô¤¦¤È¤è¤¤¤Ç¤·¤ç¤¦¡£

Re: ·²Ê¬¤±¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¤µ¤Ê 2023/01/26(Thu) 22:44 No. 23228
ÀÄÌÚÀèÀ¸
¤´²óÅú¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
ÂçÊÑÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤¹¡£

>(1) Î㤨¤Ð30ÅÀ̤Ëþ¤È30ÅÀ°Ê¾å¤Ç·²Ê¬¤±¤·¤¿¤È¤­5ÅÀ¤Î¿Í¤â29ÅÀ¤Î¿Í¤âƱ¤¸¤Ë°·¤ï¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¾ðÊó¤Î»¼º¤Ç¤¹¤Í¡£

2·²¤Ëʬ¤±¤ë¤È¾ðÊó¤Î»¼º¤¬¤¢¤ë¤³¤È¤ÏÍý²ò¤Ç¤­¤Þ¤·¤¿¡£
Î㤨¤Ð¥¢¥ó¥±¡¼¥ÈÄ´ºº¤Ç¡¢
10¹àÌܤ˳Æ1ÅÀ¤«¤é5ÅÀ¤ÎÇÛÅÀ¤ò¤¹¤ë¤È¡¢10¡Á50ÅÀ¤Î²óÅú¤¬ÆÀ¤é¤ì¤Þ¤¹¤¬¡¢
¤³¤ì¤Ï´Ö³Ö¼ÜÅÙ¤Èǧ¼±¤·¤Æ¤¤¤Þ¤¹¡£
¤³¤Î·ë²Ì¤ò2·²¤Ëʬ¤±¤¿¾ì¹ç¡¢¾ðÊó¤Î»¼º¤Ë¤è¤ê¼ÁŪ¥Ç¡¼¥¿¡Ê̾µÁÊÑ¿ô¤Ç¤·¤ç¤¦¤«¡©¡Ë¤Ë¤Ê¤ë¤È²ò¼á¤·¤Æ¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©

Re: ·²Ê¬¤±¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2023/01/27(Fri) 08:22 No. 23229
ÆóÃͥǡ¼¥¿¤Ï¡Ê¤¿¤È¤¨À­Ê̤Τ褦¤Ê¾ì¹ç¤Ç¤â¡Ë´Ö³Ö¼ÜÅ٤Ǥ¹¡£
¡Ê¥À¥ß¡¼ÊÑ¿ô¤ò½Å²óµ¢Ê¬ÀϤʤɤοÊÑÎ̲òÀϤ˻Ȥ¨¤Þ¤¹¤Í¡Ë

Re: ·²Ê¬¤±¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¤µ¤Ê 2023/01/28(Sat) 01:44 No. 23231
ÀÄÌÚÀèÀ¸¡¢
¤´²óÅú¤¯¤À¤µ¤ê¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

Åý·×¤Î´ðËÜŪ¤Ê¤³¤È¤â¤ï¤«¤Ã¤Æ¤¤¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢
ÆóÃͥǡ¼¥¿¤Ï0¤òÀßÄê¤Ç¤­¤Ê¤¤¤¿¤á´Ö³Ö¼ÜÅ٤Ǥ¢¤ë¤³¤È¤Ï²¿¤È¤Ê¤¯Íý²ò¤Ç¤­¤ë¤Î¤Ç¤¹¤¬¡¢
À­Ê̤Ï̾µÁ¼ÜÅ٤ȳؤӤޤ·¤¿¡ÊÀ­Ê̤ϿôÃͤǤϤʤ¤¤È¤«¡Ë¤¬¡¢´Ö³Ö¼ÜÅ٤ˤʤꤦ¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

Re: ·²Ê¬¤±¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2023/01/28(Sat) 11:29 No. 23232
¤³¤Î·ï¤Ë¤Ä¤¤¤Æ¤Ï¡¤¤³¤³¤Ç¤â³°¤Ç¤â²¿½½²ó¤È¤Ê¤¯¿¨¤ì¤Æ¤­¤Þ¤·¤¿¤¬¡¤

> ÆóÃͥǡ¼¥¿¤Ï0¤òÀßÄê¤Ç¤­¤Ê¤¤¤¿¤á´Ö³Ö¼ÜÅ٤Ǥ¢¤ë¤³¤È¤Ï²¿¤È¤Ê¤¯Íý²ò¤Ç¤­¤ë

1. ÆóÃͥǡ¼¥¿¤Ï¡¤¡Ö0/1 ¥Ç¡¼¥¿¡×¤È¤â¸Æ¤Ð¤ì¤Þ¤¹¡£¥À¥ß¡¼ÊÑ¿ô¤Î¾ì¹ç¤Ê¤É¤ÏÉáÄÌ¤Ë 0/1 ¤ò³ä¤êÅö¤Æ¤Þ¤¹¡£¥À¥ß¡¼ÊÑ¿ô¤Ë¤½¤ì°Ê³°¤ÎÃͤò³ä¤êÅö¤Æ¤ëÎã¤Ï¸«¤¿¤³¤È¤Ê¤¤¤È¸À¤Ã¤Æ¤è¤¤¤Û¤É¤Ç¤¹¡£
2. ¡Ö´Ö³Ö¡×¤¬°ÕÌ£¤ò»ý¤Ä¤Î¤Ï¡¤ÂоÝʪ¤¬ 3 ¸Ä°Ê¾å¤Î¾ì¹ç¤Ç¤¹¡£Î㤨¤Ð¡¤1,2,3 ¤·¤«¼è¤ê¤¨¤Ê¤¤¥Ç¡¼¥¿¤Ï´Ö³Ö¼ÜÅ٤ˤʤê¤Þ¤¹¤¬¡¤1,2,5 ¤Ï´Ö³Ö¼ÜÅ٤ǤϤʤ¤¡Ê½ç½ø¼ÜÅ٤Ǥ¢¤ë¡Ë¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ë¤Ç¤·¤ç¤¦¡£1¡¤2 ¤Î¤¤¤º¤ì¤«¤·¤«¼è¤ì¤Ê¤¤¥Ç¡¼¥¿¤Ï´Ö³Ö¤Ï 1 ¤Ä¤·¤«Â¸ºß¤·¤Ê¤¤¤Î¤Ç¡¤¡Ö´Ö³Ö¼ÜÅ٤ǤϤʤ¤¡×¤È¤¤¤¦¤³¤È¤¬¤Ç¤­¤Ê¤¤¤Î¤Ç¤¹¡£

> À­Ê̤Ï̾µÁ¼ÜÅ٤ȳؤӤޤ·¤¿¡ÊÀ­Ê̤ϿôÃͤǤϤʤ¤¤È¤«¡Ë

1. ÆóÃͥǡ¼¥¿¤ò¥³¥ó¥Ô¥å¡¼¥¿¾å¤Ëɽ¸½¤¹¤ë¤È¤­¡¤ÊýË¡¤Ï¤¤¤¯¤Ä¤«¤¢¤ê¤Þ¤¹¡£
1.1. ʸ»úÎó¤Çɽ¤¹¡£Î㤨¤ÐÀ­Ê̤ʤé¡ÖÃË/½÷]¡¤"male/female", "¡é/¡ê"
¥³¥ó¥Ô¥å¡¼¥¿¤Î¥á¥â¥ê¾å¤Ç¤Ïʸ»úÎó¤â½êÁ§ 2 ¿Ê¿ô¤Çɽ¤µ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¤¤½¤ì¤ò¿ôÃͤȤ·¤ÆÆɤ߼è¤ì¤Ð¡¤¼¡¹à¤ÈƱ¤¸¤Ç¤¹¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¤Þ¤¿¡¤Åý·×²òÀÏ¥×¥í¥°¥é¥à¤Ë¤â¤è¤ê¤Þ¤¹¤¬¡¤Î㤨¤Ð R ¤À¤È¡¤Ì¾µÁ¼ÜÅ٥ǡ¼¥¿¤Ï factor ¤È¤¤¤¦ÊÑ¿ô·¿¤ËÊݸ¤µ¤ì¤ë¤³¤È¤â¤¢¤ê¡¤factor ¤Ï ʸ»úÎó¤ÈƱ»þ¤ËÀ°¿ôÃͤǤ⵭Ͽ¤µ¤ì¤Þ¤¹¡£¤½¤·¤Æ¡¤Ê¬ÀϼêË¡¤Ë±þ¤¸¤Æ̾µÁ¼ÜÅ٤Ȥ·¤Æ»È¤ï¤ì¤ë¤³¤È¤â¡¤¿ôÃͤȤ·¤Æ»È¤ï¤ì¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¡£¤â¤· 3 ¸Ä°Ê¾å¤Î¥«¥Æ¥´¥ê¡¼¤ò»ý¤Ä¤Ê¤é¡¤¿ôÃͤȤ·¤Æ»È¤¦É¬Íפ¬¤¢¤ë¾ì¹ç¤Ë¤ÏÊ£¿ô¸Ä¤Î¥À¥ß¡¼ÊÑ¿ô¤ËÊÑ´¹¤µ¤ì¤Þ¤¹¡£À­Ê̤ʤé ÃË¤Ï 0¡¤½÷¤Ï 1 ¤È¤¤¤¦¶ñ¹ç¤Ë¤Ê¤ê¤Þ¤¹¡£¤Ä¤Þ¤ê¥«¥Æ¥´¥ê¡¼¤¬ 2 ¸Ä¤Î 1 ¸Ä¤Î̾µÁ¼ÜÅÙÊÑ¿ô¤Ï 1 ¸Ä¤Î¥À¥ß¡¼ÊÑ¿ô¤ËÊÑ´¹¤µ¤ì¤Þ¤¹¡£µÕ¤Ë¸À¤¨¤Ð¡¤ºÇ½é¤«¤é¥À¥ß¡¼ÊÑ¿ô¤Ë¤·¤Æ¤ª¤±¤ÐÊÑ´¹¤Î¼ê´Ö¤¬¤«¤«¤é¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ç¤¹¡£
1.2. ¿ôÃͤÇɽ¤¹¡£Î㤨¤ÐÀ­Ê̤ʤé 1/2, 0/1, 11/100
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¤É¤ó¤ÊÃͤΥڥ¢¤Ë³ä¤êÅö¤Æ¤Æ¤â¹½¤¤¤Þ¤»¤ó¡£Ãˤò 1¡¤½÷¤ò 2 ¤Çɽ¤¹¤Î¤Ï´·Îã¤Ë¤·¤«²á¤®¤Þ¤»¤ó¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Ç¤°Õ¤Î³äÅö¤Ï¡¤Ê̤γäÅö¤ËÊÑ´¹¤Ç¤­¤Þ¤¹ x = 11 ¤Þ¤¿¤Ï 100 ¤ò y = 0 ¤Þ¤¿¤Ï 1 ¤ËÊÑ´¹¤¹¤ë¤Î¤Ï y = (x - 11)/99 ¤È¤¤¤¦Àþ·ÁÊÑ´¹¤ò¹Ô¤¨¤Ð¤è¤¤¤À¤±¤Ç¤¹¡£¤¢¤ëÊÑ¿ô¤ËǤ°Õ¤ÎÀþ·ÁÊÑ´¹¤ò¹Ô¤Ã¤Æ¤â¡¤Åý·×³Ø¾å¤Ï¤Ê¤ó¤ÎÌäÂê¤âµ¯¤­¤Þ¤»¤ó¡£Ê¿¶ÑÃͤÏÊѤï¤Ã¤Æ¤â¡¤Î㤨¤ÐÆóÊÑ¿ô´Ö¤ÎÁê´Ø·¸¿ô¤Ë¤Ï¤Ê¤ó¤ÎÊѲ½¤â¤¢¤ê¤Þ¤»¤ó¡£

·ëÏÀ
1.¡¡ÆóÃÍÊÑ¿ô¤Ï¡¤¡Ê¤¿¤È¤¨Ê¸»úÎó¤Çɽ¤·¤¿¤È¤·¤Æ¤â¡Ë¡¤Ì¾µÁ¼ÜÅ٤Ǥ⤢¤ê¡¤¡ÊÍ¿¤¨¤é¤ì¤ë¿ôÃͤˤè¤Ã¤Æ¤Ï½ç½ø¤ÏÆþ¤ìÂؤï¤ë¤¬¡Ë½ç½ø¼ÜÅ٤Ǥ⤢¤ê¡¤´Ö³Ö¼ÜÅ٤Ǥ⤢¤ê¡¤¡Ê¤¤¤º¤ì¤â¡¡ 0 °Ê³°¤Î¿ôÃͤò»ý¤Ä¤è¤¦¤Ë¤¹¤ì¤Ð¡ËÈæ¼ÜÅ٤Ǥ⤢¤ê¤Þ¤¹¡£

¥À¥ß¡¼ÊÑ¿ô¤ò¿ÊÑÎ̲òÀϤ˻Ȥ¦¤³¤È¤¬¤Ç¤­¤ë¤Î¤Ï¡¤ÆóÃͥǡ¼¥¿¡Ê0/1 ¥Ç¡¼¥¿¡Ë ¤¬Èæ¼ÜÅ٤Ǥ⤢¤ë¤«¤é¡¤Èæ¼ÜÅÙÊÑ¿ô¤Ë¤·¤«Å¬ÍѤǤ­¤Ê¤¤¥Ô¥¢¥½¥ó¤ÎÀÊΨÁê´Ø·¸¿ô¤ò·×»»¤Ç¤­¤ë¤«¤é¤Ç¤¹¡£

À­Ê̤ò̾µÁ¼ÜÅ٤Ȥ·¤Æ°·¤¨¤Ð¡¤ÅÙ¿ôʬÉÛ¤òµá¤á¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£À­Ê̤ò 0/1 ¤Çɽ¤·¤¿¾ì¹ç¡¤¤½¤ÎÊÑ¿ô¤ÎÊ¿¶ÑÃͤò¼è¤ì¤Ð¡¤ÃÍ 1 ¤ò³ä¤êÅö¤Æ¤é¤ì¤¿¤â¤Î¤Î³ä¹ç¤Ë¤Ê¤ê¤Þ¤¹¡£

> x = c("M", "F", "M", "M", "F")
> class(x)
[1] "character"
> y = factor(x)
> y
[1] M F M M F
Levels: F M
> as.integer(y)
[1] 2 1 2 2 1
> table(x)
x
F M
2 3
> table(y)
y
F M
2 3
> z = as.integer(y) - 1
> z
[1] 1 0 1 1 0
> mean(z)
[1] 0.6


ÆóÊÑ¿ôÅý·×¤Ë¤Ä¤¤¤Æ¤âƱ¤¸¤è¤¦¤Ë¤ä¤Ã¤Æ¤ß¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Æó½Å¥¯¥í¥¹½¸·×ɽ¤«¤é¥Õ¥¡¥¤·¸¿ô¤òµá¤á¤¿¤Î¤È¡¤2Ãͥǡ¼¥¿¤È¤·¤ÆÁê´Ø·¸¿ô¤òµá¤á¤¿¤Î¤È¡¤Æ±¤¸¿ôÃͤˤʤê¤Þ¤¹¡Ê¿ôÃͤÎÍ¿¤¨Êý¤Ë¤è¤Ã¤ÆÉä¹æ¤ÏÊѤï¤ë¤³¤È¤¬¤¢¤Ã¤Æ¤â¡¤ÀäÂÐÃͤÏƱ¤¸¤Ç¤¹¡Ë¡£

R ¤Ç¤Ï¡¤Â¿ÊÑÎ̲òÀϤË̾µÁ¼ÜÅÙÊÑ¿ô¤ò»È¤¦¤È¡¤¼«Æ°Åª¤Ë¥À¥ß¡¼ÊÑ¿ô¤ËŸ³«¤·¤Æ¤«¤éʬÀϤ·¤Æ¤¯¤ì¤Þ¤¹¡£

> class(iris$Species)  # Species ¤Ï̾µÁ¼ÜÅÙÊÑ¿ô¡Êfactor ·¿¡Ë¤Ç¤¹
[1] "factor"

> res = lm(Sepal.Length ~ ., data=iris)
> summary(res)

Call:
lm(formula = Sepal.Length ~ ., data = iris)

Residuals:
Min 1Q Median 3Q Max
-0.79424 -0.21874 0.00899 0.20255 0.73103

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.17127 0.27979 7.760 1.43e-12
Sepal.Width 0.49589 0.08607 5.761 4.87e-08
Petal.Length 0.82924 0.06853 12.101 < 2e-16
Petal.Width -0.31516 0.15120 -2.084 0.03889
Speciesversicolor -0.72356 0.24017 -3.013 0.00306 # ̾µÁ¼ÜÅÙÊÑ¿ô Species ¤Î¥À¥ß¡¼ÊÑ¿ô1
Speciesvirginica -1.02350 0.33373 -3.067 0.00258 # ̾µÁ¼ÜÅÙÊÑ¿ô Species ¤Î¥À¥ß¡¼ÊÑ¿ô2

Residual standard error: 0.3068 on 144 degrees of freedom
Multiple R-squared: 0.8673, Adjusted R-squared: 0.8627
F-statistic: 188.3 on 5 and 144 DF, p-value: < 2.2e-16


Re: ·²Ê¬¤±¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¤µ¤Ê 2023/01/29(Sun) 20:20 No. 23233
ÀÄÌÚÀèÀ¸
Èó¾ï¤Ë¤ï¤«¤ê¤ä¤¹¤¯¤´ÀâÌÀ¤¯¤À¤µ¤¤¤Þ¤·¤Æ¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¤è¤¦¤ä¤¯Íý²ò¤¬¤Ç¤­¤Þ¤·¤¿¡£
¤Þ¤À¤Þ¤ÀÊÙ¶¯ÉÔ­¤Ê¼«Ê¬¤Ë·ùµ¤¤¬¤µ¤·¤Æ¤­¤Þ¤·¤¿¤¬¡¢º£¸å¤âÊÙ¶¯¤·¤Æ¤¤¤­¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


Åý·×¼êË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÏÂÅÄ 2022/12/22(Thu) 03:53 No. 23221
·ì±Õ·¿¤ÎA·¿¤¬30¿Í¡¢B·¿¤¬31¿Í¡¢O·¿¤¬33¿Í¡¢AB·¿¤¬6¿Í¤È¤·¤Þ¤¹¡£
µ¢Ìµ²¾Àâ¤ò·ì±Õ·¿¤Ë¤ÏÊФ꤬¤Ê¤¤¤Ä¤Þ¤ê¤É¤Î·ì±Õ·¿¤Î¿Í¤â1/4¤Ç¸½¤ì¤ë¤È¤·¤Æ¡¢Í­°Õ¿å½à5%¤ÇŬ¹çÅ٤Υ«¥¤Æó¾è¸¡Äê¤ò¤¹¤ë¤È¡¢¥«¥¤Æó¾èÃͤÏ19.44¤È¤Ê¤Ã¤Æ¡¢¼«Í³ÅÙ¤Ï3¤Ç´þµÑ¸Â³¦ÃͤÏ7.84...¤Ê¤Î¤Çµ¢Ìµ²¾Àâ¤Ï´þµÑ¤µ¤ì¤Þ¤¹¡£¥«¥¤Æó¾è¸¡Äê¤Ç¤Ï·ì±Õ·¿¤Ë¤ÏÊФ꤬¤¢¤ë¤³¤È¤¬Ê¬¤«¤ê¤Þ¤¹¤¬¡¢AB·¿¤¬¾¯¤Ê¤¤¤³¤È¤ò¸À¤¨¤ë¤ï¤±¤Ç¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£¤³¤ÎÎã¤ÇAB·¿¤¬¾¯¤Ê¤¤¤³¤È¤òÅý·×Ū¤Ë¸À¤¨¤ë¼êË¡¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤­¤¿¤¤¤Ç¤¹¡£ÀÛ¤¤Ê¸¤Ç¤¹¤¬²óÅú¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: Åý·×¼êË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/12/22(Thu) 08:06 No. 23222
AB ·¿¤È¤½¤ì°Ê³°¤Î 2 ¥«¥Æ¥´¥ê¡¼¤ËʬÎह¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡£

Re: Åý·×¼êË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÏÂÅÄ 2022/12/22(Thu) 14:17 No. 23223
¤ªË»¤·¤¤Ãæ¡¢¤ªÊÖ»ö¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£½õ¤«¤ê¤Þ¤·¤¿¡£


¥Ñ¥é¥á¥È¥ê¥Ã¥¯¤ÎÄêµÁ¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§¥Ð¥Ã¥Ï»°Ïº 2022/11/28(Mon) 12:59 No. 23219
ÀÄÌÚÀèÀ¸

Èó¾ï¤Ë½éÊâŪ¤Ê¼ÁÌä¤Ç¤¹¤¬¡¢²ò·è¤Ç¤­¤º¤ËŤ¤¤³¤ÈǺ¤ó¤Ç¤¤¤Þ¤¹¡£°åÎÅÌô³ØÅý·×¤Ç¤Ï¡¢¥Ñ¥é¥á¥È¥ê¥Ã¥¯Ë¡¤È¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯Ë¡¤¬¡¢¡Ö¡ß¡ß¸¡Äê¤Ï¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯¡×¤Î¤è¤¦¤Ëɽ¤Ë¤Ê¤Ã¤Æ¤Þ¤È¤á¤é¤ì¤Æ¤¤¤Þ¤¹¡£¤½¤ÎÄêµÁ¤Ï¡ÖÊ콸ÃÄʬÉۤ˲¿¤é¤«¤ÎÆÃÄê¤Î·¿¤ò²¾Äꤹ¤ë¤«¤É¤¦¤«¡×¤Ë¤¢¤ë¤Î¤À¤È»×¤¤¤Þ¤¹¤¬¡¢¥Ñ¥é¥á¡¼¥¿¤ÏÊì¿ô¤ÎÌõ¸ì¤À¤È¤¤¤¦¤³¤È¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£ÊìÊ¿¶Ñ¤äÊìʬ»¶¤ÏΩÇɤÊÊì¿ô¤À¤È»×¤¤¤Þ¤¹¤¬¡¢¤¿¤È¤¨¤Ð¡¢Ê콸ÃÄʬÉÛ¤¬ÉÔÌÀ¤Ê¾ì¹ç¤ËÊìÊ¿¶Ñ¤Î¿äÄê¤ä¸¡Äê¤ò¤¹¤ë¤È¤­¡¢É¸ËÜ¿ô¤¬½½Ê¬Â礭¤±¤ì¤ÐÃæ¿´¶Ë¸ÂÄêÍý¤¬Æ¯¤¤¤Æ¡¢¶á»÷Ū¤ËÀµµ¬Ê¬ÉÛ¤òÍѤ¤¤ÆÊìÊ¿¶Ñ¤Î¿äÄꡦ¸¡Ä꤬¤Ç¤­¤ë¤Ï¤º¤Ç¤¹¡£¡Ö¥Ñ¥é¥á¥È¥ê¥Ã¥¯¡×¤È¤¤¤¦¶Á¤­¤¬¡¢¡Ö³ÎΨ̩Åٴؿô¤Ë´Þ¤Þ¤ì¤ë¥Ñ¥é¥á¡¼¥¿¤òÂоݤȤ·¤¿¡×¤È¤¤¤¦¥Ë¥å¥¢¥ó¥¹¤ò´¶¤¸¤Æ¤·¤Þ¤¦¤Î¤Ç¤¹¤¬¡¢¤³¤Î¾ì¹ç¤ÏÊ콸ÃÄʬÉÛ¤¬ÉÔÌÀ¤Ê¤Î¤Ç¤¹¤«¤é¡¢¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯Ë¡¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£¤Þ¤¿¡¢¤É¤ÎËܤˤâ¡Ö¥«¥¤2¾è¸¡Äê¤Ï¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯¡×¤È½ñ¤¤¤Æ¤¢¤ë¤Î¤Ç¤¹¤¬¡¢tʬÉÛ¤ò»È¤¦¸¡Ä꤬t¸¡Äê¤Ê¤é¡¢¥«¥¤2¾èʬÉÛ¤ò»È¤¦¸¡Äê¤Ï¥«¥¤2¾è¸¡Äê¤È¸À¤¦¤Ù¤­¤À¤È¹Í¤¨¤Þ¤¹¡£¤¹¤ë¤È¡¢Àµµ¬Ê콸ÃĤËÂФ·¤Æ¡¢¤½¤ÎÊìʬ»¶¤Î¸¡Äê¤Ë¡¢ËÜÍè¤Î°ÕÌ£¤Ç¥«¥¤2¾èʬÉÛ¤ò»È¤¦¤Î¤Ï¤É¤¦¹Í¤¨¤Æ¤â¥Ñ¥é¥á¥È¥ê¥Ã¥¯¸¡Äê¤À¤È»×¤¦¤Î¤Ç¤¹¡£ÆÈΩÀ­¤Î¸¡Äê¤ËÍѤ¤¤ë¤Î¤Ï¡¢¥µ¥¤¥º¤¬Â礭¤¤¾ì¹ç¤Ë¶á»÷Ū¤Ë¥«¥¤2¾èʬÉۤ˽¾¤¦¥Ô¥¢¥½¥ó¤Î¥«¥¤2¾èÃͤǤ¹¤è¤Í¡£¡Ö¥«¥¤2¾è¸¡Äê¡×¤È¤¤¤Ã¤¿¤é¸å¼Ô¤Î°ÕÌ£¤Ë¸ÂÄꤵ¤ì¤ë¡¢¤Ê¤É¤È¤¤¤¦ÄêµÁ¤¬¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£Ìô³ØÅý·×¤Ç¤Ï¥Ñ¥é¥á¥È¥ê¥Ã¥¯¡¦¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯¤È¤¤¤¦¶èÊ̤¬²¿¤«Èó¾ï¤ËÂç»ö¤Ë¤µ¤ì¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¤¬¡¢·ë¶É¤Î¤È¤³¤í¡¢¡Ö¥Ñ¥é¥á¥È¥ê¥Ã¥¯¤ÎÀµ³Î¤ÊÄêµÁ¤Ã¤Æ²¿¡©¡×¤È¤¤¤¦ÌäÂê¤Ë¹Ô¤­¤Ä¤¤¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£


½ç½ø¼ÜÅÙ¤ÎʬÀϤˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§NËÜ 2022/11/25(Fri) 18:22 No. 23218
¤¢¤ë³«È¯Êª¤ÎÀ­Ç½É¾²Á¤Î¤¿¤á¤Ë¡¤
1 ³«È¯Êª¤Ê¤·¤Ç¹Ô¤Ã¤¿¾ì¹ç
2 ³«È¯Êª¤¢¤ê¤Ç¹Ô¤Ã¤¿¾ì¹ç
¤ÎÆó¾ò·ï¤Ë¤Æ
¹Ô¤Ã¤¿Ê£¿ô¤Î¥¿¥¹¥¯¤òÉéô¤ÎÂ礭¤µ¤Î½ç¤ËʤÙÂؤ¨ÌäÂê¤ò¼Â»Ü¤·¤¿·ë²Ì¤ÎʬÀϤò¹Ô¤¤¡¤
³«È¯Êª¤òƳÆþ¤·¤¿¤³¤È¤Ë¤è¤ë¸ú²Ì¤ò¬¤í¤¦¤È»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¡¥

Îã)
³«È¯Êª¤Ê¤·
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¥¿¥¹¥¯A¡¡¥¿¥¹¥¯B¡¡¥¿¥¹¥¯C
¥æ¡¼¥¶1¡¡¡¡¡¡¡¡2¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡3¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡1
¥æ¡¼¥¶2¡¡¡¡¡¡¡¡1¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡2¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡3

³«È¯Êª¤¢¤ê
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¥¿¥¹¥¯A¡¡¥¿¥¹¥¯B¡¡¥¿¥¹¥¯C
¥æ¡¼¥¶1¡¡¡¡¡¡¡¡1¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡2¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡3
¥æ¡¼¥¶2¡¡¡¡¡¡¡¡2¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡1¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡3

º£¸½ºß¡¤2¾ò·ï¤Ë¤Æ½ç½ø¼ÜÅ٤Υǡ¼¥¿¤Ï½¬ÆÀ¤Ç¤­¤¿¤Î¤Ç¤¹¤¬¡¤´Î¿´¤ÎʬÀϼêË¡¤Ë¤Ä¤¤¤Æ¡¤¤É¤Î¤è¤¦¤Ê¼êË¡¤òÍѤ¤¤ì¤Ð¤è¤¤¤Î¤«Çº¤ó¤Ç¤ª¤ê¤Þ¤¹¡¥
¤Ê¤Ë¤«Ì¯°Æ¤¬¤¢¤ì¤Ð¡¤¶µ¤¨¤Æ¤¤¤¿¤À¤±¤ì¤Ð¤È»×¤¤¤Þ¤¹¡¥

Äɵ­¡Ë¤³¤Á¤é¡¤Àµµ¬Ê¬É۰ʳ°¤ÎʬÉۤ˽¾¤¦¥Ç¡¼¥¿¤Ç¤¢¤ê¡¤½ç½ø¼ÜÅÙ¡¤Ãæ±ûÃͤòÈæ³Ó¤¹¤ë¤³¤È¤ËÂФ·¤Æ°ÕÌ£¤¬¤¢¤ë¥Ç¡¼¥¿¤Ç¤¢¤ê¡¤°ì¤Ä¤ÎɸËܤËÂФ·¤Æ¾ò·ï¤òÊѤ¨¤Æ¤¨¤¿2¤Ä¤Î¥Ç¡¼¥¿¤Ç¤¢¤ë¤¿¤á

³«È¯Êª¤Ê¤·¡¦¤¢¤ê¤Î¸Ä¡¹¤Î¥¿¥¹¥¯¤Ë¤Ä¤¤¤Æ¡¤¥¦¥£¥ë¥³¥¯¥½¥ó¤Î½ç°Ìϸ¡Äê¤ò¸¡Äê¤ò¹Ô¤¨¤Ð¤è¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¡©¤È¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¦¡¦¡¦¹Í¤¨Êý¤È¤·¤Æ¤Ï¤¢¤Ã¤Æ¤¤¤ë¤Ç¤·¤ç¤¦¤«¡©


Æó¸µÇÛÃÖʬ»¶Ê¬ÀϤβò¼á¤Î»ÅÊý
¡¡¡¡Åê¹Æ¼Ô¡§YÅÄ 2022/10/04(Tue) 16:32 No. 23211
¹Ö½¬²ñ¤Î¥¢¥ó¥±¡¼¥È¤ò¤È¤ê¤Þ¤·¤¿¡££´¤Ä¤Î¹àÌܤÇÆü¤òÊѤ¨¤Æ5²ó¥¢¥ó¥±¡¼¥È¤ò¤È¤ê¤Þ¤·¤¿¡Ê»²²Ã¼Ô¤ÏÁ´ÉôƱ¤¸¤Ç¤¹¡Ë¡£
¥¢¥ó¥±¡¼¥È¹àÌܤÎÃͤ¬Æü¤Ë¤è¤Ã¤Æ¸þ¾å¤¹¤ë¤Î¤ò³Îǧ¤·¤¿¤¯¤Æ¡ÖÈ︳¼Ô´Ö°ø»Ò¡§¥¢¥ó¥±¡¼¥È¹àÌܡסÖÈ︳¼ÔÆâ°ø»Ò¡§»þ´Ö·Ð²á¡ÊÆü¤ò¤«¤¨¤Æ¥¢¥ó¥±¡¼¥È£µ²ó¡Ë¡×¤È¤·¤ÆÆó¸µÇÛÃÖʬ»¶Ê¬ÀϤò¹Ô¤¤¤Þ¤·¤¿¡£

¤½¤Î·ë²Ì¡¢
¡¦È︳¼ÔÆâ°ø»Ò¤ÇÍ­°Õº¹¤¢¤ê
¡¦È︳¼Ô´Ö°ø»Ò¤ÇÍ­°Õº¹Ìµ¤·
¡¦¸ò¸ßºîÍÑ̵¤·
¤Ç¤·¤¿¡£

¤½¤ì¤Ç¼ÁÌ䤬¤¢¤ê¤Þ¤¹¡£
¤½¤Î£±¡§¸ò¸ßºîÍѤ¬¤Ê¤¯¤Æ¤â¤½¤Î¤Þ¤Þ¥¢¥ó¥±¡¼¥È¹àÌܤÎñ½ã¼ç¸ú²Ì¤Î¸¡Äꡢ¿½ÅÈæ³Ó¤È¹Ô¤Ã¤Æ¤âÌäÂê¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£

¤½¤Î£²¡§¥¢¥ó¥±¡¼¥È¹àÌܤΣ´¤Ä¤ÎÆâ1¤Ä¤Çñ½ã¸ú²Ì¤Î¸¡Äê¤ÇÍ­°Õº¹¤¬¤¢¤ê¡¢Â¿½ÅÈæ³Ó¤Ç¤âÍ­°Õº¹¤¬¤¢¤ë¤Î¤¬¤¢¤ê¤Þ¤·¤¿¡£¤½¤ì¤ËÂФ·¡¢Ã±½ã¸ú²Ì¤Î¸¡Äê¤ÇÍ­°Õº¹¤Ï¤Ê¤¤¤Ç¤¹¤¬¡¢Â¿½ÅÈæ³Ó¤Ç¤¤¤¯¤Ä¤«Í­°Õº¹¤¬¤¢¤ë¤Î¤¬¤¢¤ê¤Þ¤·¤¿¡£¤³¤ÎÅÀ¤Ë¤Ä¤¤¤Æ¤Ï¡ÖÍ­°Õº¹¤¬¤¢¤Ã¤¿¡×¤È¤·¤Æ²ò¼á¤ò¤·¤Æ¤â¤è¤¤¤â¤Î¤Ç¤·¤ç¤¦¤«¡£

¤½¤Î£³¡§¥¢¥ó¥±¡¼¥È¹àÌܤ´¤È¤Ç°ì¸µÇÛÃÖʬ»¶Ê¬ÀϤò¹Ô¤Ã¤¿¡Ê¹àÌÜʬ¤Î£´¤Ä¤Ëʬ¤±¤Æ¤ª¤³¤Ê¤Ã¤¿¡Ë¤é¡¢Â¿½ÅÈæ³Ó¤ÇÍ­°Õº¹¤¬¤Ç¤Ê¤¯¤Ê¤ê¤Þ¤·¤¿¡£¤³¤ì¤Ï¤É¤Î¤è¤¦¤Ë²ò¼á¤·¤¿¤é¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£

Re: Æó¸µÇÛÃÖʬ»¶Ê¬ÀϤβò¼á¤Î»ÅÊý
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/10/12(Wed) 22:53 No. 23215
¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
¤½¤Á¤é¤ÎÊýÌ̤ˤϾܤ·¤¯¤Ê¤¤¤Ç¤¹¡£
Á³¤ë¤Ù¤­»²¹Í½ñ¤ò»²¾È¤Ê¤µ¤ì¤ë¤«¡¤Ê̤Υե©¥í¥ï¡¼¤Î¤´²óÅú¤ò¤ªÂÔ¤Á²¼¤µ¤¤¡£


¥¯¥é¥¹¥«¥ë¡¦¥¦¥©¥ê¥¹¸¡Äê¤È°ì¸µÇÛÃÖ¤Îʬ»¶Ê¬ÀϤȤÎÂÐÈæ¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§ÉÚÅIJí°ì 2022/10/06(Thu) 22:25 No. 23213
¡¡°ì¸µÇÛÃÖ¤Îʬ»¶Ê¬ÀϤËÂбþ¤¹¤ë¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯¸¡Äê¤Ç¤¢¤ë¥¯¥é¥¹¥«¥ë¡¦¥¦¥©¥ê¥¹¸¡Äê¤ÎÅý·×Î̤ϡ¢N¸Ä¤Î¥Ç¡¼¥¿Á´ÂΤòÄ̤·¤ÆÉÕ¤±¤¿½ç°Ì(1¡ÁN)¤Ë¤Ä¤¤¤Æ¡¢ÁíÊ¿¶Ñ½ç°Ì¤«¤é¤Î¡¢µé´Ö¡Ê¼ç¸ú²Ì¡ËÊ¿ÊýϤòÁíÊ¿ÊýϤdzä¤ê¡ÊN-1¡Ë¤ò³Ý¤±¤¿¿ôÃͤǤ¹¡£¡Ê1¡Ë¤³¤ì¤¬¼«Í³ÅÙ¡ÊN-1¡Ë¤Î¥«¥¤2¾èʬÉۤ˽¾¤¦Íýͳ¤Ï²¿¤Ç¤·¤ç¤¦¤«¡£
¡¡¤Þ¤¿¡¢¡Ê2¡Ëʬ»¶Ê¬ÀϤΤ褦¤Ë¡¢µé´Ö¡Ê¼ç¸ú²Ì¡ËÊ¿ÊýϤò¤½¤Î¼«Í³Å٤ǽü¤·¤¿Ê¬»¶¤òʬ»Ò¡¢¸íº¹Ê¿ÊýϤò¤½¤Î¼«Í³¤Ç½ü¤·¤¿Ê¬»¶¤òʬÊì¤È¤¹¤ëÈæ¤ò·×»»¤·¤Æ¥¨¥Õ¸¡Äê¤ò¤·¤Ê¤¤¤Î¤Ï¤Ê¤¼¤Ç¤·¤ç¤¦¤«¡£
¡¡µÕ¤Ë¡¢¡Ê3¡Ë°ì¸µÇÛÃÖ¤Îʬ»¶Ê¬ÀϤˤª¤¤¤Æ¡¢µé´Ö¡Ê¼ç¸ú²Ì¡ËÊ¿ÊýϤòÁíÊ¿ÊýϤdzä¤ê¡ÊN-1¡Ë¤ò³Ý¤±¤¿¿ôÃͤò¼«Í³ÅÙ¡ÊN-1¡Ë¤Î¥«¥¤2¾èʬÉۤˤè¤ê¸¡Äꤷ¤Ê¤¤¤Î¤Ï¤Ê¤¼¤Ç¤·¤ç¤¦¤«¡£

¡¡ËÜÍè¡¢¶ñÂÎŪ¤ÊʬÀÏÆâÍƤΰո«¸ò´¹¤Î¾ì¤Ë¡¢¤³¤Î¤è¤¦¤Ê¼ÁÌä¤Ç¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£

Re: ¥¯¥é¥¹¥«¥ë¡¦¥¦¥©¥ê¥¹¸¡Äê¤È°ì¸µÇÛÃÖ¤Îʬ»¶Ê¬ÀϤȤÎÂÐÈæ¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/10/12(Wed) 22:46 No. 23214
¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
°Ê²¼¤ò¸æÍ÷¤¯¤À¤µ¤¤¡£
https://www.jstor.org/stable/2236578


³ÈÄ¥¤µ¤ì¤¿¥Þ¥¯¥Í¥Þ¡¼
¡¡¡¡Åê¹Æ¼Ô¡§Lion 2022/09/02(Fri) 11:14 No. 23205
ÀÄÌÚÀèÀ¸

Ϣ³¤ÎÅê¹Æ¡¤¼ºÎ餤¤¿¤·¤Þ¤¹¡£ÀèÀ¸¤«¤é¤´¶µ¼¨¤¤¤¿¤À¤¤¤¿³ÈÄ¥¤µ¤ì¤¿¥Þ¥¯¥Í¥Þ¡¼¸¡Äê¤ò»È¤¦µ¡²ñ¤¬¤¢¤ê¡¤Ì䤤¹ç¤ï¤»¤ò¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£²¼µ­¤Î¥Ç¡¼¥¿¤ËÂФ·¤Æ¡¤³ÈÄ¥¤µ¤ì¤¿¥Þ¥¯¥Í¥Þ¡¼¸¡Äê¤ò¹Ô¤¤¤Þ¤¹¡£

> d <- matrix(c(
+ 10,14,6,0,
+ 6,20,15,0,
+ 1,15,29,3,
+ 0,1,2,1),ncol=4,byrow=TRUE)
> d
[,1] [,2] [,3] [,4]
[1,] 10 14 6 0
[2,] 6 20 15 0
[3,] 1 15 29 3
[4,] 0 1 2 1

¡Ê¼ÁÌ䣱¡Ë
¤´¾Ò²ð¤¯¤À¤µ¤Ã¤¿±þÍÑÌäÂê¤Îmacnemar.test¤ÈÀÄÌÚÀèÀ¸ºî¤Î¡ÖÊ̤γÈÄ¥¤Ë¤è¤ë...¡×¤Ç·ë²Ì¤¬°Û¤Ê¤ê¤Þ¤¹¤¬¡Ê¤½¤â¤½¤âÁ°¼Ô¤ÏpÃͤʤɤ¬·×»»¤µ¤ì¤Þ¤»¤ó¡£0¤¬±Æ¶Á¤·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©¡Ë¡¤¤³¤ì¤Ï¤É¤Á¤é¤ò»ÈÍѤ¹¤ì¤Ð¤è¤í¤·¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£

> mcnemar.test(d)

McNemar's Chi-squared test

data: d
McNemar's chi-squared = NaN, df = 6, p-value = NA

> McNemar(d)

³ÈÄ¥¤µ¤ì¤¿¥Þ¥¯¥Í¥Þ¡¼¸¡Äê¡ÊÆó¹à¸¡Äê¤Ëµ¢Ãå¡Ë

data: d
n1 = 25, n2 = 38, p-value = 0.1299

¡Ê¼ÁÌ䣲¡Ë
ÀèÀ¸ºî¤Î¸å¼Ô¤ÎMcNemar¤Ç¤¹¤¬¡¤¤³¤ì¤Ïchisq¤ÎÃͤϽÐÎϤµ¤ì¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£

¡Ê¼ÁÌ䣳¡Ë
²¾¤ËÍ­°Õ¤È¤Ê¤Ã¤¿¾ì¹ç¡¤¤É¤Î¥»¥ë¤¬Åý·×Ū¤Ë´óÍ¿¤·¤¿¤Î¤«¤ò¤ß¤ë»Äº¹Ê¬ÀϤߤ¿¤¤¤Ê¤â¤Î¤Ï²Äǽ¤Ç¤·¤ç¤¦¤«¡£

¤ªË»¤·¤¤¤È¤³¤í¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¤¬¡¤¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: ³ÈÄ¥¤µ¤ì¤¿¥Þ¥¯¥Í¥Þ¡¼
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/09/12(Mon) 15:38 No. 23206
> Á°¼Ô¤ÏpÃͤʤɤ¬·×»»¤µ¤ì¤Þ¤»¤ó¡£0¤¬±Æ¶Á¤·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

R ¤Î macnemar.test ¤Ï¡¤
http://aoki2.si.gunma-u.ac.jp/lecture/Hiritu/McNemar-test.html
¤Îµ­»ö¤Ë¤â½ñ¤­¤Þ¤·¤¿¤¬
(n[i,j] - n[j,i])^2 / (n[i,j]+ n[j,i]), i < j ¤ÎÁíϤò¼è¤ë¤Î¤Ç¤¹¤¬¡¤¸¡Äꤷ¤è¤¦¤È¤·¤¿¥Ç¡¼¥¿¤Î d[1,4] ¤È d[4, 1] ¤¬¤È¤â¤Ë 0 ¤Ê¤Î¤Ç ʬÊ줬 0 ¤Ë¤Ê¤ê¡¤0¤Ç¤Î³ä¤ê»»¥¨¥é¡¼¤¬À¸¤¸¤ë¤Î¤Ç·ë²Ì¤¬ NaN ¤Ë¤Ê¤ê¤Þ¤¹¡£

¤³¤ì¤Ï¤É¤¦¤·¤è¤¦¤â¤Ê¤¤¤Ç¤¹¤Í¡£Ê¬Ê줬0¤Ë¤Ê¤ëÁȤ߹ç¤ï¤»¤òÇÓ½ü¤·¤Æ¡¤¼«Í³Å٤⸺¤é¤·¤Æ̵Íý¤ä¤ê·×»»¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤¹¤¬¡¤¤½¤ì¤¬ÂÅÅö¤Ê¤Î¤«¤É¤¦¤Ê¤Î¤«¤ï¤«¤ê¤Þ¤»¤ó¡£

> McNemar¤Ç¤¹¤¬¡¤¤³¤ì¤Ïchisq¤ÎÃͤϽÐÎϤµ¤ì¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«

Æó¹à¸¡Äê¤Ëµ¢Ã夹¤ë¤Î¤Ç¡¤¦Ö2¾èÃͤȤϴط¸¤¢¤ê¤Þ¤»¤ó¡£

> ¤É¤Î¥»¥ë¤¬Åý·×Ū¤Ë´óÍ¿¤·¤¿¤Î¤«¤ò¤ß¤ë»Äº¹Ê¬ÀϤߤ¿¤¤¤Ê¤â¤Î¤Ï²Äǽ¤Ç¤·¤ç¤¦¤«¡£

McNemar ¤Ç¤Ï¡¤ÄêµÁ¾åÉÔ²Äǽ¤Ç¤¹¡£

mcnemar.test ¤Ç¤Ï¡¤¸Ä¡¹¤Î (n[i,j] - n[j,i])^2 / (n[i,j]+ n[j,i]), i < j ¤òɾ²Á¤¹¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¡Ê¼«Í³ÅÙ1¡Ë

Re: ³ÈÄ¥¤µ¤ì¤¿¥Þ¥¯¥Í¥Þ¡¼
¡¡¡¡Åê¹Æ¼Ô¡§Lion 2022/09/13(Tue) 09:48 No. 23207
ÀÄÌÚÀèÀ¸

¤´Â¿Ë»¤ÎÃ桤¤ªÊÖ»ö¤ò¤¤¤¿¤À¤­¤Þ¤·¤Æ¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£ÀèÀ¸¤Î¤´¶µ¼¨ÆâÍƤòƧ¤Þ¤¨¤Æ¡¤Ê¬ÀϤò¿Ê¤á¤Æ»²¤ê¤Þ¤¹¡£¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


ÍѤ¤¤ë¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§Lion 2022/08/23(Tue) 12:43 No. 23199
¤ªÀ¤Ïäˤʤê¤Þ¤¹
¡£

Âç³ØÀ¸¤¬4·î¤È 12·î¤Ë½ñ¤¤¤¿ºîʸ¤Ë¤Ä¤¤¤Æ5¤Ä¤Î¥«¥Æ¥´¥ê¡¼
¤Ç¤½¤ÎÉÑÅÙ¤òÄ´¤Ù¤¿¤¤¤Î¤Ç¤¹¤¬¡¤¤É¤ó¤Ê¸¡Äê¤ò¤â¤Á¤¤¤ì¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£É½¤Ë¤¢¤ë¿ôÃͤϲͶõ¤Î¤â¤Î¤Ç
,¸Ä¿ô¤òɽ¤·¤Æ¤¤¤Þ¤¹¡£

month/category A B C D E
4·î 73 13 2 18 25
12·î¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡189 10 54 20 18


Re: ÍѤ¤¤ë¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/08/24(Wed) 07:15 No. 23200
http://aoki2.si.gunma-u.ac.jp/lecture/Hiritu/McNemar-test.html
¤Î¸åȾ¤Ë½ñ¤¤¤Æ¤¤¤ë¡Ö¥Þ¥¯¥Í¥Þ¡¼¸¡Äê¤Î³ÈÄ¥¡×¤Ç¤·¤ç¤¦¤«¡£

¥Ç¡¼¥¿¤ò½¸·×¤·Ä¾¤¹¡Ê±þÍÑÌäÂê¤Î¹à¤ò»²¾È¡ËɬÍפ¬¤¢¤ê¤Þ¤¹¤¬¡£

Re: ÍѤ¤¤ë¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§Lion 2022/08/24(Wed) 12:05 No. 23202
ÀÄÌÚÀèÀ¸

¤ªÊÖ»ö¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£¤¤¤ÞÀèÀ¸¤¬½ñ¤«¤ì¤¿¥Þ¥¯¥Í¥Þ¡¼¤Î²Õ½ê¤òÆɤޤ»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£°ìÈÖ²¼¤Ë¼¨¤µ¤ì¤Æ¤¤¤¿ÆâÍƤǤ¹¤¬¡¤¿ô»ú¤Ï¿Í¿ô¤òɽ¤·¤Þ¤¹¤è¤Í¡£º£²ó¤Î»ä¤Î¥Ç¡¼¥¿¤Î¾ì¹ç¤Ï¿Í¿ô¤Ç¤Ï¤Ê¤¯¡¤¸Ä¿ô¤Ë¤Ê¤ë¤Î¤Ç¤¹¡£

¥«¥Æ¥´¥ê¡¼¤Ç¤¹¤¬¡ÊÀµ³Î¤Ë¤Ï½ñ¤±¤Þ¤»¤ó¡£¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¡£¡Ë

A:Àµ¤·¤¤ÆüËܸì¤Ç½ñ¤±¤Æ¤¤¤ëʸ¤Î¿ô
B:´Ö°ã¤Ã¤¿ÆüËܸì¤Ç½ñ¤¤¤Æ¤¤¤ëʸ¤Î¿ô
C:´Ö°ã¤Ã¤Æ¤¤¤Æ¡¤°ÕÌ£¤âÍý²ò¤Ç¤­¤Ê¤¤Ê¸¤Î¿ô

°ì¿Í¤Î³ØÀ¸¤Îºîʸ¤ò¸«¤Æ¡¤¤½¤ì¤¾¤ì¤Î¥«¥Æ¥´¥ê¡¼¤Ë´Þ¤Þ¤ì¤ëʸ¤Î¿ô¤ò¥«¥¦¥ó¥È¤·¤Æ¤¤¤¯¤ï¤±¤Ç¤¹¡£¤½¤·¤Æ¡¤50¿Í¤Î¥Ç¡¼¥¿¤¬¼¡¤Î¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤È¤·¤Þ¤¹¡£

A B C
4·î 510 1200 311
12·î 1250 310 59

¤³¤¦¤¤¤Ã¤¿¸Ä¿ô¤Î¾ì¹ç¤â¡Ê¥Ç¡¼¥¿¤òÊÑ´¹¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ç¤¹¤¬¡Ë¡¤¥Þ¥¯¥Í¥Þ¡¼¸¡Äê¤Î³ÈÄ¥¤Ç¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡£

ʪ¤ï¤«¤ê¤¬°­¤¯¤Æ¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£

Re: ÍѤ¤¤ë¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/08/24(Wed) 17:35 No. 23203
> º£²ó¤Î»ä¤Î¥Ç¡¼¥¿¤Î¾ì¹ç¤Ï¿Í¿ô¤Ç¤Ï¤Ê¤¯¡¤¸Ä¿ô¤Ë¤Ê¤ë¤Î¤Ç¤¹¡£

Âбþ¤Î¤¢¤ë¥Ç¡¼¥¿¤Ç¤Ï¤Ê¤¤¤È¤¤¤¦¤³¤È¤Î¤è¤¦¤Ê¤Î¤Ç¡¤ÉáÄ̤Τ¤¤ï¤æ¤ë¦ÖÆó¾è¸¡Äê¤Ç¤·¤ç¤¦¡£

> chisq.test(matrix(c(510, 1200, 311, 1250, 310, 59), byrow=TRUE, ncol=3))

Pearson's Chi-squared test

data: matrix(c(510, 1200, 311, 1250, 310, 59), byrow = TRUE, ncol = 3)
X-squared = 974.83, df = 2, p-value < 2.2e-16

¤Ä¤Þ¤ê¡¤4·î¤È12·î¤Ç¥«¥Æ¥´¥ê¡¼¤ÎʬÉۤ˺¹¤¬¤¢¤ë¤«¤É¤¦¤«¤È¤¤¤¦¤³¤È¤Ç¤¹¤Í¡£

Re: ÍѤ¤¤ë¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§Lion 2022/08/25(Thu) 10:15 No. 23204
ÀÄÌÚÀèÀ¸

¤³¤Î¤¿¤Ó¤Ï¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£¦Ö2¸¡Äê¤Ç¿Ê¤á¤¿¤¤¤È»×¤¤¤Þ¤¹¡£


2·²¤ÎÂбþ¤Î¤¢¤ë¥Ç¡¼¥¿¤òÊ¿¶Ñ²½¤·¤Æ¹Ô¤¦¸¡Äê¤ÎÀµÅöÀ­¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§µÜÂô 2022/08/13(Sat) 10:05 No. 23196
¼ºÎ餤¤¿¤·¤Þ¤¹¡¥

¼«Ê¬¤Ç¤Ï²ò·è¤Î»å¸ý¤¬¸«¤¨¤Ê¤¤ÌäÂê¤È¤¢¤¿¤Ã¤Æ¤·¤Þ¤¤¡¤¿Þ½ñ´Û¤ägoogle¤ÇÄ´¤Ù¤Æ¤â¤ï¤«¤é¤Ê¤¤µ¿Ì䤬ȯÀ¸¤·¤¿¤Î¤Ç¡¤¤â¤·¤è¤í¤·¤±¤ì¤Ð¤´¶µ¼¨¤¤¤¿¤À¤±¤Þ¤¹¤È¹¬¤¤¤Ç¤¹¡¥

­¡Êâ¹Ô¼Ô¤ÎΩ¾ì¤«¤é¼«Å¾¼Ö¤¬»þ®20£ë£í¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤ò5·ïË¡¤Ë¤Æ²óÅú¤·¤Æ¤¯¤À¤µ¤¤¡¥
­¢¼Ö¤ÎΩ¾ì¤«¤é¼«Å¾¼Ö¤¬»þ®20£ë£í¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤ò5·ïË¡¤Ë¤Æ²óÅú¤·¤Æ¤¯¤À¤µ¤¤¡¥
­£Êâ¹Ô¼Ô¤ÎΩ¾ì¤«¤é¼«Å¾¼Ö¤¬»þ®10£ë£í¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤ò5·ïË¡¤Ë¤Æ²óÅú¤·¤Æ¤¯¤À¤µ¤¤¡¥
­¤¼Ö¤ÎΩ¾ì¤«¤é¼«Å¾¼Ö¤¬»þ®10£ë£í¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤ò5·ïË¡¤Ë¤Æ²óÅú¤·¤Æ¤¯¤À¤µ¤¤¡¥
Î㤨¤Ð¤³¤Î¤è¤¦¤Ê­¡¡Á­¤¤ÎÀßÌ䤬¤¢¤Ã¤¿¤È¤·¤Þ¤¹¡¥
Ω¾ì¤¬¤Ê¤ó¤Ç¤¢¤í¤¦¤È¡¤»þ®20km¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤È»þ®10km¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤Ï°Û¤Ê¤ë¤Î¤«¸¡Äꤷ¤¿¤¤»þ¡¤­¡¤È­¢¤ÎÊ¿¶ÑÃͤȭ£¤È­¤¤ÎÊ¿¶ÑÃͤòÍѤ¤¤Æ¸¡Äꤹ¤ë¤Î¤ÏÅý·×Ū¤ËÀµ¤·¤¤¤È¸À¤¨¤ë¤Ç¤·¤ç¤¦¤«¡©

̵ÏÀ¡¤¤½¤ÎÃͤÏ
­¥¼«Å¾¼Ö¤¬»þ®10km¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤ò5·ïË¡¤Ë¤Æ²óÅú¤·¤Æ¤¯¤À¤µ¤¤¡¥
­¦¼«Å¾¼Ö¤¬»þ®20km¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤ò5·ïË¡¤Ë¤Æ²óÅú¤·¤Æ¤¯¤À¤µ¤¤¡¥

¤È¤¤¤Ã¤¿­¥¡¤­¦¤ÎÌ䤤Êý¤Çʹ¤¤¤¿¿ôÃͤȰۤʤäƤ·¤Þ¤¦¤È»×¤¤¤Þ¤¹¡¥
¤½¤ì¤Ç¤â¤³¤Î¸¡Äê¤Ï°ÕµÁ¤¬¤¢¤ë¡Ê»þ®10£ë£í¤ÇÁö¤ë»ö¤È¡¤»þ®20km¤ÇÁö¤ë»ö¤Ø¤Î¶²¤í¤·¤µ¤Îº¹¤òÌÀ¤é¤«¤Ë¤Ç¤­¤ë¡Ë¤Î¤Ç¤·¤ç¤¦¤«¡©

Re: 2·²¤ÎÂбþ¤Î¤¢¤ë¥Ç¡¼¥¿¤òÊ¿¶Ñ²½¤·¤Æ¹Ô¤¦¸¡Äê¤ÎÀµÅöÀ­¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/08/17(Wed) 22:38 No. 23197
Ʊ¤¸¿Í¤Ë¡¤°Û¤Ê¤ë2¤Ä¤Î¾ò·ï¡Ê¤½¤ì¤¾¤ì2¿å½à¡Ë¤Çʹ¤¤¤¿¤Î¤Ç¤·¤ç¤¦¤«¡©

ÆóÍ×°ø¤Îʬ»¶Ê¬ÀÏ¡ÊSAB ¥¿¥¤¥×¡¨RBFpq ¥Ç¥¶¥¤¥ó¡¨È︡¼ÔÆâ·×²è¡Ë
http://aoki2.si.gunma-u.ac.jp/R/SAB.html

¤Ï¡¤¤¤¤«¤¬¤Ç¤¹¤«?

Re: 2·²¤ÎÂбþ¤Î¤¢¤ë¥Ç¡¼¥¿¤òÊ¿¶Ñ²½¤·¤Æ¹Ô¤¦¸¡Äê¤ÎÀµÅöÀ­¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§µÜÂô 2022/08/18(Thu) 17:37 No. 23198
¡äƱ¤¸¿Í¤Ë¡¤°Û¤Ê¤ë2¤Ä¤Î¾ò·ï¡Ê¤½¤ì¤¾¤ì2¿å½à¡Ë¤Çʹ¤¤¤¿¤Î¤Ç¤·¤ç¤¦¤«¡©

Ʊ¤¸¿Í¤Ë¡¤°Û¤Ê¤ë2¤Ä¤Î¾ò·ï¡Ê¤½¤ì¤¾¤ì2¿å½à¡Ë¤Çʹ¤¤¤Æ¤¤¤Þ¤¹¡¥
¤Ä¤Þ¤êÂбþ¤Î¤¢¤ë¥Ç¡¼¥¿¤È¤¤¤¦»ö¤Ë¤Ê¤ê¤Þ¤¹¡¥

¡äÆóÍ×°ø¤Îʬ»¶Ê¬ÀÏ

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡¥¤³¤Á¤é¤Ç¤¢¤ì¤ÐΩ¾ì¤È¤¤¤¦Í×ÁǤòÇÓ½ü¤·¤¿¾å¤Ç¡¤Â®ÅÙ¤¬°Û¤Ê¤ë¾ì¹ç¤Î¶²¤í¤·¤µ¤òÌÀ¤é¤«¤Ë¤Ç¤­¤ë¤è¤¦¤Ë»×¤¤¤Þ¤¹¡¥
SPSS¤ÇKolmogolov-Smirnov¡Ê¥³¥ë¥´¥â¥í¥Õ¡¦¥¹¥ß¥ë¥Î¥Õ¡Ë¸¡Äê¤ò¤ª¤³¤Ê¤Ã¤¿·ë²Ì£ðÃͤÏ0.05̤Ëþ¤ÇÀµµ¬À­¤Ï¤Ê¤«¤Ã¤¿¤Î¤Ç¤¹¤¬¡¤ÆóÍ×°ø¤Îʬ»¶Ê¬ÀϤò¹Ô¤Ã¤Æ¤âÌäÂê¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
¡Ê¥µ¥ó¥×¥ë¥µ¥¤¥º30¤Î¥Ç¡¼¥¿¤Ç¤¹¡¥¡Ë


¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2021/12/12(Sun) 12:22 No. 23172
¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£

ÁᮤǤϤ´¤¶¤¤¤Þ¤¹¤¬¡¤¾®¿ôÅÀ¤ò·¤¨¤ëÊýË¡¤ò¤´¶µ¼¨¤¤¤¿¤À¤±¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡£

mean1 <- round(mean(d[method=="¡»" & personal=="¡»", 3]), digits=2)
mean2 <- round(mean(d[method=="¢¤" & personal=="¢¤", 3]), digits=2)
mean3 <- round(mean(d[method=="¢£" & personal=="¢£", 3]), digits=2)

mean1¤Èmean3¤Ï¾®¿ôÅÀ°Ê²¼¤¬3·å°Ê¾å¤È¤Ê¤ë¤¿¤á¾®¿ôÂè2¤Þ¤Çɽ¼¨¤µ¤»¤ë¤³¤È¤Ï¤Ç¤­¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¤mean2¤¬30(.00)¤È¤Ê¤ê¡¤mean1¤ämean3¤ÈƱ¤¸¤è¤¦¤Ë¾®¿ôÂè2¤Þ¤Çɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤«¤È»×¤Ã¤¿¤é¡¤¾®¿ôÅÀ°Ê²¼¤Ïɽ¼¨¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¤Ç¤·¤¿¡£mean2¤Î30¤ò30.00¤Ë¤¹¤ë¤Ë¤Ï¤É¤Î¤è¤¦¤Ë¤·¤¿¤éÎɤ¤¤Î¤Ç¤·¤ç¤¦¤«¡£

format¤Ç¤ä¤Ã¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¤Ê¸»úÎó¤È¤·¤Æ½èÍý¤µ¤ì¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¤è¤¦¤Ç¡¤¤½¤Î¸å¤Î»Í§±é»»¤Ç¥¨¥é¡¼¤¬µ¯¤­¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

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

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/12/12(Sun) 14:07 No. 23173
¥³¥Ô¥Ú¤·¤ÆÆ°¤¯·Á¤ÇÄ󼨤·¤Æ¤¯¤À¤µ¤¤¡£d ¤Ê¤ó¤«ÉÔÍפǼÙËâ¤Ê¤À¤±¤Ç¤¹¡£¤Ê¤ó¤Î¾ðÊó¤â¤â¤Ã¤Æ¤¤¤Þ¤»¤ó¡£

°Ê²¼¤Î¤è¤¦¤Ê¤³¤È¤Ê¤ó¤Ç¤·¤ç¤¦?

> round(31.2345, digits=2)
[1] 31.23
> round(30, digits=2)
[1] 30
> round(31.45678, digits=2)
[1] 31.46

> format¤Ç¤ä¤Ã¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¤Ê¸»úÎó¤È¤·¤Æ½èÍý¤µ¤ì¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¤è¤¦¤Ç¡¤¤½¤Î¸å¤Î»Í§±é»»¤Ç¥¨¥é¡¼¤¬µ¯¤­¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

¤Ë¤Ä¤¤¤Æ¤â¡¤¼ÂºÝ¤Ë½ñ¤¤¤¿¥×¥í¥°¥é¥à¤ò¼¨¤·¤Æ¤¯¤À¤µ¤¤¡£

sprintf ¤Ïʸ»úÎó¤ËÊÑ´¹¤¹¤ë¤â¤Î¤Ç¤¹¤«¤é¡¤¤½¤Î¸å»Í§±é»»¤¹¤ë¤È¥¨¥é¡¼¤Ë¤Ê¤ë¤Î¤Ï¤¢¤¿¤ê¤Þ¤¨¤Ç¤¹¤¬¡¤¤½¤â¤½¤â¡¤¤½¤Î¸å»Í§±é»»¤¹¤ë¤Î¤Ê¤é¡¤¾®¿ôÅÀ°Ê²¼2·å¤Ç´Ý¤á¤¿¤Î¤Ç¤Ï¸íº¹¤ò´Þ¤à¤³¤È¤Ë¤Ê¤ë¤Î¤Ç¡¤°ÕÌ£¤¬¤Ê¤¤¤Ç¤¹¤Í¡£¤½¤Î¤Þ¤Þ·×»»¤·¤Æ¡¤ºÇ½ª·ë²Ì¤Îɽ¼¨¤Î¤È¤­¤Ëʸ»úÎó¤È¤·¤Æɽ¼¨¤¹¤ë¤â¤Î¤Ç¤·¤ç¤¦¡£

> sprintf("%.2f", 31.2345)
[1] "31.23"
> sprintf("%.2f", 30)
[1] "30.00"
> sprintf("%.2f", 31.45678)
[1] "31.46"

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2021/12/12(Sun) 14:30 No. 23174
ÀÄÌÚÀèÀ¸

¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¤Ç¤·¤¿¡£ºÆÅÙ¤´¶µ¼¨¤¯¤À¤µ¤¤¤Þ¤»¡£

»ÈÍѥǡ¼¥¿¤Ï¼¡¤ÎÄ̤ê¤Ç¡¤¤³¤ì¤òd¤È¤·¤Þ¤·¤¿¡£

method personal score
¹õÈÄ Äã 18
¹õÈÄ Äã 6
¹õÈÄ Äã 29
¹õÈÄ Ãæ 20
¹õÈÄ Ãæ 12
¹õÈÄ Ãæ 31
¹õÈÄ ¹â 40
¹õÈÄ ¹â 49
¹õÈÄ ¹â 31

°Ê²¼¤ÏplotÅù¤ò»È¤Ã¤¿¥°¥é¥Õ¤È¤Ê¤ê¤Þ¤¹¡£¤³¤Î¥°¥é¥Õ¤ËÊ¿¶ÑÅÀ¤ò·å¿ô¤ò·¤¨¤Æɽ¼¨¤µ¤»¤¿¤¤¤Î¤Ç¤¹¡£

x <- c(1, 2, 3)
mean4 <- round(mean(d[method=="¹õÈÄ" & personal=="Äã", 3]), digits=2)
mean5 <- round(mean(d[method=="¹õÈÄ" & personal=="Ãæ", 3]), digits=2)
mean6 <- round(mean(d[method=="¹õÈÄ" & personal=="¹â", 3]), digits=2)

allmean2 <- c(mean4, mean5, mean6)

plot(x, allmean2, xaxt="n", yaxt="n", xlab="", ylab="", xlim=c(0.5, 3.5), ylim=c(0, 50), type="b", pch=2, lwd=2, lty=2, col=3)

text(x=1, mean4-3, mean4)
text(x=2, mean5+3, mean5)
text(x=3, mean6+3, mean6)

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

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/12/12(Sun) 15:14 No. 23175
No. 23173 ¤ÎºÇ¸å¤Ë½ñ¤¤¤Æ¤¤¤ë¤³¤È¤½¤Î¤Þ¤Þ¤Ç¤¹¤¬¡¤°Ê²¼¤Ç¤è¤¤¤Ç¤·¤ç¤¦¡£

text(x=1, mean4-3, sprintf("%.2f", mean4))
text(x=2, mean5+3, sprintf("%.2f", mean5))
text(x=3, mean6+3, sprintf("%.2f", mean6))

¤Ê¤ª¡¤ºÇ¶á R ¤ò½ñ¤¯¤³¤È¤¬¥á¥Ã¥­¥ê¸º¤Ã¤Æ¡¤
d[method=="¹õÈÄ" & personal=="Äã", 3]
¤Ç½Ð¤ë¥¨¥é¡¼¤ÎÍýͳ¤¬¤ï¤«¤é¤Ê¤¯¤Æ¾Ç¤ê¤Þ¤·¤¿¡£

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2021/12/12(Sun) 20:54 No. 23176
ÀÄÌÚÀèÀ¸

¤ªµÙ¤ß¤Î¤È¤³¤í¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£textÆâ¤ÇÂбþ¤¹¤ë¤ï¤±¤Ç¤¹¤Í¡£

¤È¤³¤í¤Ç¡¢d[method==.....¤Î¤È¤³¤í¤Ê¤Î¤Ç¤¹¤¬¡¢»ä¤ÎR¤Ç¤Ï¥¨¥é¡¼¤¬½Ð¤Þ¤»¤ó¤Ç¤·¤¿¤¬¡¢²¿¤«ÌäÂ꤬¤´¤¶¤¤¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡£¤â¤·¤è¤í¤·¤±¤ì¤Ð¤´»ØƳ¤¤¤¿¤À¤±¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡£

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/12/12(Sun) 22:45 No. 23177
¥¨¥é¡¼¤¬½Ð¤Ê¤¤¡©¡©

¤Ï¤Æ¤µ¤Æ¡£

method personal score
¹õÈÄ Äã 18
¹õÈÄ Äã 6
¹õÈÄ Äã 29
¹õÈÄ Ãæ 20
¹õÈÄ Ãæ 12
¹õÈÄ Ãæ 31
¹õÈÄ ¹â 40
¹õÈÄ ¹â 49
¹õÈÄ ¹â 31

¤È¤¤¤¦¥Ç¡¼¥¿¤È¤¤¤¦¤³¤È¤Ç¡¤¤ï¤¶¤ï¤¶¡¤ÉáÄ̤Υ¨¥Ç¥£¥¿¤òΩ¤Á¾å¤²¡¤¤½¤Î¤è¤¦¤Ê¥Ç¡¼¥¿¥Õ¥¡¥¤¥ë¤òºî¤ê¤Þ¤·¤¿¡£Mac ¤Î terminal ¤Ç¤ä¤ì¤Ð

foor [1] > cat test.dat

method personal score
¹õÈÄ Äã 18
¹õÈÄ Äã 6
¹õÈÄ Äã 29
¹õÈÄ Ãæ 20
¹õÈÄ Ãæ 12
¹õÈÄ Ãæ 31
¹õÈÄ ¹â 40
¹õÈÄ ¹â 49
¹õÈÄ ¹â 31

¤Ç¤¹¤Í¡£

¤³¤ì¤ò¡¤reda.table ¤ÇÆɤ߹þ¤ó¤Ç¡¤

> d <- read.table("test.dat", header=TRUE)

ɽ¼¨¤·¤Æ¤ß¤ë¤È¡¤¤Á¤ã¤ó¤ÈÆɤ߹þ¤á¤Æ¤¤¤Þ¤¹

> d
1 method personal score
2 ¹õÈÄ Äã 18
3 ¹õÈÄ Äã 6
4 ¹õÈÄ Äã 29
5 ¹õÈÄ Ãæ 20
6 ¹õÈÄ Ãæ 12
7 ¹õÈÄ Ãæ 31
8 ¹õÈÄ ¹â 40
9 ¹õÈÄ ¹â 49
10 ¹õÈÄ ¹â 31

¤Ç¡¤¤¢¤Ê¤¿¤¬½ñ¤¤¤¿¤è¤¦¤Ë¤ä¤Ã¤Æ¤ß¤ë¤È

> d[method=="¹õÈÄ" & personal=="Äã", 3]
Error in `[.data.frame`(d, method == "¹õÈÄ" & personal == "Äã", 3) :
object 'method' not found

¥¨¥é¡¼¤Ë¤Ê¤ê¤Þ¤¹¡£

¤·¤Ð¤·½Ï¹Í¸å¡¤°Ê²¼¤Î¤è¤¦¤Ê¤ó¤À¤í¤¦¤Ê¤È

> d[d$method=="¹õÈÄ" & d$personal=="Äã", 3]
[1] 18 6 29

¤¨¡Á¡Á¤È¡¤tydyvers ¤È¤« dplyr ¤È¤«¡¤¤Û¤«¤Î¥Ê¥ó¥È¥«¥é¥¤¥Ö¥é¥ê¡¤¤ò»È¤¨¤Ð¤Ç¤­¤ë¤ó¤Ç¤·¤ç¤¦¤«?»þÂåÃÙ¤ì¤Ê¤Î¤Ç¡¤pure ¤Ê R ¤·¤«»È¤¨¤Ê¤¤¤ó¤Ç¤¹¡£

¤ï¤¶¤ï¤¶¥Ç¡¼¥¿¥Õ¥¡¥¤¥ë¤òºî¤é¤Ê¤¤¤È¤¤¤±¤Ê¤¤¤È¤«¡¤Í¾Ê¬¤Ê¥é¥¤¥Ö¥é¥ê¤òÆɤó¤Ç¤ª¤«¤Ê¤¤¤È¤¤¤±¤Ê¤¤¤È¤«¡Ê¾¯¤Ê¤¯¤È¤â¡¤»ä¤Ï dplyr ¤È¤« tidyverse ¤½¤Î¾¤Ï¡¤»È¤ï¤Ê¤¤¡Ë¡¤¡ÊÄɻ¤Æ¤ß¤è¤¦¤È¤¹¤ë¾¤Î¥æ¡¼¥¶¤ÎÊý¤Î¤¿¤á¤Ë¤â¡Ë¾¤Î;ʬ¤ÊÁ°Äó¾ò·ï¤¬É¬Íפʤ¤¤è¤¦¤ËÄ󼨤¹¤ë¤Î¤¬¤è¤í¤·¤¤¤«¤È¡£¡ÊÊØÍø¤Ê¤é¤Ð¡¤¤½¤Î¤è¤¦¤Ê¥é¥¤¥Ö¥é¥ê¡¼¤ò»È¤¦¤è¤¦¤Ë¾©Î夹¤ì¤Ð¤è¤¤¤È¤Ï»×¤¤¤Þ¤¹¤¬¡Ël

¤Ä¤Þ¤ë¤È¤³¤í¤Ï¡¤Î㤨¤Ð¡¤

> d <- structure(list(method = c("¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ",
"¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ"), personal = c("Äã",
"Äã", "Äã", "Ãæ", "Ãæ", "Ãæ", "¹â", "¹â", "¹â"), score = c(18L,
6L, 29L, 20L, 12L, 31L, 40L, 49L, 31L)), class = "data.frame", row.names = c(NA,
-9L))

> mean4 <- round(mean(d[d$method=="¹õÈÄ" & d$personal=="Äã", 3]), digits=2)
> mean4
[1] 17.67

¤ÈÄ󼨤¹¤ì¤Ð¤è¤í¤·¤¤¤Î¤«¤Ê¤È¡£

µÕ¤Ë¡¤
mean4 <- round(mean(d[method=="¹õÈÄ" & personal=="Äã", 3]), digits=2)
¤Ç mean4 ¤¬¤Ê¤¼µá¤Þ¤ë¤Î¤«¤Ê〜〜¤È»×¤Ã¤¿¤ï¤±¤Ç¤¹¡£¡Ê»þÂåÃÙ¤ì?¡Ë

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/12/12(Sun) 23:17 No. 23178
Ť¯¤Ê¤ê¤Þ¤·¤¿¤Î¤Ç¡¤Áí³ç¤·¤Þ¤¹¡£

Àøºß²óÅú¼Ô¤ËÉéô¤ò¤«¤±¤Ê¤¤¤è¤¦¤Ê¡¤¶ñÂÎŪ¤Ê¼ÁÌä¤Î»ÅÊý¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£

¤½¤ì¤Ï¡¤¤¢¤Ê¤¿¤Î¤¿¤á¤Ç¤â¤¢¤ë¤Î¤Ç¤¹¡£

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2021/12/13(Mon) 09:37 No. 23179
ÀÄÌÚÀèÀ¸

¤ªË»¤·¤¤Ã桤¤´ÀâÌÀ¤¯¤À¤µ¤ê¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¤Ï¤¤¡¤»ä¤Î¸µ¡¹¤Î¥³¡¼¥É¤Ç¤Ï¤Ê¤¼¤«¥¨¥é¡¼¤Ïɽ¼¨¤µ¤ì¤Þ¤»¤ó¤Ç¤·¤¿¡£

ÀèÀ¸¤¬½ñ¤¤¤Æ¤¯¤À¤µ¤Ã¤¿¥³¡¼¥É¤ò¸«¤Æ¡¤¡Ê´Ø·¸¤Ï¤Ê¤¤¤Î¤«¤âÃΤì¤Þ¤»¤ó¤¬¡ËVBA¤Î°Ê²¼¤ò»×¤¤½Ð¤·¤Þ¤·¤¿¡£

ws1.Range(ws1.cells(), ws1.cells())

¤Ç¤¹¡£

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

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/12/13(Mon) 10:58 No. 23180
¤É¤³¤«Á°¤ÎÊý¤Ç¡¤

> method <- c("¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ")
> personal <- c("Äã", "Äã", "Äã", "Ãæ", "Ãæ", "Ãæ", "¹â", "¹â", "¹â")

¤È¤«¤ä¤Ã¤Æ¤Þ¤»¤ó¤Ç¤·¤¿¤«?
¤½¤Î¤¢¤È¤Ç d <- dataframe(method, personal, score) ¤È¤·¤¿¤È¤«¡£

> d[method=="¹õÈÄ" & personal=="Äã", 3]
[1] 18 6 29

[ ] ¤ÎÃæ¤Î method ¤â personal ¤â ¥Ç¡¼¥¿¥Õ¥ì¡¼¥àÃæ¤Î method¡¤personal ¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/12/13(Mon) 11:06 No. 23181
¤É¤³¤«Á°¤ÎÊý¤Ç¡¤

> method <- c("¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ", "¹õÈÄ")
> personal <- c("Äã", "Äã", "Äã", "Ãæ", "Ãæ", "Ãæ", "¹â", "¹â", "¹â")

¤È¤«¤ä¤Ã¤Æ¤Þ¤»¤ó¤Ç¤·¤¿¤«?
¤½¤Î¤¢¤È¤Ç d <- dataframe(method, personal, score) ¤È¤·¤¿¤È¤«¡£

> d[method=="¹õÈÄ" & personal=="Äã", 3]
[1] 18 6 29

[ ] ¤ÎÃæ¤Î method ¤â personal ¤â ¥Ç¡¼¥¿¥Õ¥ì¡¼¥àÃæ¤Î method¡¤personal ¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£

Re: ¾®¿ô°Ê²¼¤ò·¤¨¤ë
¡¡¡¡Åê¹Æ¼Ô¡§ÇȲ» 2022/07/27(Wed) 00:22 No. 23195
º£¹¹¡¢²¿¤Î¥ª¥Á¤â¤Ê¤¤Åê¹Æ¤Ç¤¹¤¬¡¢¡¢¡Êµ×¤·¤Ö¤ê¤Ë²áµî¥í¥°¤ò¸¡º÷¤·¤ËÍè¤Æ¡¢¤Ä¤¤¤Ä¤¤»ä¤â»î¤·¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡Ë

attach(d)¤È¤·¤Æ¡¢d¤Ë¥Ñ¥¹¤¬Ä̤äƤ¤¤¿¾õÂÖ¤À¤Ã¤¿¤Î¤Ç¤Ï¡©¡¡¤È»×¤¤¤Þ¤·¤¿¡Êñ½ã¤Ë¡Ë¡£¿§¡¹¤ä¤Ã¤Æ¤¤¤ë¤¦¤Á¤Ë¥Ñ¥¹¤¬Ä̤äƤ¤¤ë¤³¤È¤ò˺¤ì¤Æ¤¤¤ë¤³¤È¤Ï¤è¤¯¤¢¤ê¤Þ¤¹£÷

¢¨tidyverse¤Ç¥Ñ¥¤¥×±é»»»Ò %>% ¤Ê¤É»È¤Ã¤Æ¡¢»öÁ°¤ËÁàºî¤¹¤ë¥Ç¡¼¥¿¥Õ¥ì¡¼¥à¤ò»ØÄꤷ¤Æ¤¤¤¿¤È¤·¤Æ¤â¾åµ­¥³¡¼¥ÉñÂΤÇÆ°¤¯¤³¤È¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£

;Ã̤Ǥ¹¤¬¡¢¡Ê·è¤·¤Æ¤ï¤ë¸ý¤È¤«¤Ç¤Ï¤Ê¤¯¡Ëtidyverse¤ädplyr¤¬¥ê¥ê¡¼¥¹¤µ¤ì¤¿Åö»þ¤Ï½èÍý¤¬¹â®¤È¤¤¤¦¥á¥ê¥Ã¥È¤â¤è¤¯¸ì¤é¤ì¤Æ¤¤¤Þ¤·¤¿¤¬¡¢²ÈÅÅÎÌÈÎŹ¤Î°Â¤¤PC¤Ç¤â¥Ï¥¤¥¹¥Ú¥Ã¥¯¤ÊPC¤¬¼ê¤ËÆþ¤ë»þÂå¤Ë¤Ï¤¢¤Þ¤ê´Ø·¸¤Ê¤¤¤Ç¤¹¤Í¡£¤Þ¤·¤Æ¤ä¡¢º£¤ÏGCP¤äAWS¾å¤ÇJupter notebook¾å¤ÇR¤òÆ°¤«¤·¤¿¤ê¤¹¤ë¤Î¤¬ÅöÁ³¤Ê¤Î¤Ç¡¢Á´¤¯¥á¥ê¥Ã¥È¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£

»ä¤â¥Ñ¥¤¥×±é»»»Ò¤ädplyr·Ï¤Î³Æ¼ï´Ø¿ô¤ÎÃ챤òºþ¿·¤·¤Þ¤·¤¿¤¬¡¢·ë¶É¤Ï¡Ö½¬¤¤»Ï¤á¤¿¤È¤­¤Ë½¬ÆÀ¤·¤¿¤â¤Î¤¬°ìÈ֡פȤ¤¤¦¤³¤È¤Êµ¤¤¬¤·¤Þ¤¹¡£¤è¤Û¤É¤ÎÍýͳ¤¬¤Ê¤¤¸Â¤ê¸ÅŵŪ¤Ê´Ø¿ô¤Ç½èÍý¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¡£¡£


¿ôÎ̲½°ìÎà¤Ë¤ª¤±¤ë½¾Â°ÊÑ¿ô¤ÎÀµµ¬À­¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§Èõºê·Ã°ì 2022/07/12(Tue) 12:21 No. 23191
¼ºÎ餷¤Þ¤¹¡¥
¿ôÎ̲½°ìÎà¤Ë¤Ä¤¤¤Æ¾¯¤·¼ÁÌ䤬¤¢¤ê¤Þ¤¹¡¥¿ôÎ̲½°ìÎࡤ¡Ê¤Þ¤¿¤½¤ì¤ÈƱ¼Á¤Ç¤¢¤ë½Å²óµ¢Ê¬ÀϤˤª¤¤¤Æ¤â¡Ë½¾Â°ÊÑ¿ô¤ÎÀµµ¬À­¤Ïµá¤á¤é¤ì¤Þ¤»¤ó¤¬¡¤¤½¤Î¾ì¹çÎ㤨¤ÐÊ¿¶Ñ¤¬¿¿¤óÃæ¤è¤ê¤«¤Ê¤êÄ㤤¾ì¹ç»þ¥«¥Æ¥´¥ê¡¼¥¹¥³¥¢¤Î²ò¼á¤¬ÊѤˤʤé¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
¥«¥Æ¥´¥ê¡¼¥¹¥³¥¢¤ÎÀµÉé¤ÏÄê¿ô¹à¤ò´ð½à¤ò´ð½à¤Ë¤·¤Æ¤¤¤ë¤È»×¤¦¤Î¤Ç¡¤¤¢¤é¤«¤¿Àµ¤äÉé¤ÎÃͤˤʤäƤ·¤Þ¤Ã¤¿¤ê¤Ï¤·¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

Re: ¿ôÎ̲½°ìÎà¤Ë¤ª¤±¤ë½¾Â°ÊÑ¿ô¤ÎÀµµ¬À­¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/07/15(Fri) 13:24 No. 23192
> ¥«¥Æ¥´¥ê¡¼¥¹¥³¥¢¤ÎÀµÉé¤ÏÄê¿ô¹à¤ò´ð½à¤ò´ð½à¤Ë¤·¤Æ¤¤¤ë

Ǥ°Õ¤Î1¤Ä¤Î¥«¥Æ¥´¥ê¡¼¥¹¥³¥¢¤ò´ð½à¡Ê0¡Ë¤Ë¤·¤Þ¤¹¡£
¿ôÎ̲½IÎà¤Ë¤ª¤¤¤Æ¤Ï¤½¤ì¤¾¤ì¤Î¥«¥Æ¥´¥ê¡¼ÊÑ¿ô¤´¤È¤Î¥µ¥ó¥×¥ë¥¹¥³¥¢¤ÎÊ¿¶ÑÃͤ¬0¤Ë¤Ê¤ë¤è¤¦¤Ë¥«¥Æ¥´¥ê¡¼¥¹¥³¥¢¤òÊ¿¹Ô°ÜÆ°¤·¡¤¤½¤Î·ë²Ì¤òÂǤÁ¾Ã¤¹¤è¤¦¤ËÄê¿ô¹à¤òÄ´À°¤·¤Þ¤¹¡£
¾Ü¤·¤¯¤ÏÀÛÃø¡ÖR¤Ë¤è¤ëÅý·×²òÀϡפÎ218¡Ý219¥Ú¡¼¥¸¤Ëµ­ºÜ¤·¤Æ¤¢¤ê¤Þ¤¹¡£

°Ê¾å¤Î¤è¤¦¤Ê¤³¤È¤«¤é¡¤¡Ö¤¢¤é¤«¤¿Àµ¤äÉé¤ÎÃͤˤʤäƤ·¤Þ¤Ã¤¿¤ê¡×¤È¤¤¤¦¤³¤È¤Ï¤Ê¤¯¤Ï¤Ê¤¤¤Ç¤¹¤¬¡¤¾¯¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£

Re: ¿ôÎ̲½°ìÎà¤Ë¤ª¤±¤ë½¾Â°ÊÑ¿ô¤ÎÀµµ¬À­¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§Èõºê 2022/07/15(Fri) 16:00 No. 23193
¤´ÊÖ¿®¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡¥¤Þ¤¿¡¤ÃúÇ«¤Ë¾ðÊ󸵤ò¼¨¤·¤Æ¤¯¤À¤µ¤ê¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡¥

´°Á´¤Ë»ä¤Î´ª°ã¤¤¤À¤Ã¤¿¤È¤¤¤¦»ö¤¬¤ï¤«¤ê¤Þ¤·¤¿¡¥¤½¤Î¾ì¹ç¤¢¤é¤«¤¿Àµ¤ÎÃͤˤʤë¤È¤·¤Æ¤â¤¢¤ëÆÃÄê¤Î¥«¥Æ¥´¥ê¡¼¥¹¥³¥¢¤ÎÃͤ¬¶Ëü¤ËÂ礭¤¤¾ì¹çÅù¤È¤¤¤¦»ö¤Ç¤¹¤Í¡¥

ÌäÂê¤Ï²ò·è¤·¤Þ¤·¤¿¡¥


R¤Î°ìÈ̲½Àþ·Á²óµ¢¤Î¥â¥Ç¥ë¼°¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§Y 2022/05/26(Thu) 19:29 No. 23187

¢­¤³¤Î0¤¬¶Ëü¤Ë¿¤¤·×¿ôÃͥǡ¼¥¿¤Ë¤Ä¤¤¤Æ¡¢

0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0

¤³¤ì¤ò¡¢Éé¤ÎÆó¹àʬÉۤ˶á»÷¤µ¤»¡¢Æ±Ê¬ÉۤΥѥé¥á¡¼¥¿(¦Ì,k)¤Îk¤òR¤ò»È¤Ã¤Æ¿äÄꤷ¤¿¤¤¤Ç¤¹¡Ê¦Ì¤Ï»îÎÁÊ¿¶Ñ¤Ç¤è¤¤¤È¤Î¤³¤È¤Ê¤Î¤Ç¡Ë¡£
R¤Îglm.nb¤Ç»»½Ð¤µ¤ì¤ëtheta¤ò¤³¤Îk¤Ë¤¢¤Æ¤ì¤Ð¤è¤¤¤Èʹ¤­¤Þ¤·¤¿¡£

¤³¤Î´Ø¿ô¤Ë¤Ä¤¤¤Æ¤Ï¡¢¥â¥Ç¥ë¼°¤¬ y~x1+x2+x3+1 ¤Î¤è¤¦¤ÊÌÜŪÊÑ¿ô¤ÈÀâÌÀÊÑ¿ô¤«¤é¤Ê¤ë¥â¥Ç¥ë¤ÏË­É٤˾Ҳ𤵤ì¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢ËÜ·ï¤Î¤è¤¦¤ËÀâÌÀÊÑ¿ô¤¬¤Ê¤¤(?)»È¤¤Êý¤Ë¤Ä¤¤¤Æ¤Ï»öÎ㤬¸«¤Ä¤«¤é¤º¤³¤Þ¤Ã¤Æ¤¤¤Þ¤¹¡£
1Îã¤Î¤ß¡¡glm.nb(y~1,¡¡¤È¤¹¤ë»öÎã¤ò¸«¤Ä¤±¤¿¤Î¤Ç¤¹¤¬¡¢ËÜ·ï¤â¤³¤Î¥â¥Ç¥ë¼°¤Ç¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£
¤â¤·¡¢¤è¤¤¤È¤¹¤ì¤Ð¡¢¤³¤Î y~1 ¤È¤¤¤¦¼°¤Ï¤É¤Î¤è¤¦¤Ê°ÕÌ£¤òµ­½Ò¤·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£
¤´¶µ¼¨¤¤¤¿¤À¤±¤ë¤È¹¬¤¤¤Ç¤¹¡£

Re: R¤Î°ìÈ̲½Àþ·Á²óµ¢¤Î¥â¥Ç¥ë¼°¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/05/26(Thu) 23:39 No. 23188
¤¤¤ï¤æ¤ë null model ¤Ç¤¹¤Í¡£

ÆÈΩÊÑ¿ô¤¬¤Ê¤¤¤Î¤Ç¡¤Í½Â¬Ãͤϡ¤¡Ö¤É¤ó¤Ê¾ì¹ç¤Ç¤¢¤Ã¤Æ¤âÁ´¥Ç¡¼¥¿¤ÎÊ¿¶ÑÃ͡פȤ¹¤ë¤â¤Î¤Ç¤¹¡£

> glm(y ~ 1)

Call: glm(formula = y ~ 1)

Coefficients:
(Intercept)
0.07964601769912

Degrees of Freedom: 112 Total (i.e. Null); 112 Residual
Null Deviance: 16.28318584071
Residual Deviance: 16.28318584071 AIC: 105.7703175934
¤È¤Ê¤ê¤Þ¤¹¤¬¡¤Intercept = 0.07964601769912 ¤È¤¤¤¦¤³¤È¤Ï¡¤¤É¤Î¤è¤¦¤ÊÆÈΩÊÑ¿ô¤Ç¤¢¤Ã¤Æ¤â¡Ê¼ÂºÝ¤ÏÆÈΩÊÑ¿ô¤Ï¤Ê¤¤¤Î¤Ç¤¹¤¬¡Ëͽ¬ÃÍ¤Ï 0.07964601769912 ¤À¡ª¤È¤¤¤¦¡¤¤É¤¦¤Ç¤â¤è¤¤¥â¥Ç¥ë¤È¤¤¤¦¤³¤È¤Ç¤¹¡£

¼ÂºÝ¡¤
y = c(0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0)
¤ÎÊ¿¶ÑÃͤÏ
> mean(y)
[1] 0.07964601769911507
¤Ç¤¹¤«¤é¡£¥â¥Ç¥ë¤â¤Ø¤Ã¤¿¤¯¤ì¤â¤Ê¤¤¤Ç¤¹¡£

¤Þ¤¿¡¤glm ¤Ç¤¢¤í¤¦¤¬ lm ¤Ç¤¢¤í¤¦¤¬¡¤¡Ê¤ª¾þ¤ê¤ÎÉôʬ¤Ï¤Ê¤¯¤Ê¤ê¤Þ¤¹¤¬¡Ë¼çÍפʷë²Ì¤ÏƱ¤¸¤Ë¤Ê¤ê¤Þ¤¹¡£
> lm(y ~ 1)

Call:
lm(formula = y ~ 1)

Coefficients:
(Intercept)
0.07964601769912


¤³¤Î¥Ç¡¼¥¿¡¤¤É¤¦¤¤¤¦¾ò·ï²¼¤ÇÆÀ¤é¤ì¤¿¤â¤Î¤Ç¤¹¤«¡©
¡ÖÆÈΩÊÑ¿ô¤¬¤Ê¤¤¡×¤Ê¤ó¤Æ...

Re: R¤Î°ìÈ̲½Àþ·Á²óµ¢¤Î¥â¥Ç¥ë¼°¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§Y 2022/05/27(Fri) 09:14 No. 23190
¾ÜºÙ¤Ê¤´²óÅú¡¢À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
º¬ËÜŪ¤Ë´Ö°ã¤Ã¤¿¤³¤È¤ò¤·¤Æ¤¤¤¿¤è¤¦¤Ç¤¹¡£

¤³¤Î¥Ç¡¼¥¿¤Ï¡¢¤¢¤ëÀ½ÉʤÎÀ½Â¤¤Ë»ÈÍѤ¹¤ë¿å¤ÎºÙ¶Ý¸¡ºº¤Î·ë²Ì¤Ç¤¹¡£¿ôÃͤϰìÄêÎ̤ο夫¤é¸¡½Ð¤µ¤ì¤¿ºÙ¶Ý¤Î¸Ä¿ô¤Ç¤¹¡£ËèÆü1¥µ¥ó¥×¥ë¤ò¸¡ºº¤·¡¢»þ·ÏÎó¤Ë¤Ê¤é¤Ù¤¿¤â¤Î¤Ç¤¹¡£

Åö¶È³¦¤Ç¤Ï¡¢¤³¤Î¼ï¤Î¥Ç¡¼¥¿¤Ï¡¢Éé¤ÎÆó¹àʬÉÛ¡¢¥¼¥í²á¾ê¥Ý¥¢¥½¥óʬÉÛÅù¤Ë½¾¤¦¤Î¤Ç¡¢¤³¤ì¤é¤ÎÃæ¤Ç¤è¤¯¥Õ¥£¥Ã¥È¤¹¤ë¤â¤Î¤òÁªÂò¤·¡¢¿äÄꤵ¤ì¤¿Ê¬ÉÛ¤ÎÎ㤨¤Ð99.9¥Ñ¡¼¥»¥ó¥¿¥¤¥ëÅÀ¤ò´ÉÍý´ð½àÃͤˤ¹¤ë¡¦¡¦¡¦¤È¤¤¤Ã¤¿¤³¤È¤¬¹Ô¤ï¤ì¤Æ¤¤¤Þ¤¹¡£
źÉÕʸ¸¥¤ÎÊýË¡¡ÊSAS¤Ë¤è¤ë¥Ñ¥é¥á¡¼¥¿¿äÄê¡Ë¤ò¤½¤Î¤Þ¤Þ¤ä¤í¤¦¤È¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢SAS¤¬¤Ê¤¤¤Î¤ÇR¤Ç¤Î±é»»ÊýË¡¤òÄ´¤Ù¤Æ¤¤¤¿¤Î¤Ç¤¹¡£¤³¤ÎÉôʬ°Ê³°¤Ï¿ô¼°¤¬µ­ºÜ¤µ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¥¨¥¯¥»¥ë¤Ç½èÍý¤Ç¤­¤Þ¤·¤¿¡£
¤Þ¤¿¡¢¤³¤Îʸ¸¥¤Î»öÎã¥Ç¡¼¥¿¤Ï¡¢º£²ó¤Î0¤Ð¤«¤ê¤Î¥Ç¡¼¥¿¤È¤Ï°ã¤¦¤¿¤á¡¢¤½¤Î¤Þ¤Þ¤Ç¤Ï¥À¥á¤À¤í¤¦¤È»×¤Ã¤Æ¤Ï¤¤¤¿¤Î¤Ç¤¹¤¬¡¦¡¦¡¦


Ljung-BoxÅý·×Î̤ˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§Åý·×¤Î»ÒÇ­ 2022/03/05(Sat) 18:41 No. 23184
¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£ËÜ¥µ¥¤¥È¤ò¤¿¤Ó¤¿¤ÓÇÒ¸«¤·¡¢ÊÙ¶¯¤µ¤»¤Æ¤¤¤¿¤À¤¤¤Æ¤ª¤ê¤Þ¤¹¡£
»ä¤Î¹Í¤¨¤¬Àµ¤·¤¤¤«¤É¤¦¤«¡¢¤ª»Ç¤¤¤·¤¿¤¯¼ÁÌä¤ò¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£

¤¢¤ë»þ·ÏÎó¤Î¼«¸ÊÁê´Ø¤Î½¸¤Þ¤ê¤¬¥¼¥í¤È°Û¤Ê¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤ëÅý·×Ū¸¡Äê¤Î£±¤Ä¤Ë¡¢Ljung-Box¡Ê¥ê¥å¥ó¥°¡¦¥Ü¥Ã¥¯¥¹¡ËÅý·×Î̤¬¤¢¤ê¤Þ¤¹¡£
¤½¤Î¼°¤Ï¡¢
¡¡¡¡n(n+2) \sum_{j=1}^h\frac{\hat{\rho}^2_j}{n-j}
¤Ç¤¹¡£¤³¤³¤Ç¡¢n¤Ï¼«¸ÊÁê´Ø¤ò¿äÄꤹ¤ë¥Ç¡¼¥¿¿ô¡¢\hat{\rho}¤Ï»þ´Öº¹ j ¤Ë¤ª¤±¤ë¼«¸ÊÁê´Ø¤ÎÃÍ¡¢h¤Ï¸¡Äꤹ¤ë»þ´Öº¹¤Ç¤¹¡£
¤¢¤ë»þ·ÏÎó¤Î¼«¸ÊÁê´Ø¤¬¥¼¥í¤È¤¤¤¦¤³¤È¤Ï¡¢¤½¤Î»þ·ÏÎó¤ÏÀþ·ÁŪ¤Ë¤Ï¡¢ÆÈΩ¤ÇƱ°ì¤ÊʬÉÛ¤ò»ý¤ÄÍð¿ô¤Ç¤¢¤ë¤È¤¤¤¦°·¤¤¤Ç¤¢¤ë¤ÈÍý²ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£

Ljung-BoxÅý·×Î̤Ǥϼ«¸ÊÁê´Ø¤òÍѤ¤¤Þ¤¹¤¬¡¢¼«¸ÊÁê´Ø¤Ç¤Ï¤Ê¤¯Áê¸ß¾ðÊóÎ̤òÍѤ¤¤¿¾ì¹ç¤Ç¤â¡¢Æ±¤¸µÄÏÀ¤¬½ÐÍè¤ë¤è¤¦¤Ë»×¤¤¤Þ¤¹¤¬¡¢Ç¡²¿¤Ç¤·¤ç¤¦¤«¡£
¤â¤·¡¢¤¢¤ë»þ·ÏÎ󤬡¢ÆÈΩ¤ÇƱ°ì¤ÊʬÉÛ¤ò»ý¤ÄÍð¿ô¤È¤·¤Æ°·¤¨¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢¸À¤¤´¹¤¨¤ì¤Ð¡¢ÌµÁê´Ø¤Ê»þ·ÏÎó¤Ç¤¢¤ì¤Ð¡¢¤½¤ÎÁê¸ß¾ðÊóÎ̤âÍýÏÀ¾å
¡ÊÍýÁÛŪ¤Ë¤Ï¡Ë¥¼¥í¤Ë¤Ê¤ë¤È»×¤¤¤Þ¤¹¡£
¤½¤¦¤Ç¤¢¤ì¤Ð¡¢Ljung-BoxÅý·×Î̤μ°¤Î¼«¸ÊÁê´Ø¤òÁê¸ß¾ðÊóÎ̤ËÆþ¤ìÂؤ¨¤Æ¡¢¤¢¤ë»þ·ÏÎó¤ÎÁê¸ß¾ðÊóÎ̤ν¸¤Þ¤ê¤¬¥¼¥í¤È°Û¤Ê¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤ë
¤³¤È¤Ç¤­¤ëÅý·×Î̤Ȥ·¤Æ¡¢¤½¤Î¤Þ¤Þ¤³¤Î¼°¤ò»È¤Ã¤Æ¤âÎɤ¤¤è¤¦¤Ë»×¤¤¤Þ¤¹¡£

ÀèÀ¸¤Î¤ª¹Í¤¨¤ò¤ªÊ¹¤«¤»¤¯¤À¤µ¤¤¡£¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

Re: Ljung-BoxÅý·×Î̤ˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2022/03/06(Sun) 21:24 No. 23185
»ÄÇ°¤Ê¤¬¤é¡¤»ä¤Ë¤Ï¤ï¤«¤ê¤«¤Í¤Þ¤¹¡£
Á³¤ë¤Ù¤­¾ì½ê¤Ç¤ªÌ䤤¹ç¤ï¤»¤¯¤À¤µ¤¤¡£

Re: Ljung-BoxÅý·×Î̤ˤĤ¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§Åý·×¤Î»ÒÇ­ 2022/03/06(Sun) 22:02 No. 23186
¤ªË»¤·¤¤Ãæ¡¢ÊÖ¿®¡¢Í­¤êÆñ¤¦¤´¤¶¤¤¤Þ¤¹¡£
ºÆÅÙ¡¢¼«Ê¬¤Ç¹Í¤¨¤Æ¤ß¤Þ¤¹¡£


A·²¤ÈB·²¤ÎANCOVA
¡¡¡¡Åê¹Æ¼Ô¡§ÅöľÃæ 2021/12/05(Sun) 20:58 No. 23170
A·²¡Ê200¿Í¡Ë¤ÈB·²¡Ê800¿Í¡Ë¤Î·ìÅüÃͤκ¹¤òǯÎð¡¢À­¡¢BMI¤Ê¤É¤Ê¤É¤òÄ´À°¤·¤¿¤¦¤¨¤Ç¡¢ANCOVA¤Ç°ã¤¤¤¬¤¢¤ë¤«¤ò¸¡Æ¤¤·¤Æ¤¤¤Þ¤·¤¿¡£
A·²¤ÈB·²¤Ç¤Ï¤â¤È¤â¤È¿§¡¹Çطʤ˰㤤¤¬¤¢¤ë¤Î¤Ç¤³¤ì¤é¤ò¥Þ¥Ã¥Á¤µ¤»¤ÆÈæ³Ó¤¹¤ë¤è¤¦¤Ë¸À¤ï¤ì¤Þ¤·¤¿¡£¤½¤³¤Ç¥×¥í¥Ú¥ó¥·¥Æ¥£¥¹¥³¥¢¤Ç¥Þ¥Ã¥Á¤µ¤»¤¿¾å¤Ç¡¢A·²¤ÈB·²¤Î·ìÅüÃͤòÈæ³Ó¤·¤è¤¦¤È¤ª¤â¤Ã¤Æ¤¤¤Þ¤¹¡Ê1ÂÐ1¡¢1ÂÐ2¤Ê¤É¡©¡Ë¡£
¥Þ¥Ã¥Á¥ó¥°¤·¤¿¸å¤ÏA·²¤ÈB·²¤ÎÂоݼԤˡÖÂбþ¡×¤¬¤Ç¤­¤ë¤È¤ª¤â¤¦¤Î¤Ç¤¹¤¬¡¢ANCOVA¤Ç¤³¤Î2·²¤Î·ìÅüÃͤκ¹¤ò¸¡Äꤹ¤ë¾ì¹ç¡¢¤³¤Î¡ÖÂбþ¡×¤ò¹Íθ¤·¤Ê¤¤¤È¤¤¤±¤Þ¤»¤ó¤«¡©A·²¡Ê200¿Í¡Ë¤ÈB·²¡Ê800¿Í¡Ë¤Î·ìÅüÃͤκ¹¤ò¤ß¤¿¤È¤­¤ÈƱ¤¸¥×¥í¥°¥é¥à¤Ç¤è¤¤¤Ç¤¹¤«¡©
SAS¤òÍѤ¤¤Æ²òÀϤ·¤Æ¤¤¤Þ¤¹¡£

Re: A·²¤ÈB·²¤ÎANCOVA
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/12/06(Mon) 22:15 No. 23171
¥Þ¥Ã¥Á¥ó¥°¤ÏÆñ¤·¤¤¤Ç¤¹¡£
º¹¤ò¤â¤¿¤é¤¹ÊÑ¿ô¤ò¥Þ¥Ã¥Á¥ó¥°¤Ë»È¤Ã¤Æ¤·¤Þ¤¦¤È¡¤Åö¤¿¤êÁ°¤Ç¤¹¤¬¡¤º¹¤¬¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£


ÊÒ¦¸¡Ä꤫ξ¦¸¡Ä꤫¡©
¡¡¡¡Åê¹Æ¼Ô¡§50Âå¤Î¤ª¤¸¤µ¤ó 2021/11/05(Fri) 11:55 No. 23166
ÀèÀ¸¤ÎHP¤ÎÃæ¤Ë¤¢¤ë±é½¬ÌäÂê¤Ç°Ê²¼¤ÎÌäÂ꤬¤¢¤ê¤Þ¤¹¡£

ÌäÂê3¡¡¿·¤·¤¯³«È¯¤µ¤ì¤¿À½ÉʤÎÉʼÁ¤Ï½¾ÍèÉʤËÈæ¤Ù¤ÆÍ¥¤ì¤Æ¤¤¤ë¤³¤È¤ò¼¨¤·¤¿¤¤¡£a¡¤b ¤¤¤º¤ì¤Î¸¡Äê¼êË¡¤ò¤È¤ë¤Ù¤­¤«²òÅúÍó¤Ëµ­Æþ¤·¡¤Á÷¿®¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤·¤Ê¤µ¤¤¡£

Åú¤¨¤Ïa¤Î¡ÖÊÒ¦¸¡Äê¡×¤Ê¤Î¤Ç¤¹¤¬¡¤ËÜÅö¤Ç¤·¤ç¤¦¤«¡©ÊÒ¦¸¡Äê¤ÎÊý¤¬Î¾Â¦¸¡Äê¤è¤êÍ­°Õ¤Ë¤Ê¤ê¤ä¤¹¤¤¤Î¤Ç¡¤°ìÈÌŪ¤Ë¸¡Ä꤬¸·¤·¤¤Î¾Â¦¸¡Äê¤òÍѤ¤¤ë»ö¤¬¼çή¤Èʹ¤¤¤¿»ö¤¬¤¢¤ê¤Þ¤¹¡£¼ÂºÝ¤Ï¡¤¤É¤¦¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡©

Re: ÊÒ¦¸¡Ä꤫ξ¦¸¡Ä꤫¡©
¡¡¡¡Åê¹Æ¼Ô¡§50Âå¤Î¤ª¤¸¤µ¤ó 2021/11/05(Fri) 11:58 No. 23167
»²¹ÍÀè¤Ç¤¹¡£¤³¤ì¤òÆɤó¤Ç¡¤Î¾Â¦¸¡Äê¤ò¤·¤¿Êý¤¬Îɤ¤¤Î¤«¤Ê¤È»×¤¤¤Þ¤·¤¿¡£

https://www.dynacom.co.jp/product_service/packages/snpalyze/sa_t2_oneside-twoside.html

Re: ÊÒ¦¸¡Ä꤫ξ¦¸¡Ä꤫¡©
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/11/06(Sat) 12:58 No. 23168
¦Á¥¨¥é¡¼¤À¤±¤Ç¤Ï¤Ê¤¯¡¤¦Â¥¨¥é¡¼¤â¹Í¤¨¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£
http://aoki2.si.gunma-u.ac.jp/lecture/Kentei/beta-error.html

¤¤¤º¤ì¤Ë¤»¤è¡¤ÍýÏÀŪ¤ËÊý¸þÀ­¤¬¤¢¤ë¤Ê¤é¤ÐÊÒ¦¸¡Äê¤ò»È¤¦¤Ù¤­¤Ç¤¹¡£

¡ÖÊÒ¦¸¡Äê¤ÎÊý¤¬Î¾Â¦¸¡Äê¤è¤êÍ­°Õ¤Ë¤Ê¤ê¤ä¤¹¤¤¤Î¤Ç¡¤°ìÈÌŪ¤Ë¸¡Ä꤬¸·¤·¤¤Î¾Â¦¸¡Äê¤òÍѤ¤¤ë¡×¤Ê¤é¡¤Í­°Õ¿å½à¤ò²¼¤²¤Æ¤ä¤ì¤Ð¤è¤¤¤À¤±¤Ç¤¹¡£¤Ä¤Þ¤ê¡¤Í­°Õ¿å½à 0.025 ¤ÎÊÒ¦¸¡Äê¤È¡¤Í­°Õ¿å½à 0.05 ¤Îξ¦¸¡Äê¤ÏƱ¤¸¤Ê¤Î¤Ç¤¹¤«¤é¡£

Re: ÊÒ¦¸¡Ä꤫ξ¦¸¡Ä꤫¡©
¡¡¡¡Åê¹Æ¼Ô¡§50Âå¤Î¤ª¤¸¤µ¤ó 2021/11/09(Tue) 14:56 No. 23169
¤´ÊÖ¿®¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£¤Þ¤¿¡¤¤´²óÅú¤¬ÃÙ¤¯¤Ê¤ê¡¤¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£¦Á¥¨¥é¡¼¡¤¦Â¥¨¥é¡¼¤òÃΤé¤Ê¤¤¤Î¤Ç¡¤¤Þ¤º¤Ï¤½¤³¤«¤éÊÙ¶¯¤·¤¿¤¤¤È»×¤¤¤Þ¤¹¡£¤â¤·¡¤¤Þ¤Àʬ¤«¤é¤Ê¤¤ÅÀ¤¬¤¢¤ê¤Þ¤·¤¿¤é¡¤ºÆÅÙ¡¤¼ÁÌ䤵¤»¤Æ²¼¤µ¤¤¡£


ÈæΨ¤Îº¹¤Î¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§50Âå¤Î¤ª¤¸¤µ¤ó 2021/11/03(Wed) 15:05 No. 23158
¤â¤¦ÆȳؤÇ20ǯ°Ì¡¤Åý·×³Ø¤òÊÙ¶¯¤·¤Æ¤¤¤Þ¤¹¤¬¡¤Ì¤¤À¤Ë´ðËܤ¬Îɤ¯Ê¬¤«¤Ã¤Æ¤¤¤Ê¤¤¼Ô¤Ç¤¹¡£½é¤á¤ÆÅê¹Æ¤·¤Þ¤¹¡£

ÈæΨ¤Îº¹¤Î¸¡Äê¤Î¼ÁÌä¤Ç¤¹¡£

°Ê²¼¤ÎÍͤʥǡ¼¥¿¤¬¤¢¤Ã¤¿¤È¤·¤Þ¤¹¡£
¡¡¡¡¡¡¡¡»¿À®¡¡¡¡¡¡¡¡È¿ÂС¡¡¡¡¡¹ç·×
ÃË¡¡¡¡¡¡22¡¡¡¡¡¡¡¡¡¡50¡¡¡¡¡¡¡¡72
½÷¡¡¡¡¡¡51¡¡¡¡¡¡¡¡¡¡30¡¡¡¡¡¡¡¡81
¹ç·×¡¡¡¡73¡¡¡¡¡¡¡¡¡¡80¡¡¡¡¡¡¡¡153

ÈæΨ¡¡0.3013699 0.6250000

»¿À®¤ÎÃæ¤ÎÃËÀ­¤Î³ä¹ç¤Ï0.3013699¡¤È¿ÂФÎÃæ¤ÎÃËÀ­¤Î³ä¹ç¤Ï0.6250000¤Ç¤¢¤Ã¤¿¡£¤³¤ÎÈæΨ¤ËÍ­°Õº¹¤Ï¤¢¤ë¤À¤í¤¦¤«¡©

R¤òÍѤ¤¤Æ°Ê²¼¤Î¥³¥Þ¥ó¥É¤òÂǤÁ¤Þ¤·¤¿¡£

> prop.test(c(22,50),c(73,80))

R¤Î·ë²Ì¤ò°Ê²¼¤Ë¼¨¤¹¡£

2-sample test for equality of proportions with continuity
correction

data: c(22, 50) out of c(73, 80)
X-squared = 14.774, df = 1, p-value = 0.0001212
alternative hypothesis: two.sided
95 percent confidence interval:
-0.4861744 -0.1610859
sample estimates:
prop 1 prop 2
0.3013699 0.6250000

PÃͤ¬0.05̤Ëþ¤Ê¤Î¤Ç¡¤¤³¤Î£²¤Ä¤ÎÈæΨ¤Ë¤Ïº¹¤¬¤¢¤ë¤È¸À¤¨¤ë¡£

¼¡¤ËÊÒ¦¸¡Äê¤ò¹Ô¤¦(¥¤¥§¡¼¥Ä¤ÎϢ³¤ÎÊäÀµ¤ò³°¤·¤Æ¤¤¤Þ¤¹¤¬µ¤¤Ë¤·¤Ê¤¤¤Ç²¼¤µ¤¤)¡£

> prop.test(c(22,50),c(73,80),correct=FALSE,alternative="less")

R¤Î·ë²Ì¤ò°Ê²¼¤Ë¼¨¤¹¡£

2-sample test for equality of proportions without continuity
correction

data: c(22, 50) out of c(73, 80)
X-squared = 16.047, df = 1, p-value = 3.09e-05
alternative hypothesis: less
95 percent confidence interval:
-1.000000 -0.198212
sample estimates:
prop 1 prop 2
0.3013699 0.6250000

PÃͤÏ0.0000309¤È0.05̤Ëþ¤Ê¤Î¤Ç¡¤Á°¼Ô¤ÎÈæΨ¡Ê0.3013699¡Ë¤Ï¸å¼Ô¤ÎÈæΨ¡Ê0.6250000¡Ë¤è¤ê¤â¾®¤µ¤¤¤È¸À¤¨¤ë¡£

¤³¤ÎÍͤÊÊÒ¦¸¡Äê¤Ï¡¤¦ÖÆó¾è¸¡Äê¤Ç¤Ï½ÐÍè¤Ê¤¤¤È¹Í¤¨¤ÆÎɤ¤¤Ç¤·¤ç¤¦¤«¡©R¤Çchisq.test´Ø¿ô¤ò»ý¤Á¤Æ¥È¥é¥¤¤·¤¿¤Î¤Ç¤¹¤¬¡¤ÊÒ¦¸¡Ä꤬½ÐÍè¤ë¥ª¥×¥·¥ç¥ó¤Ï̵¤¤´¶¤¸¤Ç¤·¤¿¡£

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

Re: ÈæΨ¤Îº¹¤Î¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/11/03(Wed) 20:22 No. 23160
·ëÏÀ¤«¤éÀè¤Ë¤¤¤¦¤È¡¤prop.test ¤ÏÌÌÅݸ«¤¬¤è¤¤¤Î¤ËÂФ·¤Æ¡¤chisq.test ¤Ï¥½¥ó¥Ê¥Î¥·¥Ã¥¿¥³¥Ã¥Á¥ã¥Í¡¼¤ÈÁǤõ¤¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ç¤¹¡£

prop.test() ¤Î¥½¡¼¥¹¥ê¥¹¥È¤Ç¤Ï¡¤p ÃÍ¡ÊPVAL¡Ë¤ò·è¤á¤ë¤Î¤Ï°Ê²¼¤Î²Õ½ê¤Ç¤¹¡ÊÃí¼á¤Ï»ä¤¬ÉÕ¤±²Ã¤¨¤Þ¤·¤¿¡Ë¡£

if (alternative == "two.sided") # ξ¦¸¡Äê¤Î¾ì¹ç
PVAL <- pchisq(STATISTIC, PARAMETER, lower.tail = FALSE)
else { # ÊÒ¦¸¡Äê¤Î¾ì¹ç
if (k == 1) # ÊìÈæΨ¤Î¸¡Äê¤Î¾ì¹ç
z <- sign(ESTIMATE - p) * sqrt(STATISTIC)
else z <- sign(DELTA) * sqrt(STATISTIC) # Æ󷲤ÎÈæ³Ó¤Î¾ì¹ç
# ¸¡ÄêÅý·×Î̤ÎÊ¿Êýº¬¤ò¤È¤ê
# Éä¹æ¤Ï DELTA > 0 ¤Î¤È¤­Àµ¡¤DELTA < 0 ¤Î¤È¤­Éé
PVAL <- pnorm(z, lower.tail = (alternative == "less"))
# p ÃͤÎÀßÄê
# alternative == "less" ¤Î¤È¤­¡¤²¼Â¦³ÎΨ
}

# Î㼨¤µ¤ì¤¿¥Ç¡¼¥¿¤Ë¤Ä¤¤¤ÆʬÀϤ·¤Æ¤ß¤Þ¤¹

tbl <- matrix(c(22, 50, 51, 30), byrow=TRUE, ncol=2)
print(tbl)

[,1] [,2]
[1,] 22 50
[2,] 51 30

# ¤Þ¤º¤Ï prop.test() ¤Î·ë²Ì¤Ç¤¹

result.prop.test <- prop.test(c(22, 50), c(73, 80), correct=FALSE, alternative="less")
print(result.prop.test)

2-sample test for equality of proportions without continuity
correction

data: c(22, 50) out of c(73, 80)
X-squared = 16.047, df = 1, p-value = 3.09e-05
alternative hypothesis: less
95 percent confidence interval:
-1.000000 -0.198212
sample estimates:
prop 1 prop 2
0.3013699 0.6250000

# ¥×¥í¥°¥é¥àÃæ¤Ç¤Î³ÆÊÑ¿ô¤ÎÃͤγÎǧ¤ò¤·¤Þ¤¹

DELTA <- unname(result.prop.test$estimate[1] - result.prop.test$estimate[2])
print(DELTA) # ÈæΨ¤Îº¹¡ÊÉä¹æÉÕ¤­¡Ë

[1] -0.3236301

STATISTIC <- unname(result.prop.test$statistic)
print(STATISTIC) # ¸¡ÄêÅý·×Î̡ʦÖ2ʬÉۤ˽¾¤¦¡Ë

[1] 16.04666

print(sqrt(STATISTIC)) # ¦Ö2ʬÉÛÅý·×Î̤ÎÊ¿Êýº¬¤Ïɸ½àÀµµ¬Ê¬ÉÛÅý·×ÎÌ

[1] 4.005828

print(sign(DELTA)) # Éä¹æ¤Î·èÄê

[1] -1

z <- sign(DELTA) * sqrt(STATISTIC)
print(z) # Éä¹æÉÕ¤­¤Îɸ½àÀµµ¬Ê¬ÉÛÅý·×ÎÌ

[1] -4.005828

# ¡ú¡ú ¸å¤Ç»²¾È¤¹¤ë¤¿¤á¤Î¥Ö¥Ã¥¯¥Þ¡¼¥¯

alternative <- "less"
PVAL <- pnorm(z, lower.tail = (alternative == "less"))
print(PVAL) # ÊÒ¦ p ÃÍ

[1] 3.090026e-05

prop.test ¤«¤é¤Î·ë²Ì¡£¾å¤Î PVAL ¤È°ìÃפ·¤Æ¤¤¤ë¤³¤È¤ò³Îǧ¡£

print(result.prop.test$p.value)

[1] 3.090026e-05

¤µ¤Æ¡¤¤³¤³¤«¤é¤¬²óÅú¤Ç¤¹¡£
prop.test() ¤ËÂФ·¤Æ¡¤chisq.test() ¤Ï¡¤prop.test() ¤È°ã¤¤¡¤¼Â¤ËÁǤõ¤¤Ê¤¤¡£

prop.test() ¤¬¤ä¤Ã¤Æ¤¯¤ì¤¿¤³¤È¤Ï¡¤chisq.test() ¤Ç¤Ï¼«Ê¬¤Ç¤¹¤ë¤·¤«¤Ê¤¤¡£

result.chisq.test = chisq.test(tbl, correct=FALSE)
print(result.chisq.test) # chisq.test ¤Î·ë²Ì¡ÊÊÒ¦¸¡Äê¤Ê¤ó¤ÆÃΤé¤Ê¤¤¤«¤é¡ª¤È¡¤ÁǤõ¤¤Ê¤¤¡Ë

Pearson's Chi-squared test

data: tbl
X-squared = 16.047, df = 1, p-value = 6.18e-05

ÊÒ¦¸¡Äê¤Î¾ì¹ç¡¤¼«Ê¬¤Ç¤ä¤ë¤·¤«¤Ê¤¤¡Êprop.test() ¤Ï¤ä¤Ã¤Æ¤¯¤ì¤¿¤Î¤Ë¡Ë¡£

z <- sqrt(result.chisq.test$statistic) # ɸ½àÀµµ¬Ê¬Éۤ˽¾¤¦Åý·×Î̤ò¼«Ê¬¤Ç·×»»¤¹¤ë
print(z)

X-squared
4.005828

p.value <- pnorm(-z) # ¡ÖŬÀÚ¤Ë¡× z ¤ÎÉä¹æ¤òÉÕ¤±¤ë¤³¤È
print(p.value)

X-squared
3.090026e-05

¾å¤Î¥Ö¥Ã¥¯¥Þ¡¼¥¯ ¡ú¡ú ¤ÈƱ¤¸·ë²Ì¤Ë¤Ê¤Ã¤¿¤³¤È¤ò³Îǧ¤¹¤ë¡£

Re: ÈæΨ¤Îº¹¤Î¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§50Âå¤Î¤ª¤¸¤µ¤ó 2021/11/04(Thu) 09:33 No. 23161
ÂçÊÑ¡¤ÃúÇ«¤Ê¤´²óÅú¡¤¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

»ä¤Ï¡¤R¤Î¥×¥í¥°¥é¥ß¥ó¥°¤ò½¬ÆÀ¤·¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¤¤Þ¤º¤Ï¡¤ÀèÀ¸¤Î²óÅú¤òÍý²ò¤¹¤ë»ö¤«¤é»Ï¤á¤¿¤¤¤È»×¤¤¤Þ¤¹¡£¤Ç¤¹¤Î¤Ç¡¤¾¯¡¹¡¤¤ª»þ´Ö¤ò²¼¤µ¤¤¡£

Re: ÈæΨ¤Îº¹¤Î¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§50Âå¤Î¤ª¤¸¤µ¤ó 2021/11/04(Thu) 14:17 No. 23162
¥×¥í¥°¥é¥ß¥ó¥°¤Î²Õ½ê¤Ç¼ÁÌä¤Ç¤¹¡£

alternative <- "less"
PVAL <- pnorm(z, lower.tail = (alternative == "less"))

¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¤¬¡¤Æó¹ÔÌܤÏñ¤Ë
PVAL <- pnorm(z, lower.tail = TRUE)

¤ÈƱ¤¸»ö¤Ç¤·¤ç¤¦¤«¡Ê·×»»¤µ¤»¤ë¤ÈƱ¤¸¿ôÃÍ¡Ö3.090026e-05¡×¤È¤Ê¤ê¤Þ¤¹¡Ë¡©¤½¤Î¾ì¹ç¡¤²¿¸Î¡¤alternative <- "less"¤ÈÄêµÁ¤·¤Æ¡¤PVAL <- pnorm(z, lower.tail = (alternative == "less"))¤È¤ä¤ä¤³¤·¤¯É½µ­¤µ¤ì¤ë¤Î¤«¤¬Ê¬¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£¤â¤·¤«¤·¤¿¤é¡¤²¼Â¦³ÎΨ¤òµá¤á¤ë»ö¤ò¶¯Ä´¤µ¤ì¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

Re: ÈæΨ¤Îº¹¤Î¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/11/04(Thu) 22:01 No. 23163
> alternative <- "less"
> PVAL <- pnorm(z, lower.tail = (alternative == "less"))

¤È½ñ¤¤¤¿¤Î¤Ï¡¤´Ø¿ô¤Î°ú¿ô¤Ç¡¤¡Öalternative <- "less"¡×¤È»ØÄꤷ¤¿¤Î¤ò°úÍѤ·¤¿¤À¤±¤Ç¤¹¤Î¤Ç¡¤°ú¿ô¤Ç²¿¤¬»ØÄꤵ¤ì¤¿¤«¤ò°ÅÓȤ¹¤ì¤Ð¡¤

> PVAL <- pnorm(z, lower.tail = (alternative == "less"))

¤À¤±¤Ç¤è¤¤¤Î¤Ç¤¹¡£

Re: ÈæΨ¤Îº¹¤Î¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§50Âå¤Î¤ª¤¸¤µ¤ó 2021/11/05(Fri) 08:34 No. 23164
¤ªÅú¤¨¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

R¤Ç¡¤

alternative == "less"

¤ÈÆþÎϤ¹¤ë¤È¡¤

[1] TRUE

¤È¥¢¥¦¥È¥×¥Ã¥È¤µ¤ì¤¿¤Î¤Ç¡¤Ç¼ÆÀ¤·¤Þ¤·¤¿¡£

°ú¤­Â³¤­¡¤¥×¥í¥°¥é¥à¤òÆɤ߿ʤߤޤ¹¡£¤Þ¤¿¡¤¼ÁÌ䤵¤»¤Æ²¼¤µ¤¤¡£

Re: ÈæΨ¤Îº¹¤Î¸¡Äê
¡¡¡¡Åê¹Æ¼Ô¡§50Âå¤Î¤ª¤¸¤µ¤ó 2021/11/05(Fri) 09:48 No. 23165
R¤Î¥×¥í¥°¥é¥à¡¤Íý²ò½ÐÍè¤Þ¤·¤¿¡£¥×¥í¥°¥é¥à¤ÎÃæ¤Ë¤½¤ì¤¾¤ì¤ÎÌ¿Îá¤ËÂФ·¤ÆÃí¼á¤òÉÕ¤±¤Æ夭¡¤¤½¤ì¤ÇÍý²ò¤¹¤ë»ö¤¬½ÐÍè¤Þ¤·¤¿¡£¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


¼ÁÌä¹àÌÜʸËö¤¬°Û¤Ê¤ëÈæ³Ó
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2021/11/01(Mon) 15:20 No. 23154
¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£

ÏÀʸ¤òÆɤó¤Ç¤¤¤Æµ¤¤Ë¤Ê¤ë¤³¤È¤¬½Ð¤Æ¤­¤¿¤¿¤á¡¤¤´°Õ¸«¤ò失¤ì¤Ð¹¬¤¤¤Ë¸¤¸¤Þ¤¹¡£

»öÁ°»ö¸å¤Î¥¢¥ó¥±¡¼¥È¤Ê¤Î¤Ç¤¹¤¬¡¤»öÁ°¤Ç¤Ï¡Ö〜¤Ç¤­¤½¤¦¤Ç¤¹¤«¡©¡×¤ÈÌ䤤¡¤»ö¸å¤Ç¤Ï¡Ö〜¤¬¤Ç¤­¤Þ¤·¤¿¤«¡×¡Ê¡ö 〜 ¤ÏƱ¤¸ÆâÍơˤÈÌ䤤¡¤£´·ïË¡¤Ç´Ö³Ö¼ÜÅ٤ȸ«¤Ê¤·¤ÆÊ¿¶ÑÃͤò½Ð¤·¡¤Âбþ¤Î¤¢¤ët¸¡Äê¤ò¤·¤Æ¤¤¤Þ¤¹¡£¤ß¤Æ¤¤¤ëÆâÍƤ¬°Û¤Ê¤ë¤Î¤Ë¤³¤Î¤è¤¦¤Ê¸¡Äê¤Ï²Äǽ¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡©

¤â¤·ÉÔ²Äǽ¤Ç¤¢¤ì¤Ð¤Ç¤¹¤¬¡¤¤³¤Î¤è¤¦¤Ê¾ì¹ç¡¤¤Ê¤Ë¤«¤è¤¤ÊýË¡¤Ï¤´¤¶¤¤¤Þ¤¹¤«¡£

Re: ¼ÁÌä¹àÌÜʸËö¤¬°Û¤Ê¤ëÈæ³Ó
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/11/01(Mon) 19:41 No. 23156
³Î¤«¤Ë¡¤Í½Â¬ÃÍ¡Ê´õ˾Ã͡ˤȼ¬ÃͤȤ¤¤¦ÅÀ¤Ç¤Ï°Û¤Ê¤ë¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ë¤«¤âÃΤì¤Þ¤»¤ó¤¬¡¤¤³¤Î¤è¤¦¤Ê°ã¤¤¤Ï¿¤«¤ì¾¯¤Ê¤«¤ì¤¢¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
¤¿¤È¤¨¤Ð¡¤ÅêÌôÁ°¸å¤Ç¤Î¾É¾õ¡Ê¸¡ººÃ͡ˤ⡤ÅêÌôÍ­¤ê¡¦Ìµ¤·¤È¤¤¤¦ÅÀ¤Ç¤Ï°Û¤Ê¤ê¤Þ¤¹¤¬¡¤¤½¤ì¤Ï¡¤Ìô¸ú¤ò¸«¤ë¤Î¤Ç¤¢¤ë¤«¤éÌäÂê¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ë¤Î¤Ç¤Ï¡©
°¿¤¤¤Ï¡¤ÅêÌôÁ°¤Ë¼ç¼£°å¤¬¤³¤Î´µ¼Ô¤ÎÌô¸ú¤Ï¤³¤ÎÄøÅÙ¤À¤í¤¦¤Èͽ¬¤·¤Æ¡¤¼ÂºÝ¤ÎÅêÌô¸å¤ÎÌô¸ú¡Ê¼Â¬Ã͡ˤÈÈæ³Ó¤¹¤ë¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ë¤È¡¤¥³¥í¥ó¤µ¤ó¤ÎÄ󼨤·¤¿¾õ¶·¤ÈƱ¤¸¤è¤¦¤Ë¤Ê¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

Re: ¼ÁÌä¹àÌÜʸËö¤¬°Û¤Ê¤ëÈæ³Ó
¡¡¡¡Åê¹Æ¼Ô¡§¥³¥í¥ó 2021/11/02(Tue) 07:29 No. 23157
ÀÄÌÚÀèÀ¸

¤ªÊÖ»ö¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£¤´Ä󼨤¤¤¿¤À¤­¤Þ¤·¤¿2¤Ä¤ÎÎã¤ÇǼÆÀ¤¤¤¿¤·¤Þ¤·¤¿¡£

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


2016/02/17 〜 2021/09/13 ¤Îµ­»ö¤ò½ñ¸Ë¤Ø°ÜÆ°
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/10/08(Fri) 14:05 No. 23151
½ñ¸Ë 048¡¡2016/02/17 --- 2021/09/13
http://aoki2.si.gunma-u.ac.jp/lecture/mb-arc/arc048/index.html


¿®Íê¶è´Ö
¡¡¡¡Åê¹Æ¼Ô¡§¥Ó¥®¥Ê¡¼ 2021/09/11(Sat) 20:15 No. 23140
¿®Íê¶è´Ö¤Ë¤Ä¤¤¤Æ¡¢­¡¤È­¢¤Î¤³¤È¤¬¤ï¤«¤ê¤Þ¤»¤ó¤Î¤Ç¡¢¤´¶µ¼ø¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
¤è¤í¤·¤¯¤ª´ê¤¤¿½¤·¾å¤²¤Þ¤¹¡£

­¡¥¬¥¤¥É¥é¥¤¥ó¤Ë¡Ö¥Ñ¥é¥á¡¼¥¿¤¬Àµµ¬Ê¬Éۤ˽¾¤ï¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯Ë¡¤Çµá¤á¤¿90¡ó¿®Íê¶è´Ö¤òȽÄê¤ËÍѤ¤¤Æ¤â¤è¤¤¡£¡×¤Èµ­ºÜ¤µ¤ì¤Æ¤¤¤¿¤Î¤Ç¤¹¤¬¡¢¿®Íê¶è´Ö¤Ï¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯Ë¡¤Ç¤âµá¤á¤ë¤³¤È¤¬¤Ç¤­¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

­¢¥¬¥¤¥É¥é¥¤¥ó¤ËÂоο®Íê¶è´Ö¡¢ºÇûÈóÂоο®Íê¶è´Ö¤ÎÍѸ줬½Ð¤Æ¤¯¤ë¤Î¤Ç¤¹¤¬¡¢¤³¤ì¤é¤ÎÍѸì¤ÎÀâÌÀ¤¬¤¢¤ê¤Þ¤»¤ó¤Î¤Ç¡¢°ÕÌ£¤¬¤ï¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£¤´¶µ¼ø¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

Re: ¿®Íê¶è´Ö
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/09/19(Sun) 22:48 No. 23142
µ¤¤Å¤¯¤Î¤¬ÃÙ¤ì¤Þ¤·¤¿¤¬¡£

¤É¤Î¡Ö¥¬¥¤¥É¥é¥¤¥ó¡×¤Ç¤·¤ç¤¦¤«¡©
URL¤Ê¤É¤ò¤ª¼¨¤·²¼¤µ¤¤¡£
¤½¤Î¤ªÊý¤ËľÀܼÁÌ䤹¤ë¤Î¤¬¤è¤¤¤È¤Ï»×¤¤¤Þ¤¹¤¬...

°ìÈÌŪ¤Ë¤Ï¡¤Åý·×Î̤ÎʬÉۤˤĤ¤¤Æ¡¤ÆÃÄê¤ÎʬÉÛ¡ÊÎ㤨¤ÐÀµµ¬Ê¬ÉÛ¡¤tʬÉۤʤɡ˥ѥé¥á¥È¥ê¥Ã¥¯Ê¬Éۤ˽¾¤¦¾ì¹ç¤ÏʬÉÛ´Ø¿ô¤Ë´ð¤Å¤¤¤Æ¿®Íê¶è´Ö¤ò·×»»¤·¤Þ¤¹¡£¤¢¤ë¤¤¤Ï·Ð¸³ÅªÊ¬ÉÛ´Ø¿ô¤·¤«¤ï¤«¤é¤Ê¤¤¾ì¹ç¤Ç¤â¡¤·Ð¸³ÅªÊ¬Éۤˤª¤±¤ë²¼Â¦p%¡¤¾å¦q% ¤Ê¤É¤Ï·×»»¤Ç¤­¤ë¤Î¤Ç¿®Íê¶è´Ö¤Ïµá¤á¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡Ê¥Ö¡¼¥È¥¹¥È¥é¥Ã¥×¤Ê¤É¤Ç¡Ë¡£

¡ÖÂоο®Íê¶è´Ö¡¢ºÇûÈóÂоο®Íê¶è´Ö¡×¥°¥°¤Ã¤Æ¤´Í÷¤Ë¤Ê¤ë¤È¤è¤¤¤«¤È»×¤¤¤Þ¤¹¤¬¡£
¤È¤¤¤Ã¤Æ¡¤¸«¤Æ¤ß¤ë¤È¡¤Á´¤¯¸«¤Ä¤«¤ê¤Þ¤»¤ó¤Í¡£

"asymmetry confidence interval proportion" ¤Ê¤É¤Ç¥°¥°¤Ã¤Æ¤ß¤ë¤È¤è¤¤¤«¤âÃΤì¤Þ¤»¤ó¡£
¤¤¤¯¤Ä¤«½Ð¤Æ¤­¤Þ¤¹¤¬¡¤Æɤ൤¤¬µ¯¤­¤Þ¤»¤ó...ºÐ¤Ç¤¹¤Í¡£

Âоο®Íê¶è´Ö¤Ï¡¤¡ÖÅÀ¿äÄê¡Þ¦Á¡×¤Î¤è¤¦¤Ëµá¤á¤é¤ì¤ë¿®Íê¶è´Ö
ÈóÂоο®Íê¶è´Ö¤Ï¡¤¡ÖÅÀ¿äÄê-¦Â, ÅÀ¿äÄê+¦Ã¡×¤Î¤è¤¦¤Ëµá¤á¤é¤ì¤ë¿®Íê¶è´Ö
¤Þ¤¿¡¤ÈóÂоο®Íê¶è´Ö¤Ï¤Æ¤¤¤®¤Ë¤è¤ê²¿Ä̤ê¤â¤¢¤ê¤¦¤ë¤Î¤Ç¡¤¤½¤ÎÃæ¤Ç¿®Íê¶è´Ö¤¬¤â¤Ã¤È¤â¶¹¤¤¤â¤Î¤òºÇûÈóÂоο®Íê¶è´Ö¤È¸À¤¦¤Î¤Ç¤·¤ç¤¦¡£
Âоο®Íê¶è´Ö¤Ï¡¤
http://aoki2.si.gunma-u.ac.jp/lecture/Hiritu/bohiritu-conf.html
¤ÎÀµµ¬Ê¬Éۤ˶á»÷¤¹¤ëÊýË¡
ÈóÂоο®Íê¶è´Ö¤ÏƱ¤¸¥ê¥ó¥¯¤Î
F ʬÉۤ˴ð¤Å¤¯ÊýË¡¡ÊÆó¹àʬÉۤˤè¤ëÊýË¡¡Ë
¤µ¤é¤Ë¤Ï¡¤¥Ý¥¢¥½¥óʬÉۤ˴ð¤Å¤¯ÊýË¡¤È¤«
¤µ¤é¤Ë¤µ¤é¤Ë¡¤Â¿¼ï¿Íͤʿ®Íê¶è´Ö¤ÎÄêµÁ¤È¤«¡£
¤½¤Î¤Ê¤«¤Ç¡¤¿®Íê¶è´Ö¤¬ºÇû¤Î¤â¤Î¤¬ºÇûÈóÂоο®Íê¶è´Ö¤Ê¤Î¤Ç¤·¤ç¤¦¡£




Re: ¿®Íê¶è´Ö
¡¡¡¡Åê¹Æ¼Ô¡§¥Ó¥®¥Ê¡¼ 2021/09/21(Tue) 11:06 No. 23149
ÀÄÌÚÀèÀ¸

¤´Â¿Ë»Ãæ¤Î¤È¤³¤í¡¢¤´²óÅú¤¤¤¿¤À¤­¡¢ËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¥¬¥¤¥É¥é¥¤¥ó¤È¤Ï¡Ö¸åȯ°åÌôÉʤÎÀ¸Êª³ØŪƱÅùÀ­»î¸³¥¬¥¤¥É¥é¥¤¥ó¤Ë´Ø¤¹¤ë¼Áµ¿±þÅú¡ÊQ&A¡Ë¤Ë¤Ä¤¤¤Æ¡×¤Î¤³¤È¤Ç¤´¤¶¤¤¤Þ¤¹¡£°Ê²¼¤ËURL¤ò¤ª¼¨¤·¤¤¤¿¤·¤Þ¤¹¡£
https://www.pmda.go.jp/files/000234569.pdf

­¡¤Î¼ÁÌä¤Ë¤Ä¤­¤Þ¤·¤Æ¤Ï¥¬¥¤¥É¥é¥¤¥óp13¤ÎQ-40¤Î(A)¤Ëµ­ºÜ¤¬¤´¤¶¤¤¤Þ¤¹¡£
­¢¤Î¼ÁÌä¤Ë¤Ä¤­¤Þ¤·¤Æ¤Ï¥¬¥¤¥É¥é¥¤¥óp14¤ÎQ-42¤Î(A)¤Ëµ­ºÜ¤¬¤´¤¶¤¤¤Þ¤¹¡£

¿®Íê¶è´Ö¤È¤ÏÀµµ¬Ê¬ÉÛËô¤ÏtʬÉÛ¤ÎÀ­¼Á¤òÍøÍѤ·¤Æ¡¢Ê¿¶ÑÃÍ¡ÞSE¤Çµá¤á¤ë¤â¤Î¤È»×¤Ã¤Æ¤¤¤Þ¤·¤¿¤¬¡¢¥¬¥¤¥É¥é¥¤¥ó¤Ç¤Ï¡Ö¥Î¥ó¥Ñ¥é¥á¥È¥ê¥Ã¥¯Ë¡¤Ç²òÀϤ·¤¿¿®Íê¶è´Ö¤òÍѤ¤¤Æ¡¦¡¦¡¦¡×¤Èµ­ºÜ¤µ¤ì¤Æ¤ª¤ê¤Þ¤·¤¿¤Î¤Ç¡¢Ê¬ÉÛ¤òÍѤ¤¤º¤Ë¡ÊÃæ±ûÃͤòÍѤ¤¤ë¡©¡Ë¤É¤Î¤è¤¦¤Ë¤·¤Æ¿®Íê¶è´Ö¤òµá¤á¤ë¤³¤È¤¬¤Ç¤­¤ë¤Î¤«¤ï¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£Åý·×½ñ¤òÌó40ºý¸«¤Þ¤·¤¿¤¬¡¢¤³¤Î¤³¤È¤Ë¤Ä¤¤¤Æµ­ºÜ¤·¤Æ¤¤¤ëËܤϤ´¤¶¤¤¤Þ¤»¤ó¤Ç¤·¤¿¡£Âоο®Íê¶è´Ö¡¢ºÇûÈóÂоο®Íê¶è´Ö¤ÎÍѸì¤Ë¤Ä¤¤¤Æ¤âÄ´¤Ù¤Þ¤·¤¿¤¬¡¢Åý·×½ñ¤Ëµ­ºÜ¤µ¤ì¤Æ¤ª¤é¤º¡¢¥Í¥Ã¥È¤Ç¸¡º÷¤·¤Þ¤·¤¿¤¬¡¢¸«¤Ä¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£
¤½¤ì¤Çº¤¤ê²Ì¤Æ¤ÆÀÄÌÚÀèÀ¸¤Ë¤´¼ÁÌ䤷¤¿¤·¤À¤¤¤Ç¤´¤¶¤¤¤Þ¤¹¡£
ÀÄÌÚÀèÀ¸¤Î¤´ÀâÌÀ¤ÇÂоο®Íê¶è´Ö¡¢ºÇûÈóÂоο®Íê¶è´Ö¤ÎÍѸì¤Î°ÕÌ£¤¬¤ï¤«¤ê¤Þ¤·¤¿¡£
·Ð¸³ÅªÊ¬ÉÛ´Ø¿ô¤È¤¤¤¦´Ø¿ô¤Î¸ºß¤ò½é¤á¤ÆÃΤê¤Þ¤·¤¿¡£·Ð¸³ÅªÊ¬ÉÛ´Ø¿ô¤Ë¤Ä¤¤¤Æ¡¢ÊÙ¶¯¤¤¤¿¤·¤Þ¤¹¡£Åý·×¤ÎÃ챤¬¤Þ¤¿Áý¤¨¡¢ÂçÊÑÍ­Æñ¤¯»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£
ËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


c-index¤ÎÈæ³Ó·ë²Ì¤Î²ò¼á¤Ë´Ø¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§Boz 2021/09/20(Mon) 12:02 No. 23144
¤¬¤ó¼£ÎŸå¤ÎÀ¸Â¸Î¨Í½Â¬¤Ë´Ø¤¹¤ë¸¦µæ¤ò¹Ô¤Ã¤Æ¤¤¤Þ¤¹¡£3¤Ä¤ÎÀ¸Â¸Í½Â¬¥â¥Ç¥ë¤òºîÀ®¤·¡¢¤½¤ì¤¾¤ì¤Îc-index¡ÊCÅý·×Î̡ˤò»»½Ð¤·¤¿¤È¤³¤í¡¢²¼µ­¤Î·ë²Ì¤È¤Ê¤ê¤Þ¤·¤¿¡£
¥â¥Ç¥ëA¡§c-index=0.65¡Ê95%CI, 0.58-0.73¡Ë
¥â¥Ç¥ëB¡§c-index=0.71¡Ê95%CI, 0.64-0.78¡Ë
¥â¥Ç¥ëA+B¡§c-index=0.70¡Ê95%CI, 0.63-0.77¡Ë
¢¨¥â¥Ç¥ëA+B¤Ï¥â¥Ç¥ëA¤È¥â¥Ç¥ëB¤òÁȤ߹ç¤ï¤»¤¿¤â¤Î¤Ç¤¹¡£

³¤¤¤Æ¡¢³Æ¥â¥Ç¥ë¤Îc-index¤ËÍ­°Õ¤Êº¹¤¬¤¢¤ë¤«¤òR¤Î¥Ñ¥Ã¥±¡¼¥¸¡ÊcompareC)¤ò»È¤Ã¤Æ¸¡Æ¤¤·¤¿¤È¤³¤í¡¢²¼µ­¤Î·ë²Ì¤È¤Ê¤ê¤Þ¤·¤¿¡£
¥â¥Ç¥ëA+B vs ¥â¥Ç¥ëA¡§PÃÍ=0.033
¥â¥Ç¥ëB vs ¥â¥Ç¥ëA¡§PÃÍ=0.12

¤³¤³¤Ç¤ªÊ¹¤­¤·¤¿¤¤¤Î¤Ï¡¢¥â¥Ç¥ëB¤ÎÊý¤¬¥â¥Ç¥ëA+B¤è¤ê¤â¼ã´³c-index¤¬¹â¤¤¤Ë¤â´Ø¤ï¤é¤º¡Ê0.71¤È0.70¡Ë¡¢¥â¥Ç¥ëB vs ¥â¥Ç¥ëA¤Ë¤ÏÍ­°Õº¹¤¬½Ð¤º¡¢¥â¥Ç¥ëA+B vs ¥â¥Ç¥ëA¤À¤±¤ËÍ­°Õº¹¤¬½Ð¤¿Íýͳ¤Î¹Í»¡¤Ë´Ø¤·¤Æ¤Ç¤¹¡£¡Øº£²ó¤ÎÊ콸ÃĤǤϥâ¥Ç¥ëB¤È¥â¥Ç¥ëA¤Îc-index¤Îº¹¤¬¡¢¤¿¤Þ¤¿¤ÞÂ礭¤«¤Ã¤¿¡Ù¤È¤¤¤¦¹Í»¡¤Ç¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©

´ðËÜŪ¤Ê¼ÁÌ䤫¤â¤·¤ì¤º¶²½Ì¤Ç¤¹¤¬¡¢¤´¶µ¼¨¤¤¤¿¤À¤±¤ë¤È¹¬¤¤¤Ç¤¹¡£
¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

Re: c-index¤ÎÈæ³Ó·ë²Ì¤Î²ò¼á¤Ë´Ø¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/09/20(Mon) 13:12 No. 23146
c-index ¤Îº¹¤Î¸¡Äê¤Ï¤è¤¯ÃΤê¤Þ¤»¤ó¤¬¡¤°ìÈÌŪ¤Ë¤Ï¡¤»ÈÍѤ¹¤ëÊÑ¿ô¤Î¸Ä¿ô¤¬°ã¤¦¥â¥Ç¥ëƱ»Î¤ÎÈæ³Ó¤ÏÈù̯¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©¤Þ¤¿¡¤·ç»Ãͽüµî¤Î¤»¤¤¤ÇʬÀÏÂоݿô¤¬°ã¤¦¾ì¹ç¤â´ØÏ¢¤¹¤ë¤«¤â¡£
¾¯¤Ê¤¯¤È¤â¡¤¡Ö¤¿¤Þ¤¿¤ÞÂ礭¤«¤Ã¤¿¡×¤È¤¤¤¦¤è¤¦¤Ê¤³¤È¤Ç¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£

Re: c-index¤ÎÈæ³Ó·ë²Ì¤Î²ò¼á¤Ë´Ø¤·¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§Boz 2021/09/20(Mon) 14:40 No. 23148
ÀÄÌÚÀèÀ¸

Á᡹¤Î¤´ÊÖ¿®¡¢¿¼¤¯´¶¼Õ¿½¤·¾å¤²¤Þ¤¹¡£

¡ä·ç»Ãͽüµî¤Î¤»¤¤¤ÇʬÀÏÂоݿô¤¬°ã¤¦¾ì¹ç¤â´ØÏ¢¤¹¤ë¤«¤â¡£
º£²ó·ç»ÃͤϤʤ¯¡¢Ê¬ÀÏÂоݿô¤Ï¤¹¤Ù¤Æ¤Î¥â¥Ç¥ë¤ÇƱ¤¸¤Ç¤¹¡£Â¾¤Ë¹Í¤¨ÆÀ¤ëÍýͳ¤Ï¤´¤¶¤¤¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡©

¡ä°ìÈÌŪ¤Ë¤Ï¡¤»ÈÍѤ¹¤ëÊÑ¿ô¤Î¸Ä¿ô¤¬°ã¤¦¥â¥Ç¥ëƱ»Î¤ÎÈæ³Ó¤ÏÈù̯¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
¤³¤ì¤Ï¡¢ÊÑ¿ô¤Î¸Ä¿ô¤¬Â¿¤¤¥â¥Ç¥ë¤ÎÊý¤¬°ìÈÌŪ¤Ëͽ¬ǽ¤¬Îɤ¯¤Ê¤ê¤ä¤¹¤¤¡¢¤È¤¤¤¦°ÕÌ£¤Ç¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©

¡äc-index ¤Îº¹¤Î¸¡Äê¤Ï¤è¤¯ÃΤê¤Þ¤»¤ó¤¬
R¤Î¥Ñ¥Ã¥±¡¼¥¸¡ÊcompareC)¤Î¸µÏÀʸ9¥Ú¡¼¥¸Ìܤò³Îǧ¤·¤Þ¤·¤¿¤È¤³¤í¡¢
z score ¡á¡Êc-index¤Îº¹¡Ë¡à¡Êc-index¤Îº¹¤Îʬ»¶¤ÎÊ¿Êýº¬¡Ë¤ò»»½Ð¤·¡¢¤½¤ÎÃͤ¬Ê¬ÉÛ¤Î95%¿®Íê¶è´Ö³°¤Ë¤¢¤ì¤ÐÍ­°Õ¤È¤Ê¤ë¤è¤¦¤Ç¤¹¡£
¤Ç¤¹¤Î¤Ç¡¢Ê¬»Ò¤Ç¤¢¤ë¡Øc-index¤Îº¹¡Ù¤Ï»÷¤¿¤è¤¦¤ÊÃͤǤ⡢ʬÊì¤Ç¤¢¤ë¡Øc-index¤Îº¹¤Îʬ»¶¤ÎÊ¿Êýº¬¡Ù¤Ë°ã¤¤¤¬¤¢¤Ã¤¿¤¿¤á¡¢º£²ó2¤Ä¤ÎPÃͤ˰㤤¤¬½Ð¤¿¤ÈͽÁÛ¤·¤Æ¤¤¤Þ¤¹¡£

¸µÏÀʸ¡§
https://www.ncbi.nlm.nih.gov/pmc/articles/PMC4314453/pdf/nihms643928.pdf


¦ÖÆó¾è¸¡Äê¤Î·ë²Ì¤ÎÀâÌÀË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§À¶¿å 2021/09/20(Mon) 00:05 No. 23143
¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£Î㤨¤Ð¡¢A¤È¤¤¤¦Å¾µ¢¤Ë¤Ä¤¤¤Æ¡¢¤¤¤¯¤Ä¤«¤Î¹àÌܤ¬¤¢¤Ã¤¿¾ì¹ç¤Ë¡¢¦ÖÆó¾è¸¡Äê¤ÇÍ­°Õ¤ÈÁªÂò¤µ¤ì¤¿°ø»Ò1¤¬¤¢¤Ã¤¿¤È¤·¤Þ¤¹¡£
¤½¤Î¾ì¹ç¤Ë¡¢Å¾µ¢£Á¤È°ø»Ò£±¤¬´ØÏ¢¤¬¤¢¤Ã¤¿¡¢¤È¤¤¤¦½ñ¤­Êý¤ò¤·¤Æ¤¤¤ë¿Í¤¬¤¤¤Þ¤·¤¿¡£´ØÏ¢¤È¤¤¤¦¤Î¤Ï¤¢¤¤¤Þ¤¤¤Ç¡¢Èò¤±¤¿¤Û¤¦¤¬Îɤ¤¤È½¬¤Ã¤¿µ­²±¤¬¤¢¤ê¤Þ¤¹¤¬¡¢½Ðŵ¤¬¤Ï¤Ã¤­¤ê¤·¤Þ¤»¤ó¡£Î㤨¤ÐϢ³ÊÑ¿ôÆ°»ì¤Ç¤¢¤ì¤Ð¡¢Áê´Ø·¸¿ô¤òµá¤á¤Æ¡¢¡ÖÁê´Ø¤¬¤¢¤ë¡×¤È½Ò¤Ù¤é¤ì¤ë¤È»×¤¤¤Þ¤¹¤¬¡¢¤³¤Î¤è¤¦¤Ê¾ì¹ç¤Ë¤Ï¤É¤Î¤è¤¦¤Ëɽµ­¤¹¤ë¤Ù¤­¤Ç¤·¤ç¤¦¤«¡£

¤½¤â¤½¤â¹àÌܤ¬Ê£¿ô¸Ä¤¢¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢Ì¾µÁ¥í¥¸¥¹¥Æ¥£¥Ã¥¯Ê¬ÀϤò¤¹¤ë¤Ù¤­¤Ç¤Ï¤Ê¤¤¤«¤È¤¤¤¦µ¤¤¬¤·¤Æ¤­¤Þ¤·¤¿¡£
¤ªË»¤·¤¤¤È¤³¤í¶²½Ì¤Ç¤¹¡£²¿Â´¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

Re: ¦ÖÆó¾è¸¡Äê¤Î·ë²Ì¤ÎÀâÌÀË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§aoki 2021/09/20(Mon) 12:51 No. 23145
·ëÏÀ¤ß¤¿¤¤¤Ê¤â¤Î

±Ñ¸ì¥Ú¡¼¥¸
¥¯¥í¥¹½¸·×ɽ¥ì¥Ù¥ë¤Ç¤Ï relationship, Ϣ³ÊÑ¿ô¤Ç¤Ï correlation
ÆüËܸì¥Ú¡¼¥¸
¥¯¥í¥¹½¸·×ɽ¥ì¥Ù¥ë¤Ç¤ÏÏ¢´Ø, Ϣ³ÊÑ¿ô¤Ç¤ÏÁê´Ø
Ï¢´Ø¤È¤¤¤¦ÍѸì¤Ï¼ã´³¸Å¤¯¤µ¤¤´¶¤¸¤¬¤¹¤ë¤â¤Î¤Î¡¤´ØÏ¢¤è¤ê¤ÏÀìÌçÍѸì¤Ã¤Ý¤¤

Ï¢´Ø¤Ï¡¤Àþ·ÁÁê´Ø¡¤¶ÊÀþÁê´Ø¤â´Þ¤á¡¤¤¢¤é¤æ¤ë¡Ö´ØÏ¢À­¡×¤ò»Ø¤¹¤È»×¤¤¤Þ¤¹

°Ê²¼¡¤»²¹Í

¥¯¥í¥¹½¸·×ɽ¥ì¥Ù¥ë¤Ç¤Ï relationship, Ϣ³ÊÑ¿ô¤Ç¤Ï correlation
https://bookdown.org/josiesmith/qrmbook/association-of-variables.html
https://www.displayr.com/what-is-a-crosstab/

relation, relationship
https://www.questionpro.com/cross-tabulation.html
https://humansofdata.atlan.com/2016/01/cross-tabulation-how-why/
https://www.qualtrics.com/experience-management/research/cross-tabulation/

¥¿¥¤¥È¥ë¤Ç¤Ïcorrelation, ËÜʸÃæ¤Ç¤Ï relatonship
https://www.surveycake.com/en/featureinfo?f=cross-tabulation

°Ê²¼¤Î¤è¤¦¤Êµ­½Ò¤¬ÂçÀª

A crosstab is a table showing the relationship between two or more variables. Where the table only shows the relationship between two categorical variables, a crosstab is also known as a contingency table.

In this example, the two variables can both be viewed as being ordered. Consequently, we can potentially describe the patterns as being positive or negative correlations (negative in the table shown). However, where both variables are not ordered, we can simply refer to the strength of the correlation without discussing its direction (i.e., whether it is positive or negative).

Ï¢´Ø¡¡association °À­´Ö¤ËÁê¸ß´Ø·¸¤¬Â¸ºß¤¹¤ë¤³¤È¤òɽ¤¹¸ÀÍÕ¡£´ØÏ¢¤È¤¤¤¦¸ÀÍÕ¤âƱ¤¸°ÕÌ£¤Ç»È¤ï¤ì¤ë¡£
Ï¢´Øɽ contingency table
°ø²Ì´Ø·¸¤Ç¤Ê¤¯¡¤Ï¢´Ø(association)´Ø·¸¤È¤·¤Æ¤È¤é¤¨¤ë¤³¤È¤¬Å¬ÀÚ
Ï¢´Ø´Ø·¸¤Î¾ì¹ç¤Ë¤Ï¹Ô¥Ñ¡¼¥»¥ó¥È¡¤Îó¥Ñ¡¼¥»¥ó¥È¤ÎξÊý¤Ç²ò¼á¤Ç¤­¤ë
¥Õ¥¡¥¤·¸¿ô¤Ï¡¤2¸Ä¤Î¼ÁŪÊÑ¿ô¤ÎÏ¢´Ø(Áê´Ø)¤Î¶¯¤µ¤ò¿ôÃͲ½¤·¤¿»Øɸ¤Ç¤¢¤ë
Éé¤ÎÏ¢´Ø¡Ê´ØÏ¢¡Ë¡¤Àµ¤ÎÏ¢´Ø¡Ê´ØÏ¢¡Ë
¶¯¤¤Ï¢´Ø ¢ª ´ØÏ¢À­¤¬¤¢¤ë¡¡¼å¤¤Ï¢´Ø ¢ª ´ØÏ¢À­¤¬¤Ê¤¤

https://www.ibm.com/docs/ja/spss-statistics/23.0.0?topic=option-crosstabs
¥¯¥í¥¹½¸·×ɽ¤ÎÀâÌÀ¤Ë¡ÖÁê´Ø¡×¤È¤¤¤¦ÍѸì¤Ï½Ð¤Æ¤³¤Ê¤¤¡£¡ÖÏ¢´Ø¡×¤¬»È¤ï¤ì¤Æ¤¤¤ë¡£

> ¤½¤â¤½¤â¹àÌܤ¬Ê£¿ô¸Ä¤¢¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢Ì¾µÁ¥í¥¸¥¹¥Æ¥£¥Ã¥¯Ê¬ÀϤò¤¹¤ë¤Ù¤­¤Ç¤Ï¤Ê¤¤¤«¤È¤¤¤¦µ¤¤¬¤·¤Æ¤­¤Þ¤·¤¿

¤½¤ÎÄ̤ê¤Ç¤¹¡£
¥¯¥í¥¹½¸·×ɽ¤Î·ë²Ì¤«¤éÊÑ¿ô¤òÁªÂò¤·¤¿¤ê¤È¤¤¤¦¤Î¤Ï¸í¤ê¤Ç¤¹¤¬¡¤
·ë²Ì¤Î²ò¼á¤ò¤¹¤ëÃʳ¬¤Ç¡¤¥¯¥í¥¹½¸·×ɽ¤Ç¤Î½ê¸«¤¬Ìò¤ËΩ¤Ä¤³¤È¤Ï¤¢¤ê¤Þ¤¹¡£

Re: ¦ÖÆó¾è¸¡Äê¤Î·ë²Ì¤ÎÀâÌÀË¡¤Ë¤Ä¤¤¤Æ
¡¡¡¡Åê¹Æ¼Ô¡§À¶¿å 2021/09/20(Mon) 14:33 No. 23147
ÀÄÌÚÀèÀ¸

¡¡Áᮤ´Ï¢Íí¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£Èó¾ï¤ËÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿¡£±Ñ¸ìÏÀʸ¤Ç¤Ïrelationship¤ò»È¤Ã¤Æ¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
¡¡º£¸å¤È¤â¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

¡¡À¶¿åÇÒ

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