diff --git a/aux/baskara.Rmd b/aux/baskara.Rmd
new file mode 100644
index 0000000000000000000000000000000000000000..e10ebf370db851317c1f1e7f24de72033d043631
--- /dev/null
+++ b/aux/baskara.Rmd
@@ -0,0 +1,44 @@
+---
+title: "Raízes de Equação de Segundo Grau"
+author: "Ferando Mayer & Walmes Zeviani"
+date: "`Sys.time()`"
+output:
+  rmarkdown::html_vignette:
+    fig_width: 6
+    fig_height: 6
+    toc: true
+    toc_dep: 3
+vignette: >
+  %\VignetteIndexEntry{Teorema de Pitágoras}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+```{r, include=FALSE, purl=FALSE, include=FALSE}
+## Carrega o pacote em desenvolvimento.
+library(devtools)
+load_all("../meupacote/")
+```
+
+Seja $f(x) = 3*x^2 - 1*x - 2$ uma parábola. Pela fórmula de Báskara
+podemos determinar as raízes dessa equação. A função `baskara()` retorna
+as raízes de uma função.
+
+```{r, eval=FALSE}
+## Carrega o pacote instalado.
+library(meupacote)
+```
+```{r}
+## Conteúdo disponível do pacote.
+ls("package:meupacote")
+
+## Calcula as raízes da função.
+r <- baskara(a = 3, b = -1, c = -2)
+r
+
+## Faz o gráfico.
+curve(3*x^2-1*x-2, from = -1, to = 1)
+abline(v = r, lty = 2)
+
+## Mostrar como usar o método plot() e coef().
+```