search for: newfit1

...* (exp(-p[3]/vol*time)-exp(-p[2]*time))) } eury.opt<- optim(p0, fn=eury.fit, NULL, method = "BFGS", hessian = TRUE) # I received the following error message. Error in fn(par, ...) : argument "time" is missing, with no default ## done with nls - this works eury.newfit1 <- nls(p.mated ~ f * ( 1 - exp(-b*time)-(b/(b-d/vol))*(exp(-d/vol*time)-exp(-b*time))), data=eury, start=list(f=.87, b=0.1, d=10)) v <- log10(range(eury$vol)) y <- expand.grid(vol=10^seq(min(v), max(v), length=100), time=c(2,4,8)) y$pred.mate.new...

...al. newcReg=cReg[match(names(linearModel2$coeff[-1]),names(cReg))] newfReg=fReg[match(names(linearModel2$coeff[-1]),names(fReg))] newmcReg=mcReg[match(names(linearModel2$coeff[-1]),names(mcReg))] newmfReg=mfReg[match(names(linearModel2$coeff[-1]),names(mfReg))] #Scenario 1 - All Regressors Left In newFit1.b <- Arima(modelSource,order=arma1.fit$order,seasonal=list(order=arma1.fit$seasonal),xreg=mcReg,include.drift=F) #Scenario 2 - Step Removal of Regressors newFit2.b <- Arima(modelSource,order=arma2.fit$order,seasonal=list(order=arma2.fit$seasonal),xreg=newmcReg,include.drift=F) #Scenario 3 -...