diff --git a/_episodes_rmd/07-control-flow.Rmd b/_episodes_rmd/07-control-flow.Rmd
index 04fd59d1a..b54dd0a2e 100644
--- a/_episodes_rmd/07-control-flow.Rmd
+++ b/_episodes_rmd/07-control-flow.Rmd
@@ -386,7 +386,7 @@ output_vector2
 > >   tmp <- gapminder[gapminder$continent == iContinent, ]
 > >   cat(iContinent, mean(tmp$lifeExp, na.rm = TRUE), "\n")
 > >   rm(tmp)
-}
+> > }
 > > ```
 > >
 > > **Step 3**: The exercise only wants the output printed if the average life expectancy is less than 50 or greater than 50.