Sequator [work] Download Direct

# Estimate number of surrogate variables (Sv) n.sv <- num.sv(lcpm, mod, method="leek") print(paste("Estimated surrogate variables:", n.sv))