

Hello,

I am performing the tacks and this is error I am getting,I will be very happy if any one assist me.

Objective <- function(x,parset=names(x)) {
 pars[parset]<- x
 tout <- seq(1,25,by=1)
 ## output times
 out <- SAA(pars,tout)
 ## Model cost
  return(modCost(obs=Data,model=out,x="time", y="val"))
 }

print(system.time(Fit <- modFit(p=c(beta=0.003,alpha=0.146,mu= 0.0046,delta=0.7,w=0.6,b=0.0176,c=50),
 f=Objective,lower=rep(0,7))))

Error in approx(xMod, yMod, xout = xDat) : 
  need at least two non-NA values to interpolate
Timing stopped at: 0.34 0 0.34 
 

Regards,

kwesi
	[[alternative HTML version deleted]]

