Create a new $R$ object named classAgeGroup $($not a new column in titanic$)$ using the if else if else setup within a for loop or using $1$felse $)$ which: is equal to $0$ if Age is $18,1$ if Age is $<mn\; id="EditorElement\_4438036">1</mn><mn\; id="EditorElement\_4438037">8</mn>$ and Pclass $=1,2$ if Age is $<mtext\; id="EditorElement\_4437986"></mtext><mn\; id="EditorElement\_4437987">1</mn><mn\; id="EditorElement\_4437988">8</mn>$ and Pclass $=2,$ and $3$ if Age is $<mtext\; id="EditorElement\_4437947"></mtext><mn\; id="EditorElement\_4437948">1</mn><mn\; id="EditorElement\_4437949">8</mn>$ and Pclass $=3$

Now create a new variable in the titanic dataset with the same setup as the variable you just created using the $1$ felse$()$ function. Tip: you may need to use nested calls to $1$ felso$()$

Create a boxplot of Fare by classAgeGroup for the titanic data. Comment on your findings.

Create a boxplot of Age by the new variable you created in problem $3)$ for the titanic data. Comment on your findings.