²é¿´: 1999  |  »Ø¸´: 4
±¾Ìû²úÉú 1 ¸ö ¼ÆËãÇ¿Ìû £¬µã»÷ÕâÀï½øÐв鿴
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

songbin7957

ľ³æ (СÓÐÃûÆø)

[½»Á÷] ¡¾ÇóÖú¡¿ÖðÒ»·¨½»²æÑéÖ¤Ïà¹ØÏµÊý ÒÑÓÐ1È˲ÎÓë

¸÷λ´óÏÀ£¬ÎÒÔٻعéµÃµ½²ÎÊý·½³ÌÖ®ºó£¬ÎªÑéÖ¤·½³ÌµÄÎȶ¨ÐÔ£¬ÐèÒªÇóһϽ»²æÑéÖ¤Ïà¹ØÏµÊý£¬¸ÃÔõôÇó£¬Çë°ï°ï棬ÏÈллÁË
»Ø¸´´ËÂ¥
»¥Ïàѧϰ£¬¹²Í¬½ø²½
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

vltava

ľ³æ (СÓÐÃûÆø)

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÒýÓûØÌû:
3Â¥: Originally posted by snoopyzhao at 2010-11-05 20:09:14:
ÌùÒ»¸öÎÒÓà R ÓïÑÔдµÄ LOO-LGO CV µÄ³ÌÐò£¬Ó¦¸ÃÄܹ»¿´µÃ¶®£¬ÖÁÓÚÆäËüÓïÑÔÈçºÎʵÏÖ£¬ÎÒ¾ÍÎÞÄÜΪÁ¦ÁË¡­¡­

