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

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

24小時(shí)熱門版塊排行榜

返回列表

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

songbin7957

木蟲 (小有名氣)

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

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

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

回復(fù)此樓

» 猜你喜歡

2026年循環(huán)經(jīng)濟(jì)功能材料國際會(huì)議（ICFMCE 2026）已經(jīng)有0人回復(fù)
2026年第五屆電氣、電子與信息工程國際會(huì)議（ISEEIE 2026）已經(jīng)有0人回復(fù)
物理學(xué)I論文潤色/翻譯怎么收費(fèi)? 已經(jīng)有110人回復(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ù)
請(qǐng)問還有沒有用Latex寫文章的小伙伴們？已經(jīng)有0人回復(fù)
光學(xué)工程學(xué)碩調(diào)劑信息已經(jīng)有28人回復(fù)
歡迎加入課題組已經(jīng)有0人回復(fù)
散金幣，求好運(yùn)，祝面上順利！已經(jīng)有48人回復(fù)

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

留一法交叉驗(yàn)證求助已經(jīng)有7人回復(fù)
交叉驗(yàn)證相關(guān)系數(shù)q方和相關(guān)系數(shù)R方已經(jīng)有14人回復(fù)
【求助】交叉驗(yàn)證相關(guān)系數(shù) 已經(jīng)有5人回復(fù)
【求助】什么軟件可以實(shí)現(xiàn)Leave-one-out交叉驗(yàn)證計(jì)算？【已完結(jié)】已經(jīng)有3人回復(fù)
【求助】QSAR模型中交叉驗(yàn)證系數(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小時(shí)
蟲號(hào): 422060
注冊(cè): 2007-07-15
性別: GG
專業(yè): 環(huán)境化工

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

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

贊一下(1人)

回復(fù)此樓

一定要堅(jiān)持，堅(jiān)持就是勝利

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

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

snoopyzhao

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

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

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

貼一個(gè)我用 R 語言寫的 LOO-LGO CV 的程序，應(yīng)該能夠看得懂，至于其它語言如何實(shí)現(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è)作家)

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

這個(gè)貼子很久以前我好象回復(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小時(shí)
蟲號(hào): 1138748
注冊(cè): 2010-11-04
性別: GG
專業(yè): 合成藥物化學(xué)

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

引用回帖:

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

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

樓主回的這個(gè)帖是說算RMSEC和RMSECV的嗎？

贊一下(1人)

回復(fù)此樓

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

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

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

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

返回列表

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

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

[考研] 化學(xué)工程321分求調(diào)劑 +15	大米飯！ 2026-03-15	18/900	2026-03-18 14:52 by haxia
[考研] 08工科 320總分求調(diào)劑 +5	梨花珞晚風(fēng) 2026-03-17	5/250	2026-03-18 14:49 by haxia
[考研] 0703化學(xué)調(diào)劑，六級(jí)已過，有科研經(jīng)歷 +10	曦熙兮 2026-03-15	10/500	2026-03-18 14:19 by 007_lilei
[考研] 288求調(diào)劑，一志愿華南理工大學(xué)071005 +4	ioodiiij 2026-03-17	4/200	2026-03-18 12:36 by Linda Hu
[考研] 293求調(diào)劑 +11	zjl的號(hào) 2026-03-16	16/800	2026-03-18 08:10 by zhukairuo
[考研] 材料與化工求調(diào)劑 +6	為學(xué)666 2026-03-16	6/300	2026-03-17 20:15 by peike
[考研] 277調(diào)劑 +5	自由煎餅果子 2026-03-16	6/300	2026-03-17 19:26 by 李leezz
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +4	張vvvv 2026-03-15	6/300	2026-03-17 17:15 by ruiyingmiao
[考研] 304求調(diào)劑 +5	素年祭語 2026-03-15	5/250	2026-03-16 17:00 by 我的船我的海
[考研] 277材料科學(xué)與工程080500求調(diào)劑 +3	自由煎餅果子 2026-03-16	3/150	2026-03-16 14:10 by 運(yùn)氣yunqi
[考博] 東華理工大學(xué)化材專業(yè)26屆碩士博士申請(qǐng) +6	zlingli 2026-03-13	6/300	2026-03-15 20:00 by ryzcf
[考研] 289求調(diào)劑 +4	這么名字咋樣 2026-03-14	6/300	2026-03-14 18:58 by userper
[考研] 復(fù)試調(diào)劑 +4	z1z2z3879 2026-03-14	5/250	2026-03-14 16:30 by JourneyLucky
[考研] 328求調(diào)劑 +3	5201314Lsy！ 2026-03-13	6/300	2026-03-14 15:31 by hyswxzs
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏
[考研] 330求調(diào)劑 +3	?醬給調(diào)劑跪了 2026-03-13	3/150	2026-03-14 10:13 by JourneyLucky
[考研] 0856材料與化工301求調(diào)劑 +5	奕束光 2026-03-13	5/250	2026-03-13 22:00 by 星空星月
[考研] 310求調(diào)劑 +3	【上上簽】 2026-03-11	3/150	2026-03-13 16:16 by JourneyLucky
[論文投稿] 投稿問題 5+4	星光燦爛xt 2026-03-12	6/300	2026-03-13 14:17 by god_tian
[考研] 290求調(diào)劑 +3	ADT 2026-03-13	3/150	2026-03-13 10:19 by peike

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

24小時(shí)熱門版塊排行榜

songbin7957

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

» 猜你喜歡

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

djl2008d

snoopyzhao

snoopyzhao

vltava

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

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