Displaying 1 result from an estimated 1 matches for "intervalsfor".
2008 May 04
1
Residual resampling for non linear reg model
...efit the model init.values<-c(alpha=20,beta=0) new.model<-nls(resample.mp~cases/(alpha+(beta*cases)),start=init.values, trace=TRUE) #extract the parameter estimates boot.coef[i,]<-coef(new.model)}#add the original parameter estimates boot.coef[B+1,]<-coef(model)#calculate confidence intervalsfor(i in 1:2){ ci<-quantile(boot.coef[,i],probs=c(alpha/2,(1-alpha/2))) cat("residual bootstrap confidence intervals for parameter",i,"are",ci,"\n")}
Miss your Messenger buddies when on-the-go? Get Messenger on your Mobile!
__________________________________________...