0

我尝试了很多替代方案，包括我们可以在 Revo 网站上找到的那个

xform <- function(data) { 
    data$.rxRowSelection <- as.logical(rbinom(nr, 1 , 0.5))
    return(data)
}
rxDataStep(inData = "two_vars.xdf", outFile = "testSample",
           transformFunc = xform , overwrite = TRUE)

nr什么时候info$numRows从rxGetInfo("two_vars.xdf")

rxDataStep(inData = "two_vars.xdf", outFile = "testSample",
           rowSelection = as.logical(rbinom(nr, 1, 0.5)), overwrite = TRUE)

错误：分析的样本数据集没有变量。doTryCatch(return(expr), name, parentenv, handler) 中的错误：std::exception

感谢您的帮助！

4

1 回答 1

1

试试这个：

xform <- function(data) { 
    data$.rxRowSelection <- as.logical(rbinom(.rxNumRows, 1 , 0.5))
    return(data)
}
rxDataStep(inData = "two_vars.xdf", outFile = "testSample",
           transformFunc = xform , overwrite = TRUE)

或等效地：

rxDataStep(inData = "two_vars.xdf", outFile = "testSample",
           rowSelection = as.logical(rbinom(.rxNumRows, 1 , 0.5)), 
           overwrite = TRUE)

我认为你所做的有两个问题。

  1. 您正在传递总行数，并且您需要该特定块中的行数。（不是您当前错误的原因）
  2. 您需要将对象通过传递transformObjects到变换环境中才能使用它们。
于 2016-03-03T21:13:31.050 回答