set.seed(100)

traceNorms <- function(a,b,c,d,n) {

# simule deux lois normales
#   rnorm(n,mean=a,sd=b) et rnorm(n,mean=c,sd=d)
# puis trace leur densité dans le plan fixe de R²
#   définir par [-10,20]x[0,0.5]

   norm1 <- rnorm(n=n, mean=a, sd=b)
   norm2 <- rnorm(n=n, mean=c, sd=d)

   plot(
     density(c(norm1,norm2)),
     xlim=c(-10,20),
     ylim=c(0,0.5),
     main="un exemple pour knitr",
     xlab="",
     ylab=""
   ) # fin de title

} # fin de fonction