带有for循环的R脚本中的语法错误

带有for循环的R脚本中的语法错误,r,R,我正在写一个简单的R脚本(script.R) 我想让R读入13个连续编号的表格(“table1.txt”、“table2.txt”等),然后选择一个特定的列(“剂量”),将13个输出中的每一个乘以一个不同的因子,最后将它们相加 for (i in 1:13) { loci[i]<-read.table("table[i].txt, header=T) dloc[i]<-(loc[i]$dosage) logdloc1<-(dloc1*0.077)

我正在写一个简单的R脚本(script.R)

我想让R读入13个连续编号的表格(“table1.txt”、“table2.txt”等),然后选择一个特定的列(“剂量”),将13个输出中的每一个乘以一个不同的因子,最后将它们相加

for (i in 1:13) {
    loci[i]<-read.table("table[i].txt, header=T)
    dloc[i]<-(loc[i]$dosage)
    logdloc1<-(dloc1*0.077)
    logdloc2<-(dloc2*-0.105)
    logdloc3<-(dloc3*0.104)
    logdloc4<-(dloc4*0.113)
    logdloc5<-(dloc5*-0.105)
    logdloc6<-(dloc6*0.131)
    logdloc7<-(dloc7*-0.117)
    logdloc8<-(dloc8*-0.083)
    logdloc9<-(dloc9*-0.083)
    logdloc10<-(dloc10*0.182)
    logdloc11<-(dloc11*0.157)
    logdloc12<-(dloc12*0.086)
    logdloc13<-(dloc13*0.27)
    output<-(logdloc1 + logdloc2 + logdloc3 + logdloc4 + logdloc5 + logdloc6 + logdloc7 + logdloc8 + logdloc9 + logdloc10 + logdloc11 + logdloc12 + logdloc13)}
有人能很好地发现显而易见的东西吗

非常感谢你的帮助

AB

您缺少一个“

将第i个元素粘贴到“.txt”

要获得更完整的答案,请精确说明
表中的内容

您缺少一个“

将第i个元素粘贴到“.txt”


要获得更完整的答案,请精确说明
表中的内容

谢谢-我太草率了。现在执行时带有“in place.但我现在遇到另一条错误消息:“无法打开文件”table[I].txt:没有这样的文件或目录“。即使我在该目录中有table1.txt到table13.txt。为什么会这样?谢谢。我没有回答。请检查并完成你的问题。谢谢-我太草率了。现在已执行“in place”。但我现在遇到另一个错误消息:“无法打开文件‘table[I].txt”:没有这样的文件或目录。即使我在该目录中有table1.txt到table13.txt。为什么会这样?谢谢。我已编辑了答案。请检查并完成您的问题
Rscript script.r
Error: unexpected end of input
for (i in 1:13) {
    loci[i]<-read.table("table[i].txt", header=T)
    dloc[i]<-(loc[i]$dosage)
    logdloc1<-(dloc1*0.077)
    logdloc2<-(dloc2*-0.105)
    logdloc3<-(dloc3*0.104)
    logdloc4<-(dloc4*0.113)
    logdloc5<-(dloc5*-0.105)
    logdloc6<-(dloc6*0.131)
    logdloc7<-(dloc7*-0.117)
    logdloc8<-(dloc8*-0.083)
    logdloc9<-(dloc9*-0.083)
    logdloc10<-(dloc10*0.182)
    logdloc11<-(dloc11*0.157)
    logdloc12<-(dloc12*0.086)
    logdloc13<-(dloc13*0.27)
    output<-(logdloc1 + logdloc2 + logdloc3 + logdloc4 + logdloc5 + logdloc6 + logdloc7 + logdloc8 + logdloc9 + logdloc10 + logdloc11 + logdloc12 + logdloc13)}
loci[i]<-read.table(paste0(table[i], ".txt"), header=T)