ntsean 发表于 2015-10-23 04:55 
十分感谢,我以为只有用perl语言处理了,学会了R处理的方法,十分感谢。
分享我后来的循环程序:
a <- paste(c("snp1000"),1:17,sep = "")
n <- 1
b[[1]] <- NULL #结果是二维的,需要用NULL定义初始值,不能是0
for(ee in a){ #写一个循环
formula<- sprintf("y~%s", ee) #定义formula的字符串
formula <- as.formula(formula) # 把字符串定义为函数的形式,去掉引号
xxx<-asreml(formula, random=~ped(ID),data=SNPs,ginverse=list(ID=ainv))#写入循环成功
en <- wald(xxx)[2,][,1:4] #提取必要的数据
b[[n]] <- en
n <- n+1
}
b #显示数据