R：在用戶定義的函數中找不到對象，並且出現了意外的{

Question

我有一個帶有一個參數的函數，該參數應該是一個3列的數據幀。

probfinal<-function(y){
  x<-c(0,1,3)
  prev<-numeric(20)
  for(i in 1:length(y[,1]){
    prev[i]<-y[i,3]+sum(sample(x,38-y[i,2],replace=TRUE,prob=c(0.4,0.2,0.4)))
  }
  ligprev<-cbind(y,prev)
  return(ligprev)
}

我有兩個錯誤：

Error: unexpected '{' in:
"  prev<-numeric(20)
  for(i in 1:length(y[,1]){"

和

Error: object 'y' not found

然后還有其他與提到的錯誤有關的錯誤。

哪里出問題了？

謝謝

Answer 1

您的函數缺少括號：

probfinal<-function(y){
  x<-c(0,1,3)
  prev<-numeric(20)
  for(i in 1:length(y[,1])**)**{
    prev[i]<-y[i,3]+sum(sample(x,38-y[i,2],replace=TRUE,prob=c(0.4,0.2,0.4)))
  }
  ligprev<-cbind(y,prev)
  return(ligprev)
}

我用兩個星號標記