Dear all,

I need to calculate confidence intervals of a and b and root mean square error (RMSE) of a power law given by

Y = a X^b

I calculate the confidence intervals by:

    reg.ln = function(tab.xy, indices){
        tab.xy = storage[indices,]
        res.lm  = lm(log(y)~log(x), data=tab.xy)
        coefficients(res.lm)
    }

    xy.boot = boot(tab.xy, reg.ln, 2000)

    boot.ci(xy.boot)

where tab.xy is a dataframe containing x and y.

Is there any way to calculate the mean RMSE of the 2000 fitted models, e.g. identify the data which are not used in the random sub-sample generated by boot() and calculate the RMSE of the fitted models.


Kind regards for any help
Thomas

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to