# Regressão linear simples
library(ggplot2)
# Leitura dos dados
dados <- read.table("regressao.csv", header = TRUE,sep = ";")
dados

# Correlacao e Covariancia
r_QP <- cor(dados$Quantidade, dados$Preço)
cov(dados$Quantidade, dados$Preço)

# Regressao linear
regress <- lm(Preço ~ Quantidade, data=dados)
summary(regress)

# Modelo no ggplot2 com intervalo de confiança
ggplot(dados, aes(Quantidade, Preço)) +
  geom_point() +
  geom_smooth(method = "lm")