[code]
lmcv <- function(obj, ng = NULL, random = FALSE) {
#
# The Leave-One-Out (LOO) and/ ...

Â¥Ö÷»ØµÄÕâ¸öÌûÊÇ˵ËãRMSECºÍRMSECVµÄÂð£¿
ÈËÉú±¾À´¾ÍÓкܶàÊÂÊÇͽÀÍÎÞ¹¦µÄ
5Â¥2011-11-07 19:29:43
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 5 ¸ö»Ø´ð

djl2008d

ľ³æ (ÎÄ̳¾«Ó¢)

¡ï
luoqiquan(½ð±Ò+1):thank you 2010-11-05 20:30:15
ÓÃÒ»¸öÈí¼þ£ºTsar¿ÉÒÔ¼ÆËã³öÀ´£¬ÎÒÒ²ÊÇһֱûÕÒµ½Õâ¸öÈí¼þ£¬ÎÊÁ˺öàÈ˶¼Ã»Îʵ½£¬ºóÀ´¾Í²»×öÁË
Ò»¶¨Òª¼á³Ö£¬¼á³Ö¾ÍÊÇʤÀû
2Â¥2010-11-05 10:26:04
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

¡ï ¡ï ¡ï ¡ï ¡ï
luoqiquan(½ð±Ò+5, ¼ÆËãÇ¿Ìû+1):thank you very much 2010-11-05 20:30:43
ÌùÒ»¸öÎÒÓà R ÓïÑÔдµÄ LOO-LGO CV µÄ³ÌÐò£¬Ó¦¸ÃÄܹ»¿´µÃ¶®£¬ÖÁÓÚÆäËüÓïÑÔÈçºÎʵÏÖ£¬ÎÒ¾ÍÎÞÄÜΪÁ¦ÁË¡­¡­
CODE:
lmcv <- function(obj, ng = NULL, random = FALSE) {
#
# The Leave-One-Out (LOO) and/or Leave-Group-Out (LGO) Cross-Validation in R for (Multiple) Linear Regression.
#
# Input:
#   obj: the model of MLR
#   ng: number of group, if missing, do LOO
#   random: logical, if TRUE, do random CV
#
# Output:
#   q.squared: cross-validation relation coefficient.
#   SDEP: Standard Deviation of Error of Predictions
#   newsq: variance in Y explained only for LOO CV
#
# Usage:
#   loo <- cv.lm(obj)
#   lgo <- cv.lm(obj, ng = 5)
#
    data <- data.frame(y = obj$model[,1], x = obj$model[, -1])
    col.names <- colnames(data)
    N <- nrow(data)
    if (random == TRUE) data <- data[sample(1:N),]
    if (missing(ng)) ng <- N # LOO CV
    ytest <- numeric(N)
    ypred <- numeric(N)
    newrsq <- numeric(ng)
    g <- N %/% ng
    for (i in 1:ng) {
        if (g == 1) {
            index <- i
        }
        else {
            index <- c(i, ng * seq(1, (g - 1)) + i)
            if (N %% ng != 0 & i <= N %% ng) index <- c(index, (g * ng + i))
        }
        ytest[index] <- data[index,1]
        newtrain <- data[-index, ]
        xtest <- data.frame(x = data[index, -1])
        colnames(xtest) <- col.names[-1]
        newfm <- lm(y ~., data = newtrain)
        newrsq[i] <- summary(newfm)$r.squared
        ypred[index] <- predict(newfm, xtest)
    }
    q.squared <- 1 - sum((ytest - ypred)^2) / sum((ytest - mean(ytest))^2)
    SDEP <- sqrt(sum((ytest - ypred)^2) / N)
    return(list(q.squared = q.squared, SDEP = SDEP, newrsq = newrsq))
}

3Â¥2010-11-05 20:09:14
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

Õâ¸öÌù×ӺܾÃÒÔǰÎÒºÃÏ󻨏´¹ý£¬²»ÊÇÔÚÕâÀï¡­¡­
4Â¥2010-11-05 20:11:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 333Çóµ÷¼Á +3 ÎÄ˼¿Í 2026-03-16 7/350 2026-03-16 18:21 by ÎÄ˼¿Í
[¿¼ÑÐ] 326Çóµ÷¼Á +4 ŵ±´¶û»¯Ñ§½±êéê 2026-03-15 7/350 2026-03-16 17:11 by ŵ±´¶û»¯Ñ§½±êéê
[¿¼ÑÐ] 304Çóµ÷¼Á +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by ÎҵĴ¬Îҵĺ£
[¿¼ÑÐ] 327Çóµ÷¼Á +6 ʰ¹âÈÎȾ 2026-03-15 11/550 2026-03-15 22:47 by ʰ¹âÈÎȾ
[¿¼ÑÐ] 0856ר˶279Çóµ÷¼Á +5 ¼ÓÓͼÓÓÍ£¡? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[¿¼ÑÐ] 288Çóµ÷¼Á +4 Ææµã0314 2026-03-14 4/200 2026-03-14 23:04 by JourneyLucky
[¿¼ÑÐ] 328Çóµ÷¼Á +3 5201314Lsy£¡ 2026-03-13 6/300 2026-03-14 15:31 by hyswxzs
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¹¤´ó²ÄÁÏ324·ÖÇóµ÷¼Á +5 ãÆÐñ¶« 2026-03-14 5/250 2026-03-14 14:53 by ľ¹Ï¸à
[¿¼ÑÐ] 271Çóµ÷¼Á +10 ÉúÈçÏÄ»¨¡­ 2026-03-11 10/500 2026-03-14 00:35 by Âô±¨Ô±Ð¡Óê
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤£¨0856£©304ÇóBÇøµ÷¼Á +6 Çñgl 2026-03-12 7/350 2026-03-13 23:24 by Çñgl
[¿¼ÑÐ] 341Çóµ÷¼Á +4 ·¬ÇÑÍ·--- 2026-03-10 4/200 2026-03-13 23:12 by JourneyLucky
[¿¼ÑÐ] Çóµ÷¼Á£¨²ÄÁÏÓ뻯¹¤327£© +4 °®³ÔÏã²ËÀ² 2026-03-11 4/200 2026-03-13 22:11 by JourneyLucky
[¿¼ÑÐ] ÍÁľµÚÒ»Ö¾Ô¸276Çóµ÷¼Á£¬¿ÆÑкͼ¼ÄÜÊ®·Ö·á¸»£¬ÇóÐÂÐË·½ÏòµÄµ¼Ê¦ÊÕÁô +3 ÍÁľСÌì²Å 2026-03-12 3/150 2026-03-13 15:01 by JourneyLucky
[ÂÛÎÄͶ¸å] Ͷ¸åÎÊÌâ 5+4 Ðǹâ²ÓÀÃxt 2026-03-12 6/300 2026-03-13 14:17 by god_tian
[¿¼ÑÐ] 289Çóµ÷¼Á +3 ÀîÕþÓ¨ 2026-03-12 3/150 2026-03-13 11:02 by Çóµ÷¼Ázz
[¿¼ÑÐ] 283Çóµ÷¼Á£¬²ÄÁÏ¡¢»¯¹¤½Ô¿É +8 ËÕ´òË®7777 2026-03-11 10/500 2026-03-13 09:06 by Linda Hu
[¿¼ÑÐ] Ñо¿ÉúÕÐÉú +3 Ð캣ÌÎ11 2026-03-10 7/350 2026-03-12 14:26 by Ð캣ÌÎ11
[¿¼ÑÐ] 279Çóµ÷¼Á +3 Īxiao 2026-03-10 4/200 2026-03-11 08:06 by Õ¶»êµÎÍÃ×Ó£¡
[¿¼ÑÐ] ÊÕµ÷¼Á +7 µ÷¼ÁµÄ¿¼ÑÐѧÉú 2026-03-10 7/350 2026-03-10 17:57 by Âó²èÌÀÔ²
[˶²©¼ÒÔ°] ľ³æºÃÏñ²»ÈÈÄÖÁË£¬ÊDz»ÊÇ£¿ +4 Æ«ÕñƬ 2026-03-10 4/200 2026-03-10 09:51 by longwave
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û