Infelizmente deu o seguinte erro: grupoH<-subset(dados,grupo=="H") > modH<-lm(grupoH$pthi~grupoH$dose) Error in model.frame.default(formula = grupoH$pthi ~ grupoH$dose, drop.unused.levels = TRUE) : invalid type (NULL) for variable 'grupoH$pthi' > summary(modH) Error in summary(modH) : object 'modH' not found Ana