data(woodmod.dat)
woodm.cov <- covClassic(woodmod.dat)
## IGNORE_RDIFF_BEGIN
summary(woodm.cov)
## IGNORE_RDIFF_END
woodm.covRob <- covRob(woodmod.dat)
summary(woodm.covRob)
woodm.fm <- fit.models(list(Robust = "covRob", Classical = "covClassic"),
data = woodmod.dat)
summary(woodm.fm)
Run the code above in your browser using DataLab