Mean of repeated output using a function

[meitei]

I wan to get the mean of dat after 10 times repeated loops.
I tried with the following code.

df=function(x){
  dat=rnorm(x)
  dat
}

replicate(n = 10, expr = {
  df(x=5)
})

Thanks

[technocrat]

# avoid df as an object name, as an object of that name
# is always in the namespace, and some operations interpret
# the name as a closure

mk_df <- function(x) {
  dat <- rnorm(x)
  dat
}

apply(replicate(n = 10, expr = mk_df(5)), 2,mean)
#>  [1]  0.38782911  0.77414331  0.61026993 -1.00028940  0.11886385  0.48070768
#>  [7] -0.07799182 -0.85150985 -0.27631772 -0.11024515

^{Created on 2020-09-30 by the reprex package (v0.3.0.9001)}

[meitei]

Thanks @technocrat for the additional info.
I am expecting output should be 5 only, value should be a mean of repeated 10 times.

[technocrat]

Is that one mean of 10 replications of one data frame of a five-element vector?

[meitei]

yes, it is. I want to replicate 10 times and took their mean of respective rows.

[technocrat]

means of ten rows of 5 element vectors

rep(mean(mk_df(5)),10)
 [1] -0.0457907 -0.0457907 -0.0457907 -0.0457907 -0.0457907 -0.0457907
 [7] -0.0457907 -0.0457907 -0.0457907 -0.0457907

[meitei]

Thanks for your time and effort @technocrat.
I did not clearly mention the output. As attached in the picture, I want to replicate 10 times and take their mean of rows as highlighted.

[technocrat]

mk_df <- function(x,y) {
  dat <- rnorm(x)
  rep(dat,10) -> a
  dim(a) <- c(x,y)
  a
} 

rowMeans(mk_df(5,10))
#> [1]  0.9131058  0.9089604  0.3837234 -0.2396053  0.3903397

^{Created on 2020-10-01 by the reprex package (v0.3.0.9001)}

[meitei]

Thank you so much @technocrat