版块导航
正在加载中...
客户端APP下载
论文辅导
调剂小程序
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(6483)
>
导师招生
(1295)
>
考研
(1147)
>
虫友互识
(710)
>
文献求助
(482)
>
休闲灌水
(228)
>
考博
(174)
>
论文投稿
(152)
>
硕博家园
(145)
>
基金申请
(124)
>
博后之家
(91)
>
公派出国
(90)
>
招聘信息布告栏
(73)
>
教师之家
(65)
>
论文道贺祈福
(61)
>
SciFinder/Reaxys
(44)
小木虫论坛-学术科研互动平台
»
计算模拟区
»
计算模拟
»
【求助】逐一法交叉验证相关系数
5
1/1
返回列表
查看: 1993 | 回复: 4
只看楼主
@他人
存档
新回复提醒
(忽略)
收藏
在APP中查看
本帖产生 1 个 计算强帖 ,点击这里进行查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖
songbin7957
木虫
(小有名气)
应助: 0
(幼儿园)
金币: 2281.1
散金: 12
帖子: 205
在线: 61.7小时
虫号: 643115
注册: 2008-11-01
性别: GG
专业: 分析化学
[交流]
【求助】逐一法交叉验证相关系数
已有1人参与
各位大侠,我再回归得到参数方程之后,为验证方程的稳定性,需要求一下交叉验证相关系数,该怎么求,请帮帮忙,先谢谢了
回复此楼
» 猜你喜欢
计算三阶力常数用thirdorder扩胞时参数如何选择?临近原子数怎么取值
已经有7人回复
2026年循环经济功能材料国际会议(ICFMCE 2026)
已经有0人回复
物理学I论文润色/翻译怎么收费?
已经有248人回复
2026年第五届电气、电子与信息工程国际会议(ISEEIE 2026)
已经有0人回复
哈尔滨理工大学物理系招收物理学考研调剂
已经有5人回复
0702一志愿吉大B区求调剂
已经有5人回复
求调剂
已经有0人回复
0702一志愿吉大B区求调剂有论文
已经有0人回复
请问还有没有用Latex写文章的小伙伴们?
已经有0人回复
光学工程学硕调剂信息
已经有6人回复
高级回复
» 本主题相关价值贴推荐,对您同样有帮助:
留一法交叉验证求助
已经有7人回复
交叉验证相关系数q方和相关系数R方
已经有14人回复
【求助】交叉验证相关系数
已经有5人回复
【求助】什么软件可以实现Leave-one-out交叉验证计算?【已完结】
已经有3人回复
【求助】QSAR模型中交叉验证系数(q2)怎么获得?
已经有19人回复
互相学习,共同进步
1楼
2010-09-17 13:48:25
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
snoopyzhao
至尊木虫
(职业作家)
计算强帖: 1
应助: 157
(高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学
这个贴子很久以前我好象回复过,不是在这里……
赞
一下
回复此楼
高级回复
4楼
2010-11-05 20:11:01
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
查看全部 5 个回答
djl2008d
木虫
(文坛精英)
应助: 67
(初中生)
金币: 161
散金: 10556
红花: 31
沙发: 1
帖子: 11890
在线: 466.9小时
虫号: 422060
注册: 2007-07-15
性别: GG
专业: 环境化工
★
luoqiquan(金币+1):thank you 2010-11-05 20:30:15
用一个软件:Tsar可以计算出来,我也是一直没找到这个软件,问了好多人都没问到,后来就不做了
赞
一下
(1人)
回复此楼
一定要坚持,坚持就是胜利
2楼
2010-11-05 10:26:04
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
snoopyzhao
至尊木虫
(职业作家)
计算强帖: 1
应助: 157
(高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学
★ ★ ★ ★ ★
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))
}
赞
一下
(2人)
回复此楼
3楼
2010-11-05 20:09:14
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
vltava
木虫
(小有名气)
应助: 0
(幼儿园)
金币: 2067.9
红花: 1
帖子: 257
在线: 140.8小时
虫号: 1138748
注册: 2010-11-04
性别: GG
专业: 合成药物化学
★
小木虫(金币
+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的吗?
赞
一下
(1人)
回复此楼
人生本来就有很多事是徒劳无功的
5楼
2011-11-07 19:29:43
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
查看全部 5 个回答
如果回帖内容含有宣传信息,请如实选中。否则帐号将被全论坛禁言
普通表情
龙
兔
虎
猫
高级回复
(可上传附件)
百度网盘
|
360云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
最具人气热帖推荐
[查看全部]
作者
回/看
最后发表
[
考研
]
药学383 求调剂
+3
药学chy
2026-03-15
4/200
2026-03-16 20:51
by
元子^0^
[
考研
]
机械专硕325,寻找调剂院校
+3
y9999
2026-03-15
5/250
2026-03-16 19:58
by
y9999
[
考研
]
梁成伟老师课题组欢迎你的加入
+8
一鸭鸭哟
2026-03-14
9/450
2026-03-16 17:35
by
沐霖12138
[
考研
]
0703化学336分求调剂
+3
zbzihdhd
2026-03-15
3/150
2026-03-16 16:44
by
我的船我的海
[
考研
]
085600调剂
+5
漾漾123sun
2026-03-12
6/300
2026-03-16 15:58
by
漾漾123sun
[
考研
]
290求调剂
+5
孔志浩
2026-03-12
10/500
2026-03-16 09:01
by
余晖&
[
考研
]
288求调剂
+4
奇点0314
2026-03-14
4/200
2026-03-14 23:04
by
JourneyLucky
[
考研
]
297求调剂
+4
学海漂泊
2026-03-13
4/200
2026-03-14 11:51
by
热情沙漠
[
考研
]
学硕285求调剂
+13
Wisjxn
2026-03-12
46/2300
2026-03-14 10:33
by
JourneyLucky
[
考研
]
312求调剂
+6
陌宸希
2026-03-10
6/300
2026-03-14 00:40
by
JourneyLucky
[
考研
]
0805,333求调剂
+3
112253525
2026-03-10
3/150
2026-03-13 23:42
by
JourneyLucky
[
考研
]
【考研调剂求收留】
+3
Ceciilia
2026-03-11
3/150
2026-03-13 20:18
by
JourneyLucky
[
考研
]
293求调剂
+3
世界首富
2026-03-11
3/150
2026-03-13 16:27
by
JourneyLucky
[
考研
]
求b区学校调剂
+3
周56
2026-03-11
3/150
2026-03-13 16:20
by
JourneyLucky
[
考研
]
302求调剂
+6
负心者当诛
2026-03-11
6/300
2026-03-13 16:11
by
JourneyLucky
[
考研
]
工科材料085601 279求调剂
+8
困于星晨
2026-03-12
10/500
2026-03-13 15:42
by
ms629
[
考研
]
土木第一志愿276求调剂,科研和技能十分丰富,求新兴方向的导师收留
+3
土木小天才
2026-03-12
3/150
2026-03-13 15:01
by
JourneyLucky
[
考研
]
0856化学工程280分求调剂
+4
shenzxsn
2026-03-11
4/200
2026-03-13 11:55
by
ymwdoctor
[
考研
]
081200-11408-276学硕求调剂
+3
崔wj
2026-03-12
4/200
2026-03-12 19:33
by
求调剂zz
[
考研
]
收调剂
+7
调剂的考研学生
2026-03-10
7/350
2026-03-10 17:57
by
麦茶汤圆
信息提示
关闭
请填处理意见
关闭
确定