# TODO: Add comment
# 
# Author: E.Korsching  01-2022
###############################################################################



# sampling with replacement - evaluate the replacement percentage for a certain approach
percentage.replacement <- function(sampS, sampN){
	# check percentage of replacement in a certain sample size
	# sampS: sample size
	# sampN: number samples to estimate the percentage
	f2 <- function(x){ apply(x, 2, function(x){ sample(x, replace=T) }) }
	# test vector
	vecS <- c(1:sampS)
	# loop
	vecR <- vector("numeric",sampN)
	for(i in 1:sampN){
		tmp <- sample(vecS, replace=T)
		vecR[i] <- length(unique(tmp))
	}
	res <- 1-( mean(vecR)/sampS )
	cat("\n ratio replacement ", res, "\n")
	return(res)
}


#percentage.replacement(sampS=150, sampN=1000)