我正在尝试文本上下文分析：
library(corpustools)
tc <- create_tcorpus(doc, doc_colum = "id")
hits <- tc$search_features('"place places*"~5')
kwic <- tc$kwic(hits, ntokens = 3)
head(kwic$kwic,3)
在我到达tc$kwic命令之前，发生以下错误：
Error in `$<-.data.frame`(`*tmp*`, "is_kw", value = logical(0)) :
replacement has 0 rows, data has 7
有人知道我在做什么错吗？