---
title: "Tables in R"
author: "Andres Aravena, PhD"
date: "06 December 2016"
output: 
  html_document: 
    self_contained: no
---

```{r setup, include=FALSE}
# default options
knitr::opts_chunk$set(echo=FALSE, fig.height=4, fig.width=4)
library(knitr)
```

## Normal
```{r normal_table}
g7 <- read.table("http://anaraven.github.io/cmb1/2016/midterm/grades-7.txt", header=FALSE, row.names=1)
head(g7)
```

## With `kable()`
```{r nice_table}
kable(head(g7))
```

## Histogram
```{r}
hist(g7$V2, main="Histogram of Q7.1", col="green4")
```
