Hi Robert, You need to modify your function to return a value. Something like x <- function(nbr){ y<-rnorm(nbr) y1 <- mean(y) plot(y) return(y1) } -Ista