mv results v1

results/lab-meeting_preparation.Rmd → results/v1/lab-meeting_preparation.Rmd

----
-title: "lab-meeting"
-output:   
-  html_document
----
-
-
-```{r}
-library(tidyverse)
-
-
-x=runif(100,0,100)
-epsilon.simu = rnorm(100,0,16)
-y = 150 + 4*x + epsilon.simu
-mysimu1 = cbind(x, y)  %>% data.frame()
-mysimu1$epsilon = "eps ~ N(mean = 0, sd = 16)"
-
-ggplot(mysimu1) + geom_point(aes(x=x, y=y),col= "#00BFC4") + geom_abline(intercept = 150, slope = 4, col= "#F8766D") + ylim(100, 500) + xlim(0, 100)
-
-ggplot(mysimu1) + geom_abline(intercept = 150, slope = 4, col= "#F8766D") + ylim(100, 500) + xlim(0, 100)
-
-epsilon.simu= epsilon.simu %>% data.frame() %>% mutate(., epsilon = .) %>% select(-.)
-ggplot(epsilon.simu) + geom_density(aes(x=epsilon))
-
-```
-
-```{r message=FALSE, warning=FALSE, include=TRUE, results="hide"}
-
-x=runif(100,0,100)
-epsilon.simu = rnorm(1000,0,160)
-y = 150 + 4*x + epsilon.simu
-mysimu2 = cbind(x, y) %>% data.frame()
-mysimu2$epsilon = "eps ~ N(mean = 0, sd = 160)"
-ggplot(mysimu2) + geom_point(aes(x=x, y=y), col= "#00BFC4") + geom_abline(intercept = 150, slope = 4, col= "#F8766D") + ylim(100, 500) + xlim(0, 100)
-epsilon.simu= epsilon.simu %>% data.frame() %>% mutate(., epsilon = .) %>% select(-.)
-ggplot(epsilon.simu) + geom_density(aes(x=epsilon))
-
-```
-
-```{r message=FALSE, warning=FALSE, include=TRUE, results="hide"}
-dtf.merged <- rbind(mysimu1, mysimu2)
-
-ggplot(dtf.merged) + geom_point(aes(x=x, y=y), col= "#00BFC4") + geom_abline(intercept = 150, slope = 4, col= "#F8766D") + ylim(100, 500) + xlim(0, 100) + facet_grid(~epsilon)
-
-```
-
-```{r}
-dtf.merged <- rbind(mysimu1, mysimu2)
-
-ggplot(dtf.merged) + geom_point(aes(x=x, y=y), col= "#00BFC4")  + ylim(100, 500) + xlim(0, 100) + facet_grid(~epsilon)
-```
-
-```{r}
-x=runif(10,40,70)
-epsilon.simu = rnorm(10,0,100)
-y = 150 + 4*x + epsilon.simu
-mysimu1 = cbind(x, y)  %>% data.frame()
-mysimu1$epsilon = "eps ~ N(mean = 0, sd = 16)"
-
-ggplot(mysimu1) + geom_point(aes(x=x, y=y),col= "#00BFC4") + geom_abline(intercept = 150, slope = 4, col= "#F8766D")
-```
+---
+title: "lab-meeting"
+output:   
+  html_document
+---
+
+
+```{r}
+library(tidyverse)
+
+
+x=runif(100,0,100)
+epsilon.simu = rnorm(100,0,16)
+y = 150 + 4*x + epsilon.simu
+mysimu1 = cbind(x, y)  %>% data.frame()
+mysimu1$epsilon = "eps ~ N(mean = 0, sd = 16)"
+
+ggplot(mysimu1) + geom_point(aes(x=x, y=y),col= "#00BFC4") + geom_abline(intercept = 150, slope = 4, col= "#F8766D") + ylim(100, 500) + xlim(0, 100)
+
+ggplot(mysimu1) + geom_abline(intercept = 150, slope = 4, col= "#F8766D") + ylim(100, 500) + xlim(0, 100)
+
+epsilon.simu= epsilon.simu %>% data.frame() %>% mutate(., epsilon = .) %>% select(-.)
+ggplot(epsilon.simu) + geom_density(aes(x=epsilon))
+
+```
+
+```{r message=FALSE, warning=FALSE, include=TRUE, results="hide"}
+
+x=runif(100,0,100)
+epsilon.simu = rnorm(1000,0,160)
+y = 150 + 4*x + epsilon.simu
+mysimu2 = cbind(x, y) %>% data.frame()
+mysimu2$epsilon = "eps ~ N(mean = 0, sd = 160)"
+ggplot(mysimu2) + geom_point(aes(x=x, y=y), col= "#00BFC4") + geom_abline(intercept = 150, slope = 4, col= "#F8766D") + ylim(100, 500) + xlim(0, 100)
+epsilon.simu= epsilon.simu %>% data.frame() %>% mutate(., epsilon = .) %>% select(-.)
+ggplot(epsilon.simu) + geom_density(aes(x=epsilon))
+
+```
+
+```{r message=FALSE, warning=FALSE, include=TRUE, results="hide"}
+dtf.merged <- rbind(mysimu1, mysimu2)
+
+ggplot(dtf.merged) + geom_point(aes(x=x, y=y), col= "#00BFC4") + geom_abline(intercept = 150, slope = 4, col= "#F8766D") + ylim(100, 500) + xlim(0, 100) + facet_grid(~epsilon)
+
+```
+
+```{r}
+dtf.merged <- rbind(mysimu1, mysimu2)
+
+ggplot(dtf.merged) + geom_point(aes(x=x, y=y), col= "#00BFC4")  + ylim(100, 500) + xlim(0, 100) + facet_grid(~epsilon)
+```
+
+```{r}
+x=runif(10,40,70)
+epsilon.simu = rnorm(10,0,100)
+y = 150 + 4*x + epsilon.simu
+mysimu1 = cbind(x, y)  %>% data.frame()
+mysimu1$epsilon = "eps ~ N(mean = 0, sd = 16)"
+
+ggplot(mysimu1) + geom_point(aes(x=x, y=y),col= "#00BFC4") + geom_abline(intercept = 150, slope = 4, col= "#F8766D")
+```