版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

本帖產(chǎn)生 1 個計算強(qiáng)帖，點擊這里進(jìn)行查看

songbin7957

木蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 2281.1
散金: 12
帖子: 205
在線: 61.7小時
蟲號: 643115
注冊: 2008-11-01
性別: GG
專業(yè): 分析化學(xué)

[交流] 【求助】逐一法交叉驗證相關(guān)系數(shù) 已有1人參與

各位大俠，我再回歸得到參數(shù)方程之后，為驗證方程的穩(wěn)定性，需要求一下交叉驗證相關(guān)系數(shù)，該怎么求，請幫幫忙，先謝謝了

回復(fù)此樓

» 猜你喜歡

2026年循環(huán)經(jīng)濟(jì)功能材料國際會議（ICFMCE 2026）已經(jīng)有0人回復(fù)
2026年第五屆電氣、電子與信息工程國際會議（ISEEIE 2026）已經(jīng)有0人回復(fù)
物理學(xué)I論文潤色/翻譯怎么收費? 已經(jīng)有100人回復(fù)
哈爾濱理工大學(xué)物理系招收物理學(xué)考研調(diào)劑已經(jīng)有5人回復(fù)
0702一志愿吉大B區(qū)求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有0人回復(fù)
0702一志愿吉大B區(qū)求調(diào)劑有論文已經(jīng)有0人回復(fù)
請問還有沒有用Latex寫文章的小伙伴們？已經(jīng)有0人回復(fù)
光學(xué)工程學(xué)碩調(diào)劑信息已經(jīng)有27人回復(fù)
歡迎加入課題組已經(jīng)有0人回復(fù)
散金幣，求好運，祝面上順利！已經(jīng)有43人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

留一法交叉驗證求助已經(jīng)有7人回復(fù)
交叉驗證相關(guān)系數(shù)q方和相關(guān)系數(shù)R方已經(jīng)有14人回復(fù)
【求助】交叉驗證相關(guān)系數(shù) 已經(jīng)有5人回復(fù)
【求助】什么軟件可以實現(xiàn)Leave-one-out交叉驗證計算？【已完結(jié)】已經(jīng)有3人回復(fù)
【求助】QSAR模型中交叉驗證系數(shù)（q2）怎么獲得？已經(jīng)有19人回復(fù)

互相學(xué)習(xí)，共同進(jìn)步

1樓 2010-09-17 13:48:25

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

djl2008d

木蟲 (文壇精英)

應(yīng)助: 67 (初中生)
金幣: 161
散金: 10556
紅花: 31
沙發(fā): 1
帖子: 11890
在線: 466.9小時
蟲號: 422060
注冊: 2007-07-15
性別: GG
專業(yè): 環(huán)境化工

★
luoqiquan(金幣+1):thank you 2010-11-05 20:30:15

用一個軟件：Tsar可以計算出來，我也是一直沒找到這個軟件，問了好多人都沒問到，后來就不做了

贊一下(1人)

回復(fù)此樓

一定要堅持，堅持就是勝利

2樓2010-11-05 10:26:04

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

計算強(qiáng)帖: 1
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★ ★ ★ ★ ★
luoqiquan(金幣+5, 計算強(qiáng)帖+1):thank you very much 2010-11-05 20:30:43

貼一個我用 R 語言寫的 LOO-LGO CV 的程序，應(yīng)該能夠看得懂，至于其它語言如何實現(xiàn)，我就無能為力了……

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))

}

贊一下(2人)

回復(fù)此樓

3樓2010-11-05 20:09:14

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

計算強(qiáng)帖: 1
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

這個貼子很久以前我好象回復(fù)過，不是在這里……

贊一下

回復(fù)此樓

4樓2010-11-05 20:11:01

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

vltava

木蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 2067.9
紅花: 1
帖子: 257
在線: 140.8小時
蟲號: 1138748
注冊: 2010-11-04
性別: GG
專業(yè): 合成藥物化學(xué)

