toEQ5Dindex(c(1,2,3,4,5))
example_data <- as.data.frame(matrix(data = c(1, 2, 3, 4, 5,
5, 4, 3, 2, 1,
3, 2, 1, 2, 3),
ncol = 5,
byrow = TRUE,
dimnames = list(NULL, c("mo", "sc", "ua", "pd", "ad"))))
example_data$irrelevant <- c(6,5,3)
toEQ5Dindex(example_data)
Run the code above in your browser using DataLab