---
title: "Tabela de Remédios" #dá o título do arquivo
output: word_document #especifica qual o formato do output
---

```{r file, echo=FALSE} 
tabela.remedios <- read.table("tabela.txt", header=TRUE, sep=" ", dec=",") #salva um data.frame com a tabela gerada pela função medica no R

```

```{r tabela, echo=FALSE, response="asis"}
library(knitr) #abre o pacote knitr, onde está a função kable, usada abaixo
kable(tabela.remedios, row.names=FALSE, align="c") #função kable transforma o data.frame em uma tabela, removendo a primeira coluna com os números das linhas (row.names=FALSE), e centralizando as colunas com (align="c")

```

Obrigada por usar a função medica! Melhoras!