0

我正在做这个练习,我找不到错误。

该数据是纽约出租车数据集(mht_lab2.zipGithub上)的子样本。

在这个当前的练习中,我应该在使用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-argument 并尝试使用组合。它始终返回错误。

4

1 回答 1

1

上述错误信息具有误导性。问题是 as.factor() 函数没有 'levels' 参数 - 您需要使用 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"))' 
于 2018-09-14T19:20:32.820 回答