Rsq.ad {qpcR}

Adjusted R-square value of a fitted model

Description

Calculates the adjusted R_{adj}^2 value for objects of class nls, lm, glm, drc or any other models from which fitted, residuals and coef can be extracted.

Usage

Rsq.ad(object)

Arguments

object

a fitted model.

Details

R_{adj}^2 = 1 - \frac{n - 1}{n - p} \cdot (1 - R^2)

with n = sample size, p = number of parameters.

Value

The adjusted R_{adj}^2 value of the fit.

Author(s)

Andrej-Nikolai Spiess

Examples

## Single model.
m1 <- pcrfit(reps, 1, 2, l7)
Rsq.ad(m1)

## Compare different models with increasing
## number of parameters.
ml1 <- lapply(list(l4, l5, l6), function(x) pcrfit(reps, 1, 2, x))
sapply(ml1, function(x) Rsq.ad(x))