** Ошибка в if (del == 0 && to == 0) return (to): отсутствует значение, где требуется TRUE/FALSE **

Question

Я запускаю приведенный ниже код, и он возвращает ошибку ниже: любые решения будут очень признателен.

## UQdata = Positive count abundance only data (i.e. positive values only) 

     aa2<-gam(UQdata~s(MudUQ,bs="ps", k=15) ,family=Gamma(link=log),data=Antho) 
     xmin <- ceiling(min(Antho$MudUQ[Antho$Bin==1])) 
     xmax <- floor(max(Antho$MudUQ[Antho$Bin==1])) 
     Mudnew <- seq(from=xmin, to=xmax, by=0.1) 
     **Error in if (del == 0 && to == 0) return(to) : 
         missing value where TRUE/FALSE needed** 
     pred.dat <- data.frame(Mudnew) 
     names(pred.dat) <- "MudUQ" 
     pred.aa2 <- data.frame(predict.gam(aa2, pred.dat, se.fit=TRUE, type="response")) 
     pred.aa2.comb <- data.frame(pred.dat, pred.aa2) 
     names(pred.aa2.comb) 
     plot(fit ~ MudUQ, data=pred.aa2.comb, type="l", lwd=2, col=1, ylab="Density per 0.0132 m2", xlab="Mud content (%)") 

Answer 1

Возможно:

xmin <- ceiling(min(Antho$MudUQ[Antho$Bin==1] , na.rm=TRUE)) 
    xmax <- floor(max(Antho$MudUQ[Antho$Bin==1] , na.rm=TRUE)) 

Я думаю, что ошибка броска функции seq.