data(woodmod.dat)
woodmod.cov <- cov(woodmod.dat)
woodmod.sc <- summary(woodmod.cov)
woodmod.covRob <- covRob(woodmod.dat)
woodmod.scr <- summary(woodmod.covRob)
woodmod.fm <- fit.models(list(Robust = "covRob", Classical = "cov"), data = woodmod.dat)
woodmod.sfm <- summary(woodmod.fm)
Run the code above in your browser using DataLab