fix output

Author: avallecam

instructors/data/03-practical-activity-1-fr.R

@@ -47,7 +47,7 @@ plot(epi_contacts)
 secondary_cases <- epicontacts::#<À COMPLETER>
 
 # Tracer l'histogramme des cas secondaires
-individual_reproduction_num <- secondary_cases %>%
+secondary_cases %>%
   enframe() %>%
   ggplot(aes(value)) +
   geom_histogram(binwidth = 1) +
@@ -56,9 +56,6 @@ individual_reproduction_num <- secondary_cases %>%
     y = "Fréquence"
   )
 
-# voir un aperçu du graphe
-individual_reproduction_num
-
 
 # Ajuster une distribution binomiale négative -----------------------------------
 # étape : Utilisez le vecteur avec le nombre de cas secondaires engendrés par

instructors/data/03-practical-activity-1.R

@@ -46,7 +46,7 @@ plot(epi_contacts)
 secondary_cases <- epicontacts::#<COMPLETE>
 
 # Plot the histogram of secondary cases
-individual_reproduction_num <- secondary_cases %>%
+secondary_cases %>%
   enframe() %>% 
   ggplot(aes(value)) +
   geom_histogram(binwidth = 1) +
@@ -55,9 +55,6 @@ individual_reproduction_num <- secondary_cases %>%
     y = "Frequency"
   )
 
-# Print output
-individual_reproduction_num
-
 
 # Fit a negative binomial distribution -----------------------------------
 # step: Use the vector with the number of secondary cases per infector case