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,...) { ...@@ -21,7 +21,7 @@ anova.pm = function(m,...) {
coef.norm = coef * sdxy[explicatives] / sdxy[reponse] coef.norm = coef * sdxy[explicatives] / sdxy[reponse]
cors = mcor(mf) cors = m$cov / outer(sdxy,sdxy)
print(reponse) print(reponse)
print(explicatives) 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