diff options
Diffstat (limited to 'R/stability_score.R')
| -rw-r--r-- | R/stability_score.R | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/R/stability_score.R b/R/stability_score.R index 45fc078..2b7a42d 100644 --- a/R/stability_score.R +++ b/R/stability_score.R @@ -10,7 +10,6 @@ #' @export stability_score <- function(X, K = 25, subsample_fraction = 0.7){ n <- nrow(X) - p <- ncol(X) rho <- vector('list', K) for(r in seq_len(K)){ idx <- sample(n, size = floor(subsample_fraction * n)) |