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)
}

我用两个星号标记了

R：在用户定义的函数中找不到对象，并且是意外的{

1 个答案: