# Cours 0 :  premier exercice

# Entrer les commandes suivantes et répondre aux 2 questions 
#-----------------------------------------------------------

     # on génère des données et on en fait un graphique     
          x <- rnorm(3000, 5, 1.5)
          y <- rnorm(3000, 5, 1.5)
          plot(x,y, xlim = c(0,10), ylim=c(0,10))
          
#--------------------------------------------------------------------          
    # tracé des moyennes
          abline( a =5, b= 0, col= "red")
          abline( v =5, col="blue")
          
    # tracé des écart-types horizontaux
          sdy = sqrt(var(y))  # ou bien : sdy = sd(y)
          abline(a = (5-sdy), b=0, col = "red",lty = "dashed")
          abline(a = (5+sdy), b=0, col = "red",lty = "dashed")
          
    # tracé des écart-types verticaux
          sdx = sqrt(var(x))
          abline(v = (5 - sdx), col = "blue",lty = "dashed")
          abline(v = (5 + sdx), col = "blue",lty = "dashed")
          
          
    #--------------------------------------------------------------------                
    # 1. Que fait la fonction rnorm() ?
    #--------------------------------------------------------------------      
    
          
    # On recommence avec un nouvel y
          y <- rnorm(3000, 5, 0.8)
          plot(x,y, xlim = c(0,10), ylim=c(0,10))
          abline( a = 5, b= 0, col= "red" )
          abline( v = 5, col="blue" )
          
    # tracé des écart-types ; on utilise la fonction sd()     
          sdy = sd(y)
          abline(a = (5-sdy), b=0, col = "red",lty = "dashed")
          abline(a = (5+sdy), b=0, col = "red",lty = "dashed")
          
          sdx = sd(x)
          abline(v = (5-sdx),  col = "blue",lty = "dashed")
          abline(v = (5+sdx), col = "blue",lty = "dashed")

    #--------------------------------------------------------------------         
    # 2. comparez avec le premier plot. Que s'est-il passé ?
    #-------------------------------------------------------------------- 
          
             #=====================#