tests/testthat/test_scaling.R

In Theorell/DepecheR: Determination of essential phenotypic elements of clusters in high-dimensional entities

######################
context("scaling")
# dScale
x <- DepecheR:::generateBimodalData(observations = 100)
y_df <- DepecheR:::dScale(x[[1]])

###################### dScaleCoFunction
x <- DepecheR:::generateBimodalData()
result <- DepecheR:::dScaleCoFunction(x[[1]][, 2],
    control = x[[1]][, 2],
    scale = c(0.001, 0.999),
    robustVarScale = TRUE,
    truncate = c(0.001, 0.999),
    center = "mean", multiplicationFactor = 1
)