data(woodmod.dat)
woodmod.cov <- cov(woodmod.dat)
plot(woodmod.cov, which.plots = 1)
woodmod.covRob <- covRob(woodmod.dat)
plot(woodmod.covRob, which = 1)
woodmod.fm <- fit.models(list(Robust = "covRob", Classical = "cov"), data = woodmod.dat)
plot(woodmod.fm, which = 1)
Run the code above in your browser using DataLab