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中
前一段工作太忙了，终于又有时间来继续学习了
列表就是一些对象（或成分，component）的有序集合。列表允许整合若干（可能无关）对象到单个对象名下。也就是说，某个列表中，可能是托干个向量、矩阵、数据框，甚至是其他列表的组合。函数list（）可创建列表。
下面创建一个列表
上述例子创建了一个列表，其中有四个成分：一个字符串、一个数值型向量、一个矩阵以及一个字符型向量。可以任意组合任意多的对象，并将它们保存为一个列表。
注意：可以通过双重括号知名代表某个成分的数字或者名称来访问列表中的元素。
列表允许以一种简单的方式组织和重新调用不相干的信息。其次，许多R函数的运行结果都是以列表的形式返回的。
一些小tips：
1、对象名称中的句点 . 没有特殊意义，但$ 和其他语言中句点有相似的意义，即指定一个数据框或列表中的某些部分。例如，A$x是指数据框A中的变量x。
2、R不提供多行注释或者是块注释功能。
3、将一个值赋予某个向量、矩阵、数组或者列表中一个不存在的元素时，R将自动扩展这个数据结构以容纳新值。
4、R中没有标量。标量以单元素向量的形式出现。
5、R中的下标不从0开始，而是从1开始。
6、变量无法被生命。他们在首次被赋值时生成。
read.transactions("文件名",format="single",sep="\t",cols<-c(1,2),rm.duplicates=TRUE)其中format表示输入数据的格式，transactions可以接受两种数据格式，即single型和basket型single型表现为两列，第一列为交易号，第二列为该交易中包含的一项，例如：1可乐1雪碧2芬达1美年达2王老吉basket型一行表示一条交易记录，交易项之间用分隔符分开，分隔符在sep参数中设定：可乐雪碧美年达芬达王老吉
