---
title: "Exploration 3.2"
output: word_document
---
  
```{r}
#install.packages("lattice")
```

```{r setup, include=FALSE}
knitr::opts_knit$set(global.par = TRUE)
knitr::opts_chunk$set(fig.width=4, fig.height=2.67) 
load(url("http://www.isi-stats.com/isi2/ISI.RData"))
```

**Load the addata dataset, e.g.,**
```{r}
addata= read.delim("http://www.isi-stats.com/isi2/data/ad_data.txt", stringsAsFactors=T)
head(addata)
```

**Two-way Anova with interaction**
```{r}
with(addata, summary(aov(rating ~ claim*imagery)))
```