Commit 55466942 by Eric Coissac

use the covariance matrix included in the model to realise the anova

parent be6a6342
......@@ -21,7 +21,7 @@ anova.pm = function(m,...) {
coef.norm = coef * sdxy[explicatives] / sdxy[reponse]
cors = mcor(mf)
cors = m$cov / outer(sdxy,sdxy)
print(reponse)
print(explicatives)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment