RxCrossTable: преобразование не работает

Question

Я делаю это упражнение и не могу найти ошибку.

Данные являются подвыборкой набора данных такси Нью-Йорка (mht_lab2.zip на Github).

В этом текущем упражнении я должен составить таблицу поездок на короткие и длинные расстояния против поездок на короткие и длинные расстояния без использования rxDataStep, Поэтому я сделал это:

mht_xdf <- RxXdfData('mht_lab2.xdf') # make sure the xdf-file is in your directory
rxCrossTabs(~dist_rule:dur_rule,mht_xdf,transformFunc = function(datalist){
datalist$dist_rule=as.factor(ifelse(datalist$trip_distance>5,'long','short'),levels=c('short','long'))
datalist$dur_rule=as.factor(ifelse(datalist$trip_duration>10,'long','short'),levels=c('short','long'))
return(datalist)},transformVars = c('trip_distance','trip_duration')
)

Однако это возвращает мне ошибку:

Error in doTryCatch(return(expr), name, parentenv, handler) : 
  ERROR: The sample data set for the analysis has no variables.

Я пытался использовать transformObjects, transformsАргументация и попытка использования комбинаций. Он последовательно возвращал ошибку.

Answer 1

Приведенное выше сообщение об ошибке вводит в заблуждение. Проблема в том, что функция as.factor() не имеет аргумента "уровни" - вам нужно использовать функцию factor ().

Следующее будет работать:

 myTransform <- function(dataList)
 {
    dataList$dist_rule <- factor(ifelse(dataList$trip_distance>5, 'long', 'short'), 
          levels = c('short', 'long')) 
    dataList$dur_rule <- factor(ifelse(dataList$trip_duration>10, 'long', 'short'),
          levels = c('long', 'short')) 
    dataList
 }

 rxCrossTabs(~dist_rule:dur_rule, data = mht_xdf, transformFunc = myTransform, 
        transformVars = c("trip_distance", "trip_duration"))'