adds small examples

Author: mstaniak

Materials/Lab_14/example_r.R

@@ -0,0 +1,32 @@
+library(dplyr)
+library(ggplot2)
+library(MASS)
+
+n_nonzero <- c(10, 100, 200)
+n_obs <- c(10000, 1000, 500)
+size <- c(1, 2, 5)
+
+single_experiment <- function(non_zero, obs, s) {
+    runif(1)
+}
+
+results_raw <- lapply(n_nonzero, function(non_zero){
+    lapply(n_obs, function(obs) {
+        lapply(size, function(s) {
+            data.frame(
+                n_nonzero = non_zero,
+                n_obs = obs,
+                size = s,
+                stat = single_experiment(non_zero, obs, s)
+            )
+        }
+        )}
+    )}
+)
+
+bind_rows(unlist(unlist(results_raw, recursive = FALSE), recursive = FALSE)) %>%
+    ggplot(aes(x = n_obs, y = stat, color = as.character(n_nonzero))) +
+        geom_point() +
+        theme_bw() +
+        facet_wrap(~size)
+

Materials/Lab_14/rmd_example.Rmd

@@ -0,0 +1,37 @@
+---
+title: "Laboratorium 14"
+author: "Mateusz Staniak"
+date: "`r format(Sys.time(), '%d - %m - %Y')`"
+output:
+  html_document:
+    df_print: paged
+    toc: true
+    toc_float: true
+    code_folding: hide
+    number_sections: true
+---
+
+```{r setup, include=FALSE}
+library(knitr)
+library(ggplot2)
+knitr::opts_chunk$set(echo = FALSE,
+                      warning = FALSE,
+                      message = FALSE)
+data("ChickWeight")
+```
+
+# Tabela
+
+```{r }
+kable(head(ChickWeight))    
+```
+
+Kolumny tej wspaniałej tabeli to `r paste(colnames(ChickWeight))`.
+
+# Wykres
+
+```{r }
+ggplot(ChickWeight, aes(x = Time, y = weight, group = Chick)) +
+    geom_line() +
+    theme_bw()
+```