# Data from the EUROFAMCARE sample dataset
data(efc)
# recveive first item of COPE-index scale
start <- which(colnames(efc) == "c82cop1")
# recveive last item of COPE-index scale
end <- which(colnames(efc) == "c90cop9")
# create data frame with COPE-index scale
mydat <- data.frame(efc[, c(start:end)])
mic(mydat)
Run the code above in your browser using DataLab