# NOT RUN {
## Calculate Stress values for 5 out of 7 SDGs
data(SDG_coocurrence)
SDG_coocurrence <- SDG_coocurrence[,-2] # Drop second column
input <- SDG_coocurrence[,1:8] # For computational reasons, we will work
# with 7 SDGs.
stress <- lscomb(input, points = 5)
stress
# }
Run the code above in your browser using DataLab