while循环嵌套在for循环R中
While loop nested in for loop R
我正在尝试使用 for 和 while 循环在 R 中提取单个主题数据。我希望循环相应地提取数据并将其保存为自己的数据文件。问题是 for 循环没有正确计算 Subjects 并为 b 返回正确的值。我的 while 循环运行完美,因为我可以手动设置 b 的值,运行 循环,并生成正确的数据文件。
Subjects = (1:2)
r = (1);
ST = (d$onReadyTime) #need to get ST to read not just the first number in onReadyTime for each trial
ST=strsplit(ST,split = "a")
for (b in (1:length(Subjects)){
b <- Subjects[r]
while (r == Subjects[b])
{STSubject = (ST[[b]])
ST2=(STSubject)
#ST2=`colnames<-`(ST2,Subjects[i])
write.table(ST2,file = paste("ST_Subject_",b,".csv",sep=""),row.names = FALSE, col.names= TRUE)
r = r+1
}
}
没有最低工作示例,只能提供一般指导。
n <- 0
for (i in seq_along(models)) {
for (j in seq_along(meters)) {
n <- n + 1
make_line(i, j) -> glances[[n]]
}
}
如前所述,这里的关键点是在内循环外初始化计数器。
我正在尝试使用 for 和 while 循环在 R 中提取单个主题数据。我希望循环相应地提取数据并将其保存为自己的数据文件。问题是 for 循环没有正确计算 Subjects 并为 b 返回正确的值。我的 while 循环运行完美,因为我可以手动设置 b 的值,运行 循环,并生成正确的数据文件。
Subjects = (1:2)
r = (1);
ST = (d$onReadyTime) #need to get ST to read not just the first number in onReadyTime for each trial
ST=strsplit(ST,split = "a")
for (b in (1:length(Subjects)){
b <- Subjects[r]
while (r == Subjects[b])
{STSubject = (ST[[b]])
ST2=(STSubject)
#ST2=`colnames<-`(ST2,Subjects[i])
write.table(ST2,file = paste("ST_Subject_",b,".csv",sep=""),row.names = FALSE, col.names= TRUE)
r = r+1
}
}
没有最低工作示例,只能提供一般指导。
n <- 0
for (i in seq_along(models)) {
for (j in seq_along(meters)) {
n <- n + 1
make_line(i, j) -> glances[[n]]
}
}
如前所述,这里的关键点是在内循环外初始化计数器。