This is an attempt to an answer to Geertja van der Heijden's question,
which seems not to have been answered yet.
Your attempt was:
>drought <- read.table("D:/drought080525.txt", header=T)
>regres <- function(x, indices) {
>x <- x[indices,]
>coef(lm(x$AGB ~ x$days, weights=x$weights))
>}
and
Hi all,
I have bootstrapped my weighted regression equation using the
following formula and the package boot to obtain bootstrap confidence
intervls for my parameters:
>drought <- read.table("D:/drought080525.txt", header=T)
>regres <- function(x, indices) {
>x <- x[indices,]
>coef(lm(x$AGB ~ x$
2 matches
Mail list logo