x <- runif(100,min = 0,max = 5)y <- rnorm(n = 100,mean = 75,sd = 10)stp_fun <- function(x){y <- length(x) for( i in 1:y)x[i] <- max(0,x[i])x[i] <- min(100,x[i])x}
