---
title: "Sample Markdown"
author: "Data Scientist, Organization"
date: '`r Sys.Date()`'
output:
  html_notebook: default
---

This is a sample R markdown of an R accelerator. More infomation about acceleratoRs can be found [here](https://github.com/Microsoft/acceleratoRs).

## 1 Introduction

```{r}
print("Hello World!")
```

```{r}
library(ggplot2)

ggplot(data=iris) +
  geom_point(aes(x=Petal.Length, y=Petal.Width, color=Species)) +
  xlab("Length of Petal") +
  ylab("Width of Petal") +
  theme_bw()
```