我需要检查R中另一个数字向量中是否存在数字向量中的唯一数字。我的代码向我显示了一条警告消息。
crp_code <-
c(41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41,
41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41,
41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41,
41, 41, 51, 51, 51)
uni_codes <- c(11, 21, 41, 51, 81)
if (dput(unique(as.numeric(crp_code))) %in% uni_codes) {
data <- data[(Crp %in% dput(unique(as.numeric(crp_code))))]
} else {
do task 2
}
crp_code <-
c(41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41,
41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41,
41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41,
41, 41, 51, 51, 51)
Warning message:
In if (dput(unique(as.numeric(crp_code))) %in% dput(Gopi_crp_codes)) { :
the condition has length > 1 and only the first element will be used
不知道为什么我收到警告消息。有什么建议可以改善我的代码吗?谢谢。