# Create a sample data frame with concept map data
conceptMapData <- data.frame(
id = c(1, 2, 3),
statement = c(
"The quick brown fox jumps over the lazy dog",
"This is a simple concept map example",
"Data science involves analyzing datasets"
)
)
# Apply the abbreviateStatements function with a maximum length of 20
result <- abbreviateStatements(conceptMapData, max_length = 20)
print(result)
Run the code above in your browser using DataLab