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 }