## Create data (skip if not interested) ####

season <- factor(rep(c("Spring", "Summer"), each = 6))

density <- factor(rep(c(6, 12, 24), each = 3))

y <- c(1.17, 0.50, 1.67, 1.50, 0.83, 1.00, 0.67, 0.67, 0.75,4.00, 3.83, 3.83, 3.33, 2.58, 2.75, 2.54, 1.83, 1.63)

design <- expand.grid(density = factor(c(6, 12, 24)), season = c("Spring", "Summer"))

snails <- data.frame(design[rep(1:nrow(design), each = 3), ], y = y)

## Have a look at interaction plot ####

with(snails, interaction.plot(x.factor = density, trace.factor = season, response = y))

model <- aov(y ~ season * density, data = snails)

summary(model)

Use the codes above toanswerthe following questions

A. Conduct two way ANOVAwithout interaction with Rsoftware to test the effect of density and season on the response variable y .Take decision regarding the factors at 5% level of significance