R/Search_Sample_Seed.R

In likanzhan/acqr: Functions Helping You understand Statistics Easily

#' Define a seed seach function
#' This function is used to find the appropriate seed to find the sample that does not contain
#' the elements with the same positions.
#' @examples
#' set.seed(Search_Sample_Seed(1:5))
#' sample(1:5)
#' @export

Search_Sample_Seed <- function(vector, Seed_Initial = 1) {
  if (length(vector) == 1) stop("The data should be longer than 2 !")
  V1 <- 1:length(vector)
  V2 <- V1
  seed <- Seed_Initial
  while (sum(V1 == V2) > 0) {
    seed <- seed + 1
    set.seed(seed)
    V2 <- sample(V1)
  }
  seed
}