I often use simple nested random-effect models for interlaboratory data. The variance components are important things to know. Is there an R function or package that gets variance components from lm objects? Or can someone point me to a method of doing so?