{r setup, include=FALSE} knitr::opts_chunk$set(echo=FALSE,error=TRUE)
My favorite foods and deserts are
1. Foods
+ Spicy Chicken
+ Grape Leaves
+ Indian Curry
+ Mac and Cheese
2.Deserts
+ Ice Cream
+ Carrot Cake
+ Cherry Pie
{r,eval = TRUE,error=TRUE} str(chicagoData) {r,eval = TRUE,error=TRUE} attributes((chicagoData))
{r,echo = FALSE} head(chicagoData,n=5L)
{r,echo = FALSE}
{r,eval = TRUE,error=TRUE} ggplot(chicagoData,aes(x=date,y=temp))+geom_point()+facet_wrap(~year,ncol=2,scales="free")
```{r,echo = FALSE} chicagoData%>%filter(season==“summer”)%>%head(n=10L)