這是改寫過的 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