df1<-read_excel('exam.xlsx')
names(df1)
[1] "HAART_reg" "Base_CD4" "CD4_at_12" "diabetes"
[5] "hypertension" "tuberculosis" "Base" "CD412"
我想使用变量创建交叉表Base，CD412这些变量是具有级别0和1
library(expss)
cro(df1$Base,df1$CD412)
出现以下错误信息：
Error in name_dots(...) : could not find function "name_dots"
如何解决这个问题？
尝试如何devtools::install_github("gdemin/expss")？
或者第二种选择是运行：
name_dots <- function(...) {
dot_sub <- as.list(substitute(list(...)))[-1L]
vnames = names(dot_sub)
if (is.null(vnames)) {
vnames = rep.int("", length(dot_sub))
novname = rep.int(TRUE, length(dot_sub))
} else {
vnames[is.na(vnames)] = ""
if (any(vnames==".SD")) stop("A column may not be called .SD. That has special meaning.")
novname = vnames==""
}
for (i in which(novname)) {
if ((tmp <- deparse(dot_sub[[i]])[1L]) == make.names(tmp))
vnames[i] = tmp
}
still_empty = vnames==""
if (any(still_empty)) vnames[still_empty] = paste0("V", which(still_empty))
list(vnames=vnames, novname=novname)
}
参考：https : //github.com/Rdatatable/data.table/blob/master/R/utils.R
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句