How to do hypthesis test on R code using aov function? (please include all code and output)

3. Consider the temperature reduction example that was presented in lecture. The data are as follows: Observation (j) l 2 3 4 5 6 )7,- Placebo 98.3 98.7 98.1 99.9 96.2 98.6 98.30 Aspirin 96.0 96.6 95.3 98.1 94.6 96.6 96.20 Anacin 97.2 97.4 96.9 97.8 94.7 97.0 96.83 Tylenol 95.1 95.7 94.4 97.2 93.7 95.7 95.30 Bufferin 96.1 96.5 95.4 98.2 94.5 96.5 96.20 Suppose we wish to test whether there is any difference in mean temperature among patients receiving active treatments (i.e. not placebo)