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