[R] which argument is missing from my boot...

[umeno]

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