for(i in 1:1000)
{
k[[i]] <- nn2()
}
newdata=c() #1
for(i in 1:1000)
{
#方法一:三次样条法
library(splines)
m1 <- lm(h~bs(a,df=3),data=k[[i]])
#预测百分位数值
new <- data.frame(a=7:20)
cs.p <- predict(m1, new)
#均方差
mse.cs <- sum( (st$p50-cs.p)^2 )/14
#最大范数误差
mne.cs <- max(abs(st$p50-cs.p))
newdata<-rbind(newdata,mse.cs) 毁搏拿 #2
print(newdata) 银拿 #3
}
aa<-mean(newdata) #4
新建newdata来保存循环的结果,以便对循环的结纤搭果进行后续 *** 作比如求均值并保存在aa中
rstudio中保存所弊激顷有结果步骤:1、打开电脑设置,点击系统和更新进入。
2、进入系统和更新后,下拉点击在开发人员选项。
3、在开发人员选项中租陆,设置rstudio保存所有结果铅樱即可。
1、该文件夹属性为只读,不能修改保存。2、机上装有还原中慎让卡,保护硬盘空间,会保护电脑,即电脑孝友不能保存文件。
3、软件存储路径名称被修改,保存文件时无法定位,要保证软件安装时的文件卖局路径和名称都不变才可以。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)