---
title: "Introdução ao pacote reglin"
output: rmarkdown::html_vignette
author: Fábio N. Demarqui
vignette: >
  %\VignetteIndexEntry{Introdução ao pacote reglin}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```


```{r, message = FALSE}
library(reglin)
library(tidyverse)
library(ggpubr)

data(pureza)
glimpse(pureza)

ggplot(pureza, aes(x=percentual, y=pureza)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  stat_regline_equation(label.x = 1.4, label.y = 90, aes(label = after_stat(eq.label))) 

fit <- lm(pureza ~ percentual, data = pureza)
summary(fit)
```