fix missing block quote symbol

Author: zkamvar

_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.