做线性回归出现错误，R新手

#n是存放三列，每一类代表一类；a是数据

代码如下

   cn<-c(colnames(a));  #cn存储a的所有列名

for(i in seq(from=1,to=47,by=2))   

{

cnum1<-grep(n[i,1],cn);   #cnum1存储n中列名对应的在a中的列数

cnum2<-grep(n[i+1,1],cn);

p1<-u+a[,cnum1];  #u是每次循环后存储的x[1]+x[2]+x[3]（这里的x是随便举个例子）

s1<-u+a[,cnum2];

q1=AIC(lm(class~(u+a[,cnum1]),data=a));

t1=AIC(lm(class~(u+a[,cnum2]),data=a));

···

}

报错：Error in `[.data.frame`(a, , cnum2) : undefined columns selected 这是a的数据，行是变量名，列是样本名

这是n的数据