[問題] 如何將function放入迴圈? (求救)

[ronald736 (明天會更好)]

我想將資料每筆按照規則分群，資料如下圖:

https://imgur.com/a/wXNRKJ6

圖中想把"平均成績"依照P50、P70這2個欄位分成3類

平均成績 < P50 為第3類

平均成績 >= P50 且 <P75 為第2類

平均成績 >=P75  為第1類

我打算將function放入迴圈 (因為是要每1筆都依照欄位分群)

程式碼如下，能否幫我看看是寫法上錯誤嗎? 還是那邊的觀念不對?

classp <- NULL
for (i in 1:dim(pdata)[1])   {
  cf <- function(pdata$平均成績[i])
  {
    if (pdata$平均成績[i]<pdata$P50[i]) {
      classp[i] = 3
    } else if (pdata$平均成績[i]>=pdata$P50[i] & pdata$平均成績
[i]<pdata$P75[i]) {
      classp[i] = 2
    } else {
      classp[i] = 1
    }
    return(classp[i])
  }
  classp[i] <- cf(pdata$平均成績[i])
}
classp

程式碼與錯誤圖:

程式碼 : https://imgur.com/a/Sw9Mrmb

錯誤 : https://imgur.com/a/3DeYkYJ



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.168.247
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1538795480.A.C1E.html
→ HumuHumu: 你function的寫法完全寫錯了
推 celestialgod: 為什麼不直接用cut或是findInterval就好.....