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中
保存为简单txt文本。R代码是指使用R语言时书写的代码。R是一套完整的数据处理、计算和制图软件系统。其功能包括：数据存储和处理系统；数组运算工具（其向量、矩阵运算方面功能尤其强大）；完整连贯的统计分析工具；优秀的统计制图功能；简便而强大的编程语言：可操纵数据的输入和输出，可实现分支、循环，用户可自定义功能。
R作为一种统计分析软件，是集统计分析与图形显示于一体的。它可以运行于UNIX，Windows和Macintosh的操作系统上，而且嵌入了一个非常方便实用的帮助系统。
首先有个概念，循环中的变量是i，每次循环之后都会更新i的值，直到循环结束。循环中i的取值范围在1:5。循环中，每次循环都打印出i的结果。循环结束后，i不再更新，打印i输出的就是i最后一次的取值，并且一直都是这个值，除非你再次给i赋值。第二个问题，我不知到是不是这个意思，你需要保存每一步循环中得到的结果，最后在循环结束之后全部把它们输出出来。我就按我理解的这个意思写一下。 t<-array() for(i in 1:5) t[i]<-i a<-list(t)a 希望对你有帮助。
