# NOT RUN {
x <- data.frame(
token = c(
"Die",
"Bundeskanzlerin",
"Angela",
"Merkel",
"spricht",
"im",
"Bundestag",
"zur",
"Lage",
"der",
"Nation",
"."
),
ne = c("O", "O", "B-PERS", "I-PERS", "O", "O", "B-ORG", "O", "O", "O", "O", "O"),
stringsAsFactors = FALSE
)
x[["cpos"]] <- 100L:(100L + nrow(x) - 1L)
tab <- conll_get_regions(x)
# }
Run the code above in your browser using DataLab