£ÒÈ÷˺Ͽ - µ»ö°ìÍ÷
- Åê¹Æ¼Ô¡§ ¤ß¤å
- ¥«¥Æ¥´¥ê¡§ ¤Ê¤·
- Í¥ÀèÅÙ¡§ ÉáÄÌ
- ¾õÂÖ¡§ ´°Î»
- Æü»þ¡§ 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)
- ÉáÊ×·¿¥¯¥ê¥®¥ó¥°¤È¤¤¤Ã¤·¤ç¡¥
- ÉáÄ̤β󵢤ò¹Ô¤Ã¤¿¸å¤Î»Äº¹¤ËÂФ·¤Æ¡¢Ä̾﷿¥¯¥ê¥®¥ó¥°¤òŬÍѤ·¤Æ¤¤¤ë¡¥
- ÉáÊ×·¿¥¯¥ê¥®¥ó¥°¤Ï¡¢¶õ´Ö½¾Â°À¤ò¹Íθ¤·¤¿¶¦Ê¬»¶¹ÔÎó¤ò¹Í¤¨¤Æ²óµ¢·¸¿ô¤ò»»½Ð¤·¤Æ¤¤¤ë¤ï¤±¤Ç¤Ï¤Ê¤¤¡¥
£ÒÈ÷˺Ͽ /¾õÂÖ¶õ´Ö¥â¥Ç¥ê¥ó¥°/donlp2/¤½¤Î¾¤Î¥á¥â