Add data for lecture 6

Author: BaldanMatt

Exercise_padlet.Rmd

@@ -0,0 +1,25 @@
+---
+title: "Lecture 3 - Padlet exercise"
+output: html_notebook
+---
+# Preparing workspace
+```{r}
+library(tidyverse)
+```
+##Loading data
+```{r}
+corr_data <- as_tibble(read.csv("data/correlation_experiment.csv"))
+corr_data
+```
+
+# Padlet Plot
+```{r}
+TH = 0.05
+corr_data |> 
+  mutate(significance = ifelse(pvalue<=TH*1e-3, "***", ifelse(pvalue<=TH*1e-2,"**", ifelse(pvalue<=TH*1e-1,"*","")))) |>
+  ggplot(aes(x=variable,y=correlation,color=category, label=significance)) + 
+  geom_col(aes(fill=category),alpha=0.2) +
+  geom_text(nudge_y=0.05)
+```
+
+

Exercise_padlet.nb.html

@@ -0,0 +1,7 @@
+variable,category,correlation,pvalue
+A,F1,0.9,0.000000001
+B,F2,0.7,0.0000001
+C,F1,0.6,0.0001
+D,F3,0.22,0.15
+E,F3,0.2,0.12
+