diff --git a/charts.R b/charts.R
index 28e3b5b..c08f9ab 100644
--- a/charts.R
+++ b/charts.R
@@ -32,5 +32,5 @@ df2%>%
   hc_plotOptions(column = list(stacking = "normal"))%>%
   hc_xAxis(title=list(text='Age'))%>%
   hc_yAxis(title=list(text='Probability'))%>%
-  hc_legend(enabled=F)
-  hc_title(text="<b>Probability of heart attack for sex in age group</b>")
+  hc_legend(enabled=F)%>%
+  hc_title(text="<b>Probability of heart attack for sex and age group</b>")