¥È¥Ã¥× º¹Ê¬ °ìÍ÷ ¥½¡¼¥¹ ¸¡º÷ ¥Ø¥ë¥× RSS ¥í¥°¥¤¥ó

BugTrack-£ÒÈ÷˺Ͽ/40

£ÒÈ÷˺Ͽ /¾õÂÖ¶õ´Ö¥â¥Ç¥ê¥ó¥°/donlp2/¤½¤Î¾¤Î¥á¥â

£ÒÈ÷˺Ͽ - µ­»ö°ìÍ÷

¶õ´ÖÅý·× ­£ - ¡Úgstat¡ÛÉáÊ×·¿¥¯¥ê¥®¥ó¥°

  • Åê¹Æ¼Ô¡§ ¤ß¤å
  • ¥«¥Æ¥´¥ê¡§ ¤Ê¤·
  • Í¥ÀèÅÙ¡§ ÉáÄÌ
  • ¾õÂÖ¡§ ´°Î»
  • Æü»þ¡§ 2009ǯ06·î30Æü 13»þ08ʬ33ÉÃ

ÆâÍÆ

  • ¶õ´ÖÅý·× ­£
  • ÉáÊ×·¿¥¯¥ê¥®¥ó¥°
    • ¤³¤¦¤¤¤¦¤Î¤òÉáÊ×·¿¤È¤¤¤¦¤Î¤«¤É¤¦¤Ê¤Î¤«¡¦¡¦¡¦

ÉáÊ×·¿¥¯¥ê¥®¥ó¥°

  • ¤Þ¤¢¡¢¥»¥ß¥Ð¥ê¥ª¥°¥é¥à¤òµá¤á¤Æ¤¤¤ë¤À¤±¤Ê¤ó¤À¤¬
x <- variogram(object=log(zinc)~elev+dist, locations=~x+y, data=meuse, cutoff=3000)
plot(x)

²óµ¢¤·¤¿»Äº¹¤Ç¡¢Ä̾﷿¥¯¥ê¥®¥ó¥°

  • ¤Þ¤¢¡¢¥»¥ß¥Ð¥ê¥ª¥°¥é¥à¤òµá¤á¤Æ¤¤¤ë¤À¤±¤Ê¤ó¤À¤¬
res_lm <- lm(log(zinc)~elev+dist, data=meuse)
meuse2 <- cbind(meuse, resid=residuals(res_lm))
x2 <- variogram(object=resid~1, locations=~x+y, data=meuse2, cutoff=3000)
plot(x2)
  • ÉáÊ×·¿¥¯¥ê¥®¥ó¥°¤È¤¤¤Ã¤·¤ç¡¥
  • ÉáÄ̤β󵢤ò¹Ô¤Ã¤¿¸å¤Î»Äº¹¤ËÂФ·¤Æ¡¢Ä̾﷿¥¯¥ê¥®¥ó¥°¤òŬÍѤ·¤Æ¤¤¤ë¡¥
    • ÉáÊ×·¿¥¯¥ê¥®¥ó¥°¤Ï¡¢¶õ´Ö½¾Â°À­¤ò¹Íθ¤·¤¿¶¦Ê¬»¶¹ÔÎó¤ò¹Í¤¨¤Æ²óµ¢·¸¿ô¤ò»»½Ð¤·¤Æ¤¤¤ë¤ï¤±¤Ç¤Ï¤Ê¤¤¡¥

NEXT

  • BugTrack-£ÒÈ÷˺Ͽ/41 ¡§ ¶õ´ÖÅý·× ­¤ - ¡Úgstat¡Û¥Ð¥ê¥ª¥°¥é¥à¤«¤éÆÃÄê¤Î°ÌÃ֤ˤª¤±¤ëÃͤò¿äÄꤹ¤ë