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