# NOT RUN {
    ## the following two statements are equivalent
    ctrl1 <- new("CovControlMrcd", alpha=0.75)
    ctrl2 <- CovControlMrcd(alpha=0.75)
    data(hbk)
    CovMrcd(hbk, control=ctrl1)
# }
Run the code above in your browser using DataLab