★
小木蟲(金幣+0.5):給個紅包，謝謝回帖

引用回帖:

3樓: Originally posted by snoopyzhao at 2010-11-05 20:09:14:
貼一個我用 R 語言寫的 LOO-LGO CV 的程序，應(yīng)該能夠看得懂，至于其它語言如何實現(xiàn)，我就無能為力了……

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

樓主回的這個帖是說算RMSEC和RMSECV的嗎？

贊一下(1人)

回復(fù)此樓

人生本來就有很多事是徒勞無功的

5樓2011-11-07 19:29:43

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 songbin7957 的主題更新

返回列表

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 281求調(diào)劑（0805） +3	煙汐憶海 2026-03-16	9/450	2026-03-18 07:23 by 煙汐憶海
[考研] 070300化學(xué)319求調(diào)劑 +4	錦鯉0909 2026-03-17	4/200	2026-03-17 18:21 by 重科小霸王
[考博] 26申博 +4	八旬速覽 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 278求調(diào)劑 +3	Yy7400 2026-03-13	3/150	2026-03-17 08:24 by laoshidan
[考研] 0703化學(xué)調(diào)劑，求各位老師收留 +8	秋有木北 2026-03-14	8/400	2026-03-16 15:21 by 哦哦123
[考研] 材料與化工一志愿南昌大學(xué)327求調(diào)劑推薦 +7	Ncdx123456 2026-03-13	8/400	2026-03-16 12:15 by karry wen
[考研] 0703化學(xué)調(diào)劑 290分有科研經(jīng)歷，論文在投 +7	膩膩gk 2026-03-14	7/350	2026-03-16 10:12 by houyaoxu
[考研] 求老師收留調(diào)劑 +4	jiang姜66 2026-03-14	5/250	2026-03-15 20:11 by Winj1e
[考研] 機(jī)械專碩調(diào)劑 +3	笨笨兔子 2026-03-12	3/150	2026-03-15 20:02 by 栗子粥?
[考研] 289求調(diào)劑 +4	這么名字咋樣 2026-03-14	6/300	2026-03-14 18:58 by userper
[考研] 297一志愿上交085600求調(diào)劑 +5	指尖八千里 2026-03-14	5/250	2026-03-14 17:26 by a不易
[考研] 265求調(diào)劑 +4	威化餅07 2026-03-12	4/200	2026-03-14 17:23 by userper
[考研] 復(fù)試調(diào)劑 +4	z1z2z3879 2026-03-14	5/250	2026-03-14 16:30 by JourneyLucky
[考研] 297求調(diào)劑 +4	學(xué)海漂泊 2026-03-13	4/200	2026-03-14 11:51 by 熱情沙漠
[考研] 學(xué)碩285求調(diào)劑 +13	Wisjxn 2026-03-12	46/2300	2026-03-14 10:33 by JourneyLucky
[考研] 308求調(diào)劑 +5	是Lupa啊 2026-03-11	5/250	2026-03-13 22:13 by JourneyLucky
[考研] 材料工程調(diào)劑 +4	咪咪空空 2026-03-11	4/200	2026-03-13 19:57 by JourneyLucky
[考研] 工科278分求調(diào)劑 +5	周慢熱啊 2026-03-12	7/350	2026-03-13 15:49 by JourneyLucky
[考研] 289求調(diào)劑 +3	李政瑩 2026-03-12	3/150	2026-03-13 11:02 by 求調(diào)劑zz
[考研] 321求調(diào)劑（食品/專碩） +3	xc321 2026-03-12	6/300	2026-03-13 08:45 by xc321

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

songbin7957

[交流] 【求助】逐一法交叉驗證相關(guān)系數(shù) 已有1人參與

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

djl2008d

snoopyzhao

snoopyzhao

vltava

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

» 本主題相關(guān)價值貼推薦，對您同樣有幫助: