# NOT RUN {
## the following two statements are equivalent
ctrl1 <- new("CovControlMest", r=0.4)
ctrl2 <- CovControlMest(r=0.4)
data(hbk)
CovMest(hbk, control=ctrl1)
# }
Run the code above in your browser using DataCamp Workspace