f <- function(x,n) {
  for (nbfois in 1:n) {
    x <- c(x,nbfois)
  } # fin pour
  return(x)
} # fin de fonction f

g <- function(x,n) {
  for (nbfois in 1:n) {
    x <- x + 1
  } # fin pour
  return(x)
} # fin de fonction g

h <- function(n) {
  x <- 0
  x <- f(x,n)
  y <- 1
  y <- g(y,n)
} # fin de fonction h

h(5*10**4)