---
title: "Sample Longbow Template"
author: "Jeremy Coyle"
date: "9/1/2017"
output: html_document
required_packages:  ['knitr', 'github://jeremyrcoyle/delayed@reduce-r-version', 'igraph@1.0.1']
params:
  data: 
    value: 
      type: 'web'
      uri: 'https://raw.githubusercontent.com/BerkeleyBiostats/tlapp/30821fe37d9fdb2cb645ad2c42f63f1c1644d7c4/cpp.csv'
  nodes:
    value:
      A: ['parity']
      W: ['haz']
  script_params:
    value:
      sample_size:
        input: 'numeric'
        value: 200
      threshold:
        input: 'checkbox'
        value: TRUE
  output_directory:
    value: ""
---

```{r setup, include=FALSE}
library(knitr)
knitr::opts_chunk$set(echo = TRUE)
```

```{r params}
library(longbowtools)
data <- get_tl_data()
nodes <- get_tl_nodes()
tl_params <- get_tl_params()
print(data)
print(nodes)
print(tl_params)
```

This is math: $y=x^2$
