# Example of valid data
validData <- data.frame(
sorterID = c("resp1", "resp1", "resp1", "resp2",
"resp2", "resp2", "resp3", "resp3", "resp3"),
statement = c("London", "Frankfurt", "Berlin", "London",
"Frankfurt", "Berlin", "London", "Frankfurt", "Berlin"),
stackID = c("capital city", "city", "capital city", 1, 2, 2, "A", "B", "A")
)
checkConceptMapData(validData) # Should return TRUE
# Example of invalid data (missing columns)
invalidData <- data.frame(
sorterID = c(1, 2),
stackID = c(1, 2)
)
# checkConceptMapData(invalidData) # Will return False as an error
Run the code above in your browser using DataLab