谁能帮我解释一下这段代码啊？r nlp
来源：3-5 处理缺失值
qq_Desperado_19
2018-10-16 15:46
entities <- function(doc, kind) {
s <- doc$content
a <- annotations(doc)[[1]]
if(hasArg(kind)) {
k <- sapply(a$features, `[[`, "kind")
s[a[k == kind]]
} else {
s[a[a$type == "entity"]]
}}
写回答
关注
1回答
-
- 慕梦前来
- 2022-03-09 17:50:26
这就是对象的偏
R语言基础
本R语言基础教程，教你如何在R中操纵自己数据，快速入门
79932 学习 · 274 问题
相似问题