Как исправить ошибку при запуске функции cro в R? - PullRequest
0 голосов
/ 20 ноября 2018
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"

Как это исправить?

1 Ответ

0 голосов
/ 20 ноября 2018

Как насчет попытки 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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...