From 0e65009d31a643314ec0f0c6dbe1d21b72da5802 Mon Sep 17 00:00:00 2001
From: Pjotr Prins <pjotr.public01@thebird.nl>
Date: Tue, 25 Feb 2020 10:59:18 -0600
Subject: [PATCH] Load all data

---
 doc/load-data.Rmd   | 29 ++++++++++++++++++++++++++++-
 doc/rstudio-tips.md | 10 ++++++++++
 2 files changed, 38 insertions(+), 1 deletion(-)
 create mode 100644 doc/rstudio-tips.md

diff --git a/doc/load-data.Rmd b/doc/load-data.Rmd
index 198c830..9a3ffc5 100644
--- a/doc/load-data.Rmd
+++ b/doc/load-data.Rmd
@@ -62,4 +62,31 @@ Let's plot ELISA vs Time to diagnosis
 plot(ind_attr$ELISA ~ ind_attr$Time_to_diagnosis)
 ```
 
-So, it looks like late diagnosis has an effect.
+So, it looks like late diagnosis has an effect. This is just a quick example, let's continue loading sets from 
+
+```
+cytokines.csv
+final_outcome_jan2020.csv
+Individual_attributes.csv
+pcr.csv
+supernatant.csv
+transcriptomics.csv
+treg_phenotype_data.csv
+```
+
+```{r}
+cytokines = read.csv("cytokines.csv")
+final = read.csv("final_outcome_jan2020.csv")
+pcr = read.csv("pcr.csv")
+supernatant = read.csv("supernatant.csv")
+transcriptomics = read.csv("transcriptomics.csv")
+treg = read.csv("treg_phenotype_data.csv")
+```
+
+when they load you can explore the data in the top right enviroment or
+
+```{r}
+show(pcr$day[1:3])
+```
+
+It will show that not all rows are labeled. That means we will need a way to cross-reference by ID.
diff --git a/doc/rstudio-tips.md b/doc/rstudio-tips.md
new file mode 100644
index 0000000..0b44dc4
--- /dev/null
+++ b/doc/rstudio-tips.md
@@ -0,0 +1,10 @@
+# Tips
+
+## Useful keyboard shortcuts
+
+
+In markdown mode:
+
+Ctrl-Alt-I   Insert code block
+
+For more Rstudio see [shortcuts](https://support.rstudio.com/hc/en-us/articles/200711853-Keyboard-Shortcuts).