# NOT RUN {
data("BSG2014")
# define variables
x <- "ValueDiversity"
y <- "TeamCommitment"
m <- "TaskConflict"
# compute Huber M-estimator
S <- cov_Huber(BSG2014[, c(x, y, m)])
weights(S, type = "relative")
# }
Run the code above in your browser using DataLab