## Analise dados <- read.table("dadosPoisson.csv",sep=",",header=TRUE,dec=".") summary(dados) ## Analise grafica par(mfrow=c(1,2)) boxplot(dados$resp ~ dados$grupo) boxplot(dados$resp ~ dados$posi) ## Modelo de regressão Poisson modelo = glm(resp ~ grupo + posi + grupo:posi,family=poisson,data=dados) summary(modelo)