pseudoR: Pseudo R-Squared
In santiallende/caanPackage: PsychLab Package

This function computes a pseudo R-squared value for the amount of variance explained in a variance component of nested nlme model objects. This function is specific to 2-level models. Note that model1 is nested in model2.

1	pseudoR(model1, model2, varParam)

`model1`	A fitted nlme object with fewer fixed effect parameters than model B, but with an equal number of variance components.
`model2`	A fitted nlme object with more fixed effect parameters than model B, but with an equal number of variance components.
`varParam`	The variance component that you are interested in computing an pseudo R-squared for. That is, the variance component that you expect to change due to adding a fixed effect.