上XDF

Question

隨機選擇我已經嘗試了很多方案，其中包括一個我們可以雷沃網站找到

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) 

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

感謝幫助！

Answer 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將對象傳遞到變換環境才能使用它們。