# \donttest{
andromedaVersion <- utils::packageVersion("Andromeda")
if (andromedaVersion < "1.0.0") {
binaryCovDataFile <- system.file("testdata/binaryCovariateData.zip",
package = "FeatureExtraction"
)
} else {
binaryCovDataFile <- system.file("testdata/binaryCovariateDataDuckDB.zip",
package = "FeatureExtraction"
)
}
covariateData1 <- loadCovariateData(binaryCovDataFile)
covariateData2 <- loadCovariateData(binaryCovDataFile)
covDataDiff <- computeStandardizedDifference(
covariateData1,
covariateData2,
cohortId1 = 1,
cohortId2 = 2
)
# }
Run the code above in your browser using DataLab