Hi,
I just cannot figure out what is missing from my boot.. This is what I have in
my R codes:
-------------------------------------
payment.data<-read.csv("maintenance payment.csv.",header=TRUE)
fee<-lm(log(payment.data[,2])~payment.data[,1])
g<-fee$coefficients[2]
g
phat.data<-read.csv("phat.csv.",header=TRUE)
phat1<-phat.data[,2]+0.01
PreOLS<-lm(log(phat1)~phat.data[,1])
resid<-PreOLS$residuals
esqu<-resid^2
sigma<-(1-phat1)/(phat1*nrow(phat.data))
cnsOLS<-lm((esqu-sigma)~1)
f<-cnsOLS$fitted.values-sigma
window<-phat.data[,1]
phat2<-phat.data[,2]
data<-data.frame(window,phat2)
maxpay<-max(payment.data[2])
minpay<-min(payment.data[2])
delta.fun<-function(data)
{
wOLS<-lm(log(data[,2]+0.01)~data[,1],weights=f^(-0.5))
g -1*wOLS$coefficients[2]*log(maxpay/minpay)/wOLS$coefficients[1]
}
boot(data,delta.fun,100)
--------------------------------
Then, I get this message:
Error in statistic(data, original, ...) : unused argument(s) ( ...)
I tried so many combinations by defining variables in the statistic...I could
not figure out what arguments are unused...I checked the delta.fun, and it
seems to be working...
Could anyone help me, PLEASE???
Thank you
soyoko
______________________________________
Ms. Soyoko Umeno
Graduate Research Assitant for the Illinois-Missouri Biotechnology Alliance
(IMBA) at http://www.imba.missouri.edu/
Ph.D. Student at the Department of Agricultural and Consumer Economics
at the University of Illinois at Urbana-Champaign
Office Phone: 217-333-3417 or 217-333-0364
Fax: 217-244-4817
Mailing Address: 1301 W. Gregory Dr. MC710, Urbana, IL 61801