# Random Algorithm
# Kazi TamVir Hasan
# 2022-05-14



set.seed(1234)


### When, k=2
ran_algo <- replicate(4, lapply(1:9, function(i){
  ndraws <- sample(0:2,size = 1) # k = 2
  samples <- sample(1:8, size = ndraws, replace = FALSE)
  data.frame(samples)
}), TRUE)

D50C9v_k2 <- ran_algo[,1]
D50S9v2_k2 <- ran_algo[,2]
D1KC9v_k2 <- ran_algo[,3]
D1KS9v2_k2 <- ran_algo[,4]

### When, k=3
ran_algo <- replicate(4, lapply(1:9, function(i){
  ndraws <- sample(0:3,size = 1) # k = 3
  samples <- sample(1:8, size = ndraws, replace = FALSE)
  data.frame(samples)
}), TRUE)

D50C9v_k3 <- ran_algo[,1]
D50S9v2_k3 <- ran_algo[,2]
D1KC9v_k3 <- ran_algo[,3]
D1KS9v2_k3 <- ran_algo[,4]

### When, k=4
ran_algo <- replicate(4, lapply(1:9, function(i){
  ndraws <- sample(0:4,size = 1) # k = 4
  samples <- sample(1:8, size = ndraws, replace = FALSE)
  data.frame(samples)
}), TRUE)

D50C9v_k4 <- ran_algo[,1]
D50S9v2_k4 <- ran_algo[,2]
D1KC9v_k4 <- ran_algo[,3]
D1KS9v2_k4 <- ran_algo[,4]