这是改写过的 r code, 内容是在回圈内只要 sum(data[(i-2):i]) 不合法则改成 sum(data[(i-2+j):i]), 其中 j = {0,1,2,...}. 请参考看看. R 的例外处理我不是很在行, 但你的这个问题是很典型的例外处理. data <- seq(1:10) new.data <- c() for(i in 1:10){ j <- 0 expr <- expression(sum(data[(i-2+j):i])) #建立表达式 ("2"可以自己调) a.try <- try(eval(expr), T) #建立表达式的例外 while("try-error" %in% class(a.try)) { #若有例外 j <- j + 1 a.try <- try(eval(expr), T) cat(sprintf("Error happened when i=%g and j=%g\n", i, j)) #显示例外之处 } new.data[i] <- a.try } new.data ※ 引述《windguide (夜很深)》之铭言： : [软体程式类别]: : R : [程式问题]: : 资料处理、回归、叙述统计、logistic、probit...等 : [软体熟悉度]: : 低(1~3个月) : [问题叙述]: : 各位好，我现在有一笔资料，想从这笔资料中产生新资料 : 例如 这笔资料是 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 : 新资料是前两个资料点的加上本身共三个数字的和，以上述例子也就是， : 1, 3, 6, 9, 12, 15, 18, 21, 24, 27 : 由於第一个资料点没有前面的资料所以维持为1，第二个资料点是1+2=3 : 我想利用资料向量及for回圈处理 : data=seq(1:10) : new.data=c() : for(i in 1:10){ : new.data[i] = sum(data[(i-2):i]) : } : new.data : 但是当data[-1] 的时候会出现问题 它给的值不是0 : 请问有甚麽办法可以解决吗，感谢各位 -- http://apansharing.blogspot.com/ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 125.230.71.198