roebe 0.5.191

data/lib/roebe/www/R/R.rb

@@ -0,0 +1,1492 @@
+english('R - The Programming Language') {
+created_on '18.03.2023' # Saturday.
+autoextend
+default_template '
+
+a, a:link {
+  text-decoration: none;
+}
+
+p.default {
+  padding: 0.1em;
+  margin-top:0.1em;
+}
+
+div.default {
+  margin: 0px;
+}
+/*
+
+This used to have the following CSS rule until March 2023:
+
+  width:  12px;
+  height: 12px;
+  border-radius: 70%;
+  background: orange;
+
+*/
+h2:before {
+  content: "";
+  display: inline-block;
+  vertical-align: middle;
+  margin-right: 1px;
+}
+b.file {
+  color: lightgreen;
+}
+
+'
+favicon 'programming/R/R_FAVICON.png'
+body_css_class 'mar0px s2px padt2px VERDANAs'
+body_css_style 'background-color: #d3d2d1; border: 2px dotted limegreen;'
+default_font_size
+
+DOT = sg(:dot105,'marr10px')
+
+# =========================================================================== #
+# === docu_link
+# =========================================================================== #
+def docu_link(i)
+  abr(i, content: i, css_class: 'slateblue BO')
+end
+
+# =========================================================================== #
+# === rlink
+# =========================================================================== #
+def rlink(
+    i, desc = ''
+  )
+  abr(i, content: DOT+desc, css_class: 'marl1em slateblue BO')
+end
+
+doc_preferred_width('mar0px pad0px s0_8em') {
+  h1 dot(106, 'marr8px')+
+     title?,
+     'mart1px marb0_5em'
+  # ========================================================================= #
+  # === Was ist R?
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#was_ist_r
+  # ========================================================================= #
+  fancy2 'Was ist R?'
+  p_default_le {
+    e 'R ist eine <span class="BOLD darkblue">quelloffene
+    Implementierung</span> der S-Plus Programmiersprache.'
+    br
+    e '<quote>R ist mehr als eine Programmiersprache - es ist
+    eine interaktive Umgebung um <b class="crimson">Statistik</b>
+    anzuwenden.</quote>','marl2em'
+    br
+    e 'R verfügt über verschiedene Datentypen wie zum Beispiel
+    <b>Vektoren</b> (numerical, character, logical)
+    Matrizen, data frames, sowie Listen.'
+    br
+    e 'R ist Zeichenspezifisch. <b>FOO</b>, <b>Foo</b>, und
+    <b>foo</b> sind drei verschiedene <b>Objekte</b>.','',
+    '','margin-left: 1.3em'
+  }
+  # ========================================================================= #
+  # === Erklärungen der grundlegenden Befehle in R.
+  # ========================================================================= #
+  # Array tag. c tag. vector tag.
+  # ========================================================================= #
+  fancy2 'Erklärungen der grundlegenden Befehle in R'
+  p_default_le {
+    e 'Um eine Liste an Nummern zu verwenden benutzt man das 
+    <i class="tomato BOLD">c</i> command. Diese Liste wird
+    auch <b>Vektor</b> in R genannt.'
+    br
+    lem pfeil_rechts+'Der Grund wieso man <i class="tomato BOLD">c</i> 
+    für eine Liste verwendet ist das <i class="tomato BOLD">c</i> für 
+    <b class="FI darkblue italic">combine</b> steht.' # c tag
+    br
+    e 'Mit anderen Worten, braucht man einen <b>Array</b>, so
+    verwendet man <b>c</b> in der Programmiersprache R.'
+    br
+    e '<b>Assignments</b> in R nimmt man mittels des sogenannten
+    <b>assignment Operators <-</b> vor.'
+    br
+    e' Beispiele hierzu:'
+    br
+    cmd '  a <- 55'
+    cmd '  b <- m*c^2'
+    br
+    anm 'Eine Liste von Nummern wird auch als <b>Vektor</b> bezeichnet.'
+    brbr
+    e 'Mittels ; als Separator kann man mehrere Eingaben hintereinander
+    eingeben.'
+    br
+    e 'Nummern innerhalb des c Commands werden mittels <b>commas</b> getrennt.'
+    br
+    e 'Beispiel:'
+    br
+    cmd 'array <- c(3,5,7,9)'
+    in_ruby 'array = [3,5,7,9]'
+    br
+    anm 'Man bedenke das diese Vektoren in R bei <b>1</b> anfangen - und nicht
+    wie in Ruby bei 0. Ein <b>Array</b> in R beginnt somit bei 1.','marl3em'
+    brbr
+    # ======================================================================= #
+    # How to calculate how many entries are in an Array (array size)
+    # ======================================================================= #
+    e 'Wie finden wir heraus, <b class="royalblue">wieviele Elemente in 
+    einem Array sind</b>?'
+    br
+    e 'Mittels <b>length()</b>:'
+    br
+    cmd 'length(array)# [1] 69'
+    br
+  }
+  # ========================================================================= #
+  # === Kurze Beispiele in R
+  # ========================================================================= #
+  fancy2 'Kurze Beispiele in R'
+  p_default_le {
+    e 'Gib einen String oder eine Variable aus in <b>R</b>:'
+    br
+    cmd '  print("Hello World!")'
+    br
+    e 'Füge zwei Strings zusammen (<i>string append</i>, <i>string
+    concat</i>).'
+    br
+    e 'Das Zusammenführen von zwei Strings geht mittels 
+    <b class="darkblue">paste()</b>, wie im folgenden Beispiel
+    gezeigt wird:'
+    br
+    cmd '  s1 <- "R-"'
+    cmd '  s2 <- "project"'
+    br
+    cmd '  paste(s1, s2, sep = "")'
+    br
+    cmd '  paste("min:        ", min (x$DS1, na.rm=T)))'
+    br
+    e 'Schreibe in die Datei RESULT.txt hinein (oder gib dies am
+    Bildschirm aus:'
+    br
+    cmd '  cat("end\n", file="RESULT.txt", append=TRUE)'
+  }
+  # ========================================================================= #
+  # === Mittelwert                                                 (mean tag)
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#mittelwert
+  # ========================================================================= #
+  fancy2 'Mittelwert'
+  p_default_le {
+    e 'Den <b>Mittelwert</b> (== <b>Stichprobenmittelwert</b>) berechnet
+    man in <b>R</b> wie folgt:'
+    br
+    cmd '  mean()'
+    cmd '  mean(array)'
+  }
+  # ========================================================================= #
+  # === Median tag
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#median
+  # ========================================================================= #
+  fancy2 'Median'
+  p_default_le(id: 'median') {
+    cmd '  median(array)'
+  }
+  # ========================================================================= #
+  # === Die Varianz                                            (variance tag)
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#variance
+  # ========================================================================= #
+  fancy2 'Variance'
+  p_default_le {
+    e 'Was ist die Varianz?'
+    br
+    e 'Die Berechnung der Varianz erfolgt indem wir von jedem Wert aus der Urliste
+    das arithmetische Mittel abziehen. Diese Summe wird quadriert und mit den
+    entsprechenden anderen Werten addiert. Zuletzt dividiert man dann das ganze
+    noch durch die Anzahl der Datensätze.'
+    br
+    e 'Die Varianz (<i>variance</i>) zu finden geht so:'
+    br
+    cmd '  var(c(1,2,3,4,5,6,7))'
+    br
+    e 'Nehmen wir noch einmal den <b>Schüler</b> heran, der an
+    <b class="darkblue">5 Tagen</b> je 12,11,14,16 und 15 Minuten
+    zur Schule benötigt.'
+    br
+    e 'Die <b>Varianz</b> dieser Datensätze liegt dann bei:'
+    br
+    cmd '  var(c(12.0,11.0,14.0,16.0,15.0)) # 4.3'
+    cmd '  var(array)'
+  }
+  # ========================================================================= #
+  # === Standardabweichung tag (via sd())
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#standardabweichung_stichprobenstandardabweichung
+  # ========================================================================= #
+  fancy2 'Standardabweichung (Stichprobenstandardabweichung)'
+  p_default_le {
+    e 'Die <span class="BG_Black BOLD gold pad2px">Standardabweichung</span> wird berechnet, 
+    indem aus der <b>Varianz</b> die quadratische Wurzel gezogen wird.'
+    br
+    e 'Die <b>Standardabweichung</b> (<b>sd</b>, für <i>standard
+    deviation</i>) in R zu berechnen geht wie folgt:'
+    br
+    cmd '  sd(c(1,2,3,4,5,6,7))'
+    cmd '  sd(c(12, 11, 14, 16, 15))'
+    cmd '  sd(array)'
+  }
+  # ========================================================================= #
+  # === Interquartilsabstand tag
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#interquartilsabstand_iqr
+  # ========================================================================= #
+  fancy2 'Interquartilsabstand (IQR)'
+  p_default_le {
+    e 'Der <b>Interquartilsabstand</b> (IQR) beschreibt die mittleren <b>50%</b>
+    der Werte wenn sie vom kleinsten zu größten Wert geordnet sind. Er
+    ist eine Masszahl für die Streuung der Daten.'
+    br
+    e 'Berechnet wird der <b>IQR</b> aus der <b>Differenz</b> des 3. und des 1.
+    Quartils (IQR = x<sub>0.75</sub> - x<sub>0.25</sub>).'
+    br 
+    e 'Der <b>IQR</b> (Q3 - Q1) wird in R berechnet über:'
+    br
+    cmd '  IQR(array)'
+    br
+    anm 'Einen <b>einfacheren Lösungsweg</b>, ohne R, liefert folgende Formel:'
+    brbr
+    e 'Wenn nα ganzzahlig ist:       qα ∈ [x(nα) , x(nα+1) ] # zum Beispiel bei 80'
+    e 'Wenn nα NICHT ganzzahlig ist: qα = x([nα]+1)          # zum Beispiel bei 26.4'
+  }
+  # ========================================================================= #
+  # === Variationskoeffizient
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#variationskoeffizient
+  # ========================================================================= #
+  fancy2 'Variationskoeffizient'
+  p_default_le {
+    e 'Der <b>Variationskoeffizient</b> beschreibt die Streuung der Daten einer
+    Stichprobe um ihren Mittelwert herum.'
+    br
+    e 'Dies erhält man auch über die Standardabweichung - der Vorteil
+    des <b>Variationskoeffizient</b> ist jedoch das dieser unabhängig
+    ist von der Maßeinheit der Daten aus der Stichprobe.'
+    br
+    e 'Berechnet wird der Variationskoeffizient (V), indem die
+    Standardabweichung (s) durch den Mittelwert (x̄) der Daten
+    der Stichprobe geteilt wird.'
+    br
+    cmd '  result <- sd(array) / mean(array) * 100; result'
+    br
+    anm 'Gegebenenfalls darf man <b>nicht</b> mit 100 multiplizieren.'
+  }
+  # ========================================================================= #
+  # === mean tag - Arithmetisches Mittel (der Mittelwert).
+  # ========================================================================= #
+  fancy2 'mean'
+  p_default_le {
+    e 'Den <b>Durchschnittswert</b>, also <b>mean()</b>, auch bekannt als
+    das "<i>arithmetische Mittel</i>", kann man wie folgt berechnen:'
+    br
+    cmd '  mean(c(1,2,3,4,5,6,7)) # Ergibt 4'
+    br
+    e 'Sehen wir uns noch ein Beispiel an.'
+    br
+    e 'Ein Schüler braucht an 5 Tagen 12,11,14,16 und 15 Minuten zur Schule.
+    Wie viele Minuten benötigt er im Durchschnitt um zur Schule zu gelangen?'
+    br
+    cmd '  mean(c(12,11,14,16,15)) # 13.6'
+  }
+  # ========================================================================= #
+  # === System tag
+  # ========================================================================= #
+  fancy2 'system'
+  p_default_le {
+    e 'Man kann in R auch externe Software aufrufen.'
+    br
+    e 'Dies geschieht mittels <b>system</b>.'
+    br
+    cmd '  system("ls")'
+    br
+    e 'Beispiel:'
+    br
+    cmd '  current_working_directory <- shell("dir", intern=T) # reads current working
+    directory and assigns to file'
+    cmd '  shell.exec("C:/Documents and Settings/Administrator/
+    Desktop/my_file.txt") # opens file with associated program'
+  }
+  # ========================================================================= #
+  # === Spannweite
+  # ========================================================================= #
+  fancy2 'Spannweite'
+  p_default_le {
+    e 'Die Spannweite ist die Differenz zwischen dem größten und
+    dem kleinsten Wert in einem Datensatz.'
+    br
+    cmd '  max(array, na.rm=TRUE) - min(array, na.rm=TRUE)'
+  }
+  # ========================================================================= #
+  # === Quartile in R tag
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#quartile_und_quantile_in_r
+  # ========================================================================= #
+  fancy2 'Quartile und Quantile in R'
+  p_default_le {
+    e 'Das 25%-Quantil ist der Wert, der größer ist als 25% der Werte der 
+    Datenreihe.'
+    br
+    e 'Dementsprechend ist das 90%-Quantil derjenige Wert, der größer ist 
+    als 90% der Stichprobe.'
+    br
+    e 'Das 50% Quantil ist gleichbedeutend mit dem <b>Median</b>.'
+    br
+    e 'Die allgemeine Syntax für R ist hierbei:'
+    br
+    cmd '  quantile(array)'
+    br
+    e '  10%-Quantil: quantile(array, 0.10)'
+    e '  25%-Quantil: quantile(array, 0.25)'
+    e '  75%-Quantil: quantile(array, 0.75)'
+    e '  90%-Quantil: quantile(array, 0.80)'
+    e '  90%-Quantil: quantile(array, 0.90)'
+    e '  90%-Quantil: quantile(array, 0.95)'
+  }
+  # ========================================================================= #
+  # === Dir tag
+  # ========================================================================= #
+  fancy2  'dir'
+  p_default_le {
+    e 'Alle Dateien im aktuellen Verzeichnis einsehen kann man via dir():'
+    br
+    cmd '  dir()'
+  }
+  # ========================================================================= #
+  # === Hilfe tag, Help tag.
+  # ========================================================================= #
+  fancy2  'Help'
+  p_default_le {
+    e 'Hilfe kann man via help() interaktiv einsehen:'
+    br
+    cmd '  help(read.csv)'
+    br
+    e 'Hilfe zu einer Funktion anzeigen kann man so::'
+    br
+    cmd '  ?summary'
+  }
+  # ========================================================================= #
+  # === R Studio                                               (r-studio tag)
+  # ========================================================================= #
+  fancy2 'R Studio'
+  p_default_le {
+    e 'Wie installieren wir <b>R Studio</b> auf Linux?'
+    br
+    cmd '  install.packages(c("dplyr","ggplot2"))'
+  }
+  # ========================================================================= #
+  # === options tag. Option tag.
+  # ========================================================================= #
+  fancy2 'Options'
+  p_default_le {
+    e 'Um die Nachkommastellen angezeigt bekommen kann man die
+    <b>options()</b> Funktion verwenden:'
+    br
+    cmd '  options(digits=17)'
+    br
+    e 'Alle Optionen erhält man so:'
+    br
+    cmd '  options()'
+  }
+  # ========================================================================= #
+  # === Function tag. functions tag.
+  # ========================================================================= #
+  fancy2 'function()'
+  p_default_le {
+    e '<b>Funktionen</b> in R sind Objekte.'
+    br
+    e 'Man kann in R natürlich auch seine eigenen Funktionen
+    erstellen.'
+    br
+    e 'Dies geht über <span class="BOLD yel">function()</span>.'
+    br
+    e 'Die allgemeine Syntax hierzu ist folgende:'
+    br
+    cmd  '  name_of_function <- function(arg1, arg2, ... ){'
+    cmd2 '  statements'
+    cmd2 '  return(object)'
+    cmd  '  }'
+    br
+    e 'Jede Funktion in R hat folgende 3 Teile:'
+    br
+    table2 'mars1em','','',
+      '<b class="darkblue">body()</b>','dies ist der Code innerhalb
+       einer Funktion',
+      '<b class="darkblue">formals()</b>','dies inkludierte die
+       Liste an Argumenten die das Verhalten der Funktion kontrollieren',
+      '<b class="darkblue">environment()</b>','dies ist die Umgebung
+       der Variable in einer Funktion'
+    br
+    anm 'Das ganze kann man sogar aufrufen, siehe:'
+    cmd '  body(name_of_function)'
+    cmd '  body(my_summary)'
+    br
+    e 'Interessanterweise kann man auch mehrere Zwischenwerte
+    speichern:'
+    br
+    cmd  '  foo <- function(x, y) {'
+    cmd2 '    z1 <- x + y'
+    cmd2 '    z2 <- x + 2*y'
+    cmd2 '    list(result1=z1, result2=z2)'
+    cmd  '  }'
+    cmd  '  foo(2, 5)'
+    br
+    anm 'Eine Funktion in R kann man anschauen indem man den
+    Namen der Funktion eintippt, ohne die ().'
+  }
+  # ========================================================================= #
+  # === Rnorm tag, qq-diagramm tag
+  # ========================================================================= #
+  fancy2 'rnorm / QQ-Diagramme'
+  p_default_le {
+    e 'QQ-Diagramme - auch Q-Q-Plot genannt - können herangezogen werden um
+    zu determinieren ob eine Variable normalverteilt vorliegt. Man kann
+    somit den Datensatz auf eine Normalverteilung hin überprüfen und die
+    Formen der Verteilungen vergleichen.'
+    br
+    e 'Der Befehl der hierzu in R verwendet wird ist <b>rnorm()</b>.'
+    br
+    cmd '  x <- rnorm(100,2,5)'
+    cmd '  qqnorm(x)'
+    cmd '  qqline(x)' 
+    br
+    e 'Erstelle pseudo-random normal Vektoren mit x- und y-coordinates 
+    via rnorm().'
+    br
+    e 'Dies mag hilfreich sein um ein "dummy dataset" zu erzeugen, da 
+    verschiedene Sequenzen erstellt werden.'
+    br
+    e 'Die Anzahl an Nummern die generiert wird wird in den () angegeben.'
+    br
+    cmd '  x <- rnorm(50)'
+    cmd '  y <- rnorm(x)'
+    cmd '  plot(x,y) # Zeichnen'
+    cmd '  rnorm(n=100, mean=3,sd=1)'
+    br
+    e 'Wie interpretieren wir das ganze?'
+    br
+    e 'Zur Interpretation eines Q-Q-Plots muss man darauf achten, wie gut
+    die Punkte mit der Geraden übereinstimmen. Je näher die Punkte an der
+    Gerade liegen, desto mehr spricht die Graphik für eine Normalverteilung.'
+    br
+  }
+  # ========================================================================= #
+  # === Titles tag, Title tag.
+  # ========================================================================= #
+  fancy2 'Titles'
+  p_default_le {
+    e 'Die <b>title()</b> Funktion kann verwendet werden um Labels zu
+    einem Plot hinzuzufügen.'
+    br
+    e 'Diese Funktion akzeptiert <b>4 Argumente</b>.'
+    br
+    cmd 'title(main="main title", sub="sub-title",
+    xlab="x-axis label", ylab="y-axis label")'
+    br
+    anm 'Man kann auch einen Titel mit mehreren Zeilen verwenden:'
+    br
+    cmd '  title(main="This is \nTitle")'
+    br
+    e 'Will man eine <b>rote Schrift</b> verwenden so geht dies wie
+    folgt:'
+    br
+    cmd '  title(main="Autos", col.main="red", font.main=4)'
+  }
+  # ========================================================================= #
+  # === plot tag
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#plot
+  # ========================================================================= #
+  fancy2 'plot'
+  p_default_le(id: 'plot') {
+    e 'Mittels plot() zeichnet man Datentypen.'
+    br
+    cmd '  plot(x, y)'
+    br
+    e 'Man kann die X und Y Achse umbenennen, zum Beispiel so:'
+    br
+    cmd '  xlab=expression(phi) # get the Greek letter as the x-axis label.'
+    br
+    e 'Die X-Axis kann man komplett eliminieren wie folgendes Beispiel zeigt:'
+    br
+    cmd "  plot(x,y, xaxt = 'n')"
+    cmd '  plot(1:10, xaxt = "n", xlab="Some Letters")'
+    br
+    e 'Man kann auch eine bestimmte Farbe verwenden, und zwar mittels 
+    <b>col</b>:'
+    br
+    cmd '  plot(cars, type="o", col="blue")'
+    br
+    e 'Das ganze sieht dann in etwa so aus:'
+    br
+    dimg 'programming/R/R_PICTURE_01.png',
+         'marl2em round_bblack2'
+    brbr
+    e 'API Docu:'
+    br
+    cmd '  plot(x, y, main="title", sub="subtitle",
+    xlab="X-axis label", ylab="y-axix label",
+    xlim=c(xmin, xmax), ylim=c(ymin, ymax))'
+    br
+    e 'Folgende <b class="darkblue">plot-Typen</b> sind möglich:'
+    br
+    table2 'mars4em mart1px','','',
+      '<b class="yel marr1em">p</b>','für points',
+      '<b class="yel marr1em">l</b>','für lines',
+      '<b class="yel marr1em">b</b>','für both',
+      '<b class="yel marr1em">c</b>','für the lines part alone of "b"',
+      '<b class="yel marr1em">o</b>','für both "overplotted" (connected-dots Modus)',
+      '<b class="yel marr1em">h</b>','für "histogram" like (or "high-density") vertical lines',
+      '<b class="yel marr1em">s</b>','für stair steps',
+      '<b class="yel marr1em">S</b>','für other steps, see "Details" below',
+      '<b class="yel marr1em">n</b>','für no plotting'
+    br
+    anm 'Will man einen Titel setzen, so muss zuvor <b>title()</b> 
+    aufgerufen werden.'
+    br
+    e 'Plotting symbols:'
+    br
+    cmd 'pch =  0, square'
+    cmd 'pch =  1, circle'
+    cmd 'pch =  2, triangle point up'
+    cmd 'pch =  3, plus'
+    cmd 'pch =  4, cross'
+    cmd 'pch =  5, diamond'
+    cmd 'pch =  6, triangle point down'
+    cmd 'pch =  7, square cross'
+    cmd 'pch =  8, star'
+    cmd 'pch =  9, diamond plus'
+    cmd 'pch = 10, circle plus'
+    cmd 'pch = 11, triangles up and down'
+    cmd 'pch = 12, square plus'
+    cmd 'pch = 13, circle cross'
+    cmd 'pch = 14, square and triangle down'
+    cmd 'pch = 15, filled square'
+    cmd 'pch = 16, filled circle'
+    cmd 'pch = 17, filled triangle point-up'
+    cmd 'pch = 18, filled diamond'
+    cmd 'pch = 19, solid circle'
+    cmd 'pch = 20, bullet (smaller circle)'
+    cmd 'pch = 21, filled circle blue'
+    cmd 'pch = 22, filled square blue'
+    cmd 'pch = 23, filled diamond blue'
+    cmd 'pch = 24, filled triangle point-up blue'
+    cmd 'pch = 25, filled triangle point down blue'
+    br
+    remote_image(
+      'http://www.sthda.com/sthda/RDoc/figure/graphs/r-plot-pch-symbols-points-in-r.png',
+      css_class: 'BG_White mar1em bblack2'
+    )
+    br
+    e 'Nun einige Beispiele:'
+    br
+    cmd '  plot(x, type = "p")' # für points
+    cmd '  plot(x, type = "o")' # für overplotting, also connected-dots
+  }
+  # ========================================================================= #
+  # === Histogram                                   (histogram tag, hist tag)
+  # ========================================================================= #
+  fancy2 'Histogram'
+  p_default_le {
+    e 'You can draw a histogram in R via hist() like the following
+    code demonstrates:'
+    br
+    # First build up the dataset
+    cmd '  y = c(2.22, 1.38, 2.23, 2.85, 2.52, 2.91, 1.15,
+    2.58, 1.92, 2.89, 2.64, 2.68, 0.12, 1.26, 2.54, 2.47,
+    1.08, 2.62, 2.72, 2.63, 1.08, 1.88, 2.62, 2.6, 2.24,
+    2.83, 0.85, 2.67, 2.45, -0.86, 2.82, -0.52, 1.92, 2.01)'
+    br
+    cmd '  hist(y)'
+    br
+    e 'This may look like this:'
+    br
+    dimg 'https://i.imgur.com/vVAItoS.png',
+         'mars3em'
+  }
+  # ========================================================================= #
+  # === quit tag, exit tag.
+  # ========================================================================= #
+  fancy2 'R beenden'
+  p_default_le {
+    e 'Um R zu beenden kann folgender Befehl eingesetzt werden:'
+    br
+    cmd 'q()'
+  }
+  # ========================================================================= #
+  # === Anwendung von str() in R                                    (str tag)
+  # ========================================================================= #
+  fancy2 'Anwendung von str() in R'
+  p_default_le {
+    frage 'Wie kann man den <b>Typ eines Objektes</b> in R anzeigen?'
+    br
+    e 'Mittels <b>str()</b>'
+    br
+    cmd '  b <- 55; str(b)'
+    br
+    anm 'class() existiert auch, gibt aber weniger Information zurück.'
+  }
+  # ========================================================================= #
+  # === String-Arrays in R                                    (string arrays)
+  # ========================================================================= #
+  fancy2 'String-Arrays in R'
+  p_default_le {
+    e 'Auch <b class="darkblue">String Arrays</b> kann man verwenden, wie
+    folgendes Beispiel zeigt:'
+    br
+    cmd '  array = c("cat","dog","deer")'
+    cmd '> array'
+    cmd ' [1] "cat"  "dog"  "deer"'
+  }
+  # ========================================================================= #
+  # === Vectors tag Vector tag. Vektor tag.
+  # ========================================================================= #
+  fancy2 'Vectors'
+  p_default_le {
+    e 'Vectors sind der primäre Datentyp in R.'
+    br
+    e 'Vectors erstellt man mittels der internen <b>c</b> Funktion,
+    wie bereits oben gezeigt:'
+    br
+    cmd '  a <- c(2,3,5,7)'
+    br
+    e '<b>a</b> als Vektor hat nun 4 Primzahlen.'
+    br
+    e 'Auf Elemente eines Vectors kann man mittels <b>[]</b> zugreifen.'
+    br
+    e 'In diesem Beispiel hier ergäbe a[3] 
+    <span class="tomato BOLD">5</span>.'
+    br
+    e 'Eine weitere Methode ist folgende welche, und zwar
+    <b class="slateblue">:</b>:'
+    br
+    cmd '  vector <- seq(1:8)'
+    br
+    e 'Dies erstellt eine <b>Reihe</b> von 1 bis 8.'
+    in_ruby '(1..8).to_a # => [1, 2, 3, 4, 5, 6, 7, 8]'
+  }
+  # ========================================================================= #
+  # === Matrix tag.
+  # ========================================================================= #
+  fancy2 'Matrix'
+  p_default_le {
+    e 'Eine Matrix in R kann man so definieren:'
+    br
+    cmd '  matrix = as.data.frame(matrix(1:12, ncol = 4))'
+    cmd '  colnames(matrix) = LETTERS[1:4]'
+    cmd '  matrix'
+    br
+    e 'Das Ergebnis sieht dann in etwa so aus:'
+    br
+    pre '    A B C  D
+  1 1 4 7 10
+  2 2 5 8 11
+  3 3 6 9 12'
+  }
+  # ========================================================================= #
+  # === Der Standardfehler
+  # ========================================================================= #
+  fancy2 'Der Standardfehler im t-Test'
+  p_default_le {
+    e 'Der t-Test berechnet einen bestimmten Wert (den t-Wert), welcher
+    wiederum die Anzahl an Standardfehlern (auch SEM genannt) wiedergibt,
+    die unsere Stichproben vom einem Mittelwert von Null entfernt sind.'
+    br
+    e 'Der Standardfehler errechnet sich aus der Standardabweichung.'
+    br
+    e 'Die Annahme in einem t-Test ist das sich zwei Vergleichsgruppen in der
+    Standardabweichung ("normal distributions") mit gleicher Varianz befinden.'
+    br
+    anm 'Die Standardabweichung wird zur Berechnung des t-Tests benötigt.'
+    brbr
+    e 'Die Formel für die Teststatistik ist:'
+    br
+    cmd '  T = Mittelwert - µ0 / sigma / Wurzel aus n'
+    br
+    e 'Sehen wir uns hierzu ein Beispiel an.'
+    br
+    e 'Gegeben ist folgender Array:'
+    br
+    cmd '  array = c(3.88,3.92,3.38,3.57,3.52,3.54,3.89,3.19,2.72,4.38,4.02,3.54,3.30,2.48,3.94,4.26)'
+    br
+    e 'Nun berechnen wir zuerst den Mittelwert:'
+    br
+    cmd '  mean(array) # 3.595625'
+    br
+    e 'Als nächstes benötigen wir µ0 - dies ist unser <b>Vergleichswert</b>.
+    Hier nehmen wir mal <b>3.6</b> an.'
+    br
+    e 'n ist 16. Die Standardabweichung s ist 0.5131857.'
+    br
+    e 'Also:'
+    br
+    cmd '  T = ( 3.595625 - 3.6 ) / (0.5131857 / Wurzel_aus(16))'
+    cmd '  ( 3.595625 - 3.6 ) / (0.5131857 / Math.sqrt(16)) -0.03410071636836348'
+  }
+  # ========================================================================= #
+  # === Rcmdr
+  # ========================================================================= #
+  fancy2 'Rcmdr'
+  p_default_le {
+    e 'Wie starten wir Rcmdr?'
+    br
+    cmd 'library(Rcmdr)'
+  }
+  # ========================================================================= #
+  # === Range tag
+  #
+  # Dies spezifiert einen Bereich, von-bis.
+  # ========================================================================= #
+  fancy2 'Range'
+  p_default_le {
+    e 'Von 1 bis 20 zählen wie folgt:'
+    br
+    cmd '  x <- 1:20'
+    in_ruby '1..20'
+    br
+    e 'Von 2 bis 8 zählen wir dergestalt:'
+    br
+    cmd '  x = 2:8'
+    in_ruby '2..8'
+    br
+    e 'Dies scheint das selbe zu machen wie <b class="darkblue">seq()</b>.'
+    br
+    e 'Und natürlich auch so:'
+    br
+    cmd ' x = 1:20'
+    br
+    e 'Geht auch indem man "annimmt", das es sich um Jahreszahlen handelt:'
+    br
+    cmd '  2008:2014 # [1] 2008 2009 2010 2011 2012 2013 2014'
+  }
+  # ========================================================================= #
+  # === Setzen des Arbeitsverzeichnis
+  # ========================================================================= #
+  fancy2 'Setzen des Arbeitsverzeichnis in R'
+  p_default_le {
+    cmd 'setwd("/web/com")'
+  }
+  # ========================================================================= #
+  # === Schiefe
+  # ========================================================================= #
+  fancy2 'Schiefe'
+  p_default_le {
+    e 'Schiefe berechnen:'
+    br
+    cmd 'skewness(x)'
+  }
+  # ========================================================================= #
+  # === Percentiles
+  # ========================================================================= #
+  fancy2 'Percentiles in R'
+  p_default_le {
+    e 'Wie verwenden wir percentiles in R?'
+    br
+    e 'Das nthe Percentil ist der Wert der die ersten n Prozent abschneidet, 
+    sofern die Daten in aufsteigender Größe geordnet sind.'
+    br
+    cmd '  sorted = sort(array)'
+    cmd '  quantile(sorted, c(.8, .9)) # dies steht für 80% und 90% Quantile'
+  }
+  # ========================================================================= #
+  # === Comments in R                                          (comments tag)
+  # ========================================================================= #
+  fancy2 'Kommentare in R (comments in R)'
+  p_default_le {
+    e 'Verwende <b>#</b>.'
+  }
+  # ========================================================================= #
+  # === density()
+  # ========================================================================= #
+  fancy2 'density()'
+  p_default_le {
+    e 'Die Funktion density() berechnet <b>kernel density estimates</b>.
+    Damit berechnet man die Wahrscheinlichkeit mit der die
+    Hauptvariable bestimmte Werte annehmen kann.'
+    br
+    cmd '  plot(density(x))'
+    br
+    e 'Mehr Informationen zu density() gibt es hier:'
+    br
+    selfy 'https://www.rdocumentation.org/packages/stats/versions/3.6.2/topics/density',
+             css_class: 'BOLD mars3em'
+  }
+  # ========================================================================= #
+  # === CSV Dateien einlesen                               (csv tag, cvs tag)
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#csv
+  # ========================================================================= #
+  fancy2 'CSV Dateien einlesen'
+  p_default_le(id: 'csv') {
+    e 'Wir können <b class="orange">.csv</b> Dateien einlesen - auch
+    <b>importieren</b> genannt - mittels der Funktion <b class="darkblue">
+    read.csv()</b>.'
+    br
+    lem2 'Das <b>erste Argument</b> ist der Name der Datei.'
+    lem2 'Das <b>zweite Argument</b> sagt ob die erste Reihe ein Satz von
+    Labels ist.'
+    lem2 'Das <b>dritte Argument</b> bestimmt den Separator.'
+    br
+    e 'Beispiele für <b class="lightorange">read.csv()</b>:'
+    br
+    cmd '  x = read.csv(file = "x.csv",head=TRUE,sep=",")'
+    cmd '  x <- read.csv(file = "simple.csv",head=TRUE,sep=",")'
+    cmd '  csv <- read.csv(file="/Users/x/DATA/PC/CVS/test.cvs",head=TRUE,sep=",")'
+    cmd '  csv2 = read.csv(file="/Depot/Downloads/trees91.csv",head=TRUE,sep=",")'
+    cmd '  csv = read.csv("/Users/x/DATA/STUDIUM/YAML/passed_exams_per_month.csv")'
+    br
+    e 'Oder:'
+    br
+    cmd 'data <- read.table("c:/mydata.csv", header=TRUE, sep=",", row.names="id")'
+    br
+    cmd '
+      x = read.csv("/home/x/studium/BOKU_WIEN/851100_Angewandte_Statistik/2021W/Exercise01-AngewStat2021W-part2-066.csv", head=TRUE, sep=",")
+    '
+    br
+    anm 'Diese <b>CSV Tabelle</b> kann dann mittels 
+    <b class="darkred">summary()</b> ausgegeben werden.'
+    brbr
+    cmd '  summary(csv)'
+    cmd '  summary(read.csv("/root/DiamondShell/celsius_to_fahrenheit.csv"))'
+    br
+    anm "Dies mag zu einer Fehlermeldungen führen wie
+    <b>duplicate 'row.names' are not allowed</b>. Hier kann
+    man eine andere Variante verwenden, und row.names=NULL setzen."
+    brbr
+    cmd '  csv = read.table("/home/x/studium/yaml/passed_exams_per_month.csv", 
+    header=TRUE, sep=",", row.names=NULL)'
+    br
+    e 'oder'
+    br
+    cmd '  csv <- read.csv("/home/x/studium/yaml/passed_exams_per_month.csv", row.names=NULL)'
+    br
+    e 'Mittels des <b>sep</b> Arguments kann man einen beliebigen Separator
+    verwenden.'
+    br
+    e '.csv Dateien sollten ein comma verwenden.'
+    br
+    e 'Man kann die Zahl der columns und rows wie folgt herausfinden:'
+    br
+    cmd 'print(ncol(x))'
+    cmd 'print(nrow(x))'
+    br
+    e 'Jede Spalte erhält automatisch einen Namen der sich aus dem "header" 
+    ergibt - in den meisten Fällen ist dies die erste Zeile in einer Datei.'
+    br
+    e 'Diese Spalte (column) kann man via <b>$</b> herausfinden, mittels 
+    variablen_name$column_name:'
+    br
+    cmd '  heisenberg$trial'
+    cmd '  heisenberg$mass'
+    cmd '  heisenberg$velocity'
+    br
+    anm 'Hat man die Namen vergessen kann man names() aufrufen:'
+    brbr
+    cmd '  names(heisenberg)'
+    br
+    e 'Will man die Attribute einsehen geht folgendes:'
+    br
+    cmd '  attributes(heisenberg)'
+    br
+    e 'Die Variable die man hier verwendet, also "heisenberg", enthält
+    3 Reihen. Diese Reihen kann man über <b>$</b> ansprechen, wobei der
+    Teil der nach dem $ kommt den Namen des Headers haben muss (also
+    der ersten Zeile in der .csv Datei):'
+    br
+    cmd '  heisenberg$trial'
+    cmd '  heisenberg$mass' 
+    cmd '  heisenberg$velocity'
+    br
+    anm 'Hat man vergessen welche Columns in einer Variablen gespeichert
+    sind, kann man die <b>names()</b> Funktion aufrufen:'
+    br
+    cmd '  names(heisenberg)'
+    br
+    e 'Die ersten 5 Zeilen einlesen kann man so:'
+    br
+    cmd '  a <- read.csv(file, nrows=5, header=TRUE)'
+    br
+    e 'Will man die ersten 5 Zeilen ignorieren so kann man dies 
+    hier anwenden:'
+    br
+    cmd '  b <- read.csv(file, skip=6, header=TRUE)'   
+  }
+  # ========================================================================= #
+  # === Encoding in R
+  # ========================================================================= #
+  fancy2 'Encoding in R'
+  p_default_le {
+    e 'Wie können wir deutsche Kodierung verwenden?'
+    br
+    cmd '  system("defaults write org.R-project.R force.LANG de_AT.UTF-8")'
+  }
+  # ========================================================================= #
+  # === Save into a file via R
+  # ========================================================================= #
+  header 'Save into a file via R'
+  p_default_le {
+    e 'Save into a file:'
+    br
+    cmd '  y = c(2.28, 2.4)'
+    cmd "  png(filename = 'foobar.png')"
+    cmd '  hist(y)'
+    cmd '  dev.off()'
+  }
+  # ========================================================================= #
+  # === boxplot tag
+  #
+  # http://www.r-bloggers.com/box-plot-with-r-tutorial/
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/programming_languages/R/R.cgi#boxplot
+  # ========================================================================= #
+  fancy2 'Boxplot'
+  p_default_le(id: 'boxplot') {
+    e 'Man kann in R auch box-and-whisker plots erstellen, sogenannte
+    "<i>boxplots</i>".'
+    br
+    e 'Diese erlauben eine sehr saubere Darstellung von Trends, und
+    folgendes Bild zeigt wie so ein <b>Boxplot</b> aussehen mag:'
+    br
+    dimg 'science/mathematics/BOXPLOT.png',
+         'mars4em'
+    brbr
+    e 'Die Syntax hierzu ist folgende:'
+    br
+    cmd '  boxplot(x, ...)'
+    cmd '  boxplot(formula, data = NULL, ..., subset,
+    na.action = NULL)'
+    cmd 'boxplot(x, ..., range = 1.5, width = NULL, varwidth = FALSE,
+    notch = FALSE, outline = TRUE, names, plot = TRUE,
+    border = par("fg"), col = NULL, log = "",
+    pars = list(boxwex = 0.8, staplewex = 0.5, outwex = 0.5),
+    horizontal = FALSE, add = FALSE, at = NULL)'
+    spacer
+    display_file 'examples/boxplot_example.R'
+    spacer
+    cmd '  boxplot(data)'
+  }
+  # ========================================================================= #
+  # === Ist ein Wert in einem anderen Datenbereich inkludiert? (is in)
+  # ========================================================================= #
+  fancy2 'Ist ein Wert in einem anderen Datenbereich inkludiert? (is in)'
+  p_default_le {
+    e 'Ob ein Wert in einem bestimmten Datenbereich (von, bis)
+    inkludiert ist, findet findet man in R wie folgt heraus:'
+    br
+    cmd 'a = 2:8'
+    cmd 'b = 5'
+    cmd 'b %in% a # [1] TRUE'
+  }
+  # ========================================================================= #
+  # === head tag.
+  # ========================================================================= #
+  fancy2 'head and tail in R'
+  p_default_le {
+    e 'Mit dem Befehl <b>head(DATA, n)</b> lassen sich die ersten n
+    Datenreihen des Datensatzes DATA anzeigen.'
+    br
+    e 'Im Gegensatz dazu zeigt <b>tail(DATA, n)</b> die letzten n
+    Datenreihen an.'
+    br
+    e 'Der Defaultwert von n ist <b class="yel">6</b> - daher können
+    wir sagen das head() die ersten sechs Reihen anzeigt.'
+    br
+    e 'Beispiel:'
+    br
+    cmd '  head(foo)'
+  }
+  # ========================================================================= #
+  # === Konkrete Beispiele in R
+  # ========================================================================= #
+  fancy2 'Konkrete Beispiele in R'
+  p_default_le {
+    cmd '  N <- 100'
+    cmd '  x <- rnorm(N)'
+    cmd '  y <- x + rnorm(N)'
+    cmd '  plot(y ~ x)'
+    cmd '  abline( lm(y ~ x), col = "red" )'
+  }
+  # ========================================================================= #
+  # === Display a scatter plot
+  # ========================================================================= #
+  fancy2 'Display a scatter plot of two variables'
+  p_default_le {
+    cmd '  N <- 100'
+    cmd '  x <- rnorm(N)'
+    cmd '  y <- x + rnorm(N)'
+    cmd '  plot(y ~ x)'
+    cmd '  abline( lm(y ~ x), col = "slateblue" )'
+  }
+  # ========================================================================= #
+  # === Aktuelles Arbeitsverzeichnis tag. (pwd tag)
+  # ========================================================================= #
+  fancy2 'Aktuelles Arbeitsverzeichnis'
+  p_default_le {
+    e 'Das aktuelle Arbeitsverzeichnis findet man wie folgt heraus:'
+    br
+    cmd 'getwd()'
+  }
+  # ========================================================================= #
+  # === Länge eines Vectors
+  # ========================================================================= #
+  fancy2 'Länge'
+  p_default_le {
+    e 'Die Länge eines Vectors erhält man über length(), wie folgt:'
+    br
+    cmd '  length(c( 1, 3, 2, 10, 5, 6 )) # => [1] 6'
+  }
+  # ========================================================================= #
+  # === library tag
+  # ========================================================================= #
+  fancy2 'library'
+  p_default_le {
+    e 'Man kann in R bestimmte <b>Addons</b> laden. Dies geht via
+    <b>library()</b>.'
+    br
+    cmd '  library()'
+    br
+    cmd '  library(tcltk)'
+    cmd '  demo(tkcanvas)'
+    cmd '  demo(tkdensity)'
+    br
+    anm 'Wie man ein Package installiert, sieht man bei install.'
+    anm 'Die demos für Tk findet man zum Beispiel hier:'
+    e '  bl /Programs/R/3.0.3/lib/R/library/tcltk/demo/tkcanvas.R'
+  }
+  # ========================================================================= #
+  # === Integrate tag
+  # ========================================================================= #
+  fancy2 'integrate'
+  p_default_le {
+    e 'Zum Integrieren kann die Funktion <b>integrate()</b> verwendet werden.'
+    br
+    e 'In folgendem Beispiel wird die Dichtefunktion der Standardnormalverteilung
+    von 0 bis +Unendlich integriert (und damit die Wahrscheinlichkeit bestimmt,
+    dass eine Standardnormalverteilung einen positiven Wert annimmt):'
+    br
+    cmd '  integrate(dnorm, 0, Inf)'
+    br
+    e '0.5 with absolute error < 4.7e-05'
+    br
+    cmd '  integrate(dnorm, 0, Inf, mean=1, sd=5)'
+  }
+  # ========================================================================= #
+  # === if else tag.
+  # ========================================================================= #
+  fancy2 'if / else Kontrolle in R:'
+  p_default_le {
+    cmd '  if (1 == 0) {'
+    cmd '    print(1)'
+    cmd '  } else {'
+    cmd '    print(2)'
+    cmd '  }'
+  }
+  # ========================================================================= #
+  # === Lists in R
+  # ========================================================================= #
+  fancy2 'Lists in R'
+  p_default_le {
+    e 'Eine Liste in R die verschiedene Elemente speichern kann, erstellt 
+    man wie folgt:'
+    br
+    cmd '  list = list(c(2,5,3),21.3,sin)'
+    cmd '  print(list)'
+    br
+    anm 'Dies ist eigentlich ein Array.'
+  }
+  # ========================================================================= #
+  # === paste tag.
+  # ========================================================================= #
+  fancy2 'paste'
+  p_default_le {
+    e '<b>paste()</b> ist eine string-formatting Methode in R.'
+    br
+    e 'Es gibt uns einen einzelnen String zurück.'
+  }
+  # ========================================================================= #
+  # === Loop tag. Loops tag. for tag.
+  # ========================================================================= #
+  fancy2 'Loops in R'
+  p_default_le {
+    e 'Loop in R kann man mittels:'
+    br
+    cmd '- for'
+    cmd '- while'
+    cmd '- apply'
+    br
+    e 'erreichen.'
+    br
+    anm 'Mittels <b>break</b> kommt man aus einer loop heraus. <b>next</b>
+    springt zur nächsten Iteration.'
+    br
+    e 'For Loop Beispiel:'
+    br
+    cmd '  mydf <- iris'
+    cmd '  myve <- NULL # Creates empty storage container'
+    cmd '  for(i in seq(along=mydf[,1])) {'
+    cmd '  myve <- c(myve, mean(as.numeric(mydf[i, 1:3]))) # Note:
+    inject approach is much faster than append with "c". See below
+    for details.'
+    cmd '  }'
+    br
+    cmd '  myve'
+    br
+    e 'Hier noch ein weiteres, allgemeineres Beispiel für eine for loop in
+    R:'
+    br
+    cmd  '  for (i in 0:10) {'
+    cmd2 '      x <- 100 + i * 30'
+    cmd2 '      tkcreate(canvas, "line", x, 250, x, 245, width=2)'
+    cmd2 '      tkcreate(canvas, "text", x, 254,'
+    cmd2 '               text=10*i, anchor="n", font=plotFont)'
+    cmd  '  }'
+  }
+  # ========================================================================= #
+  # === Read input from a file tag. Input tag.                     (read tag)
+  #
+  # How to load a file in R.
+  # ========================================================================= #
+  fancy2 'Read input from a file'
+  p_default_le {
+    e 'Wir können Instruktionen aus einer Datei einlesen, zum Beispiel der
+    Datei <b class="file">input.R</b>.'
+    br
+    e 'Das ganze geht interaktiv so:'
+    br
+    cmd '  source("input.R")'
+    cmd '  source("/home/x/DATA/PROGRAMMING_LANGUAGES/R/functions.R")'
+    cmd '  source("input_array.R")'
+    br
+    e 'Will man mehr Informationen dazu erhalten übergibt man <b>echo=T</b>:'
+    br
+    cmd '  source("/home/x/programming_languages/r/functions.R", echo=T)'
+  }
+  # ========================================================================= #
+  # === Optionale Argumente in Funktionen in R
+  # ========================================================================= #
+  fancy2 'Optionale Argumente in Funktionen in R'
+  p_default_le {
+    e 'Funktionen in R können auch optionale Argumente erhalten.'
+    br
+    e 'Dies geht indem man in der Funktion selbst mittels
+    <b>missing()</b> nachfragt.'
+    br
+    cmd 'if(missing(opt_arg)) { # "missing()" is used to test whether 
+    a value was specified as an argument'  
+  }
+  # ========================================================================= #
+  # === Grep tag
+  # ========================================================================= #
+  fancy2 'Grep in R'
+  p_default_le {
+    e 'Mittels der <b>grep</b> Funktion kann man Muster in einem String
+    finden.'
+    br
+    e 'Das <b>erste</b> Argument ist die <b>Regex</b>, die man verwenden
+    möchte.'
+    br
+    e 'Das zweite Argument ist der input Vektor.' 
+    br
+    e 'Beispiel: suche A in einem Vektor namens month.name:'
+    br
+    cmd '  month.name[grep("A", month.name)]'
+    cmd '  [1] "April"  "August"'
+    br
+    e 'Noch ein Beispiel:'
+    br
+    cmd '  grep("a+", c("abc", "def", "cba a", "aa"), perl=TRUE, value=FALSE)'
+    br
+    anm 'Man kann Perl-Regex verwenden indem man
+    <b>perl=TRUE</b> als Parameter übergibt. Dies
+    verwendet dann die PCRE regular expression library.'
+    br
+    selfy 'https://stat.ethz.ch/R-manual/R-devel/library/base/html/grep.html'
+  }
+  # ========================================================================= #
+  # === typeof tag
+  # ========================================================================= #
+  header 'typeof'
+  p_default_le {
+    e 'Will man den Wert einer Variablen erkennen geht dies so:'
+    br
+    cmd '  a = numeric(10)'
+    cmd '  typeof(a)'
+    br
+    e '[1] "double"'
+  }
+  # ========================================================================= #
+  # === Wurzel ziehen
+  # ========================================================================= #
+  fancy2 'Wurzel ziehen'
+  p_default_le {
+    e 'Die Wurzel (Squareroot) kann man mittels <b>sqrt</b> wie folgt
+    ziehen:'
+    br
+    cmd '  sqrt(3)'
+    cmd '  sqrt(9)'
+    cmd '  a = 3; b = sqrt(a * a+3); b'
+    br
+    e 'Oder, angewandt auf einen Array, so:'
+    br
+    cmd '  sqrt(c(25,16,64))'
+    br
+    anm 'Vorteil hier ist das die Wurzel auf den gesamten Array angewandt
+    wird.'
+  }
+  # ========================================================================= #
+  # === Logarithmieren tag. Log tag.
+  # ========================================================================= #
+  fancy2 'Logarithmieren in R'
+  p_default_le {
+    cmd '  exp(a)'
+    br
+    e 'Beispiele:'
+    br
+    cmd '  log(exp(3))'
+    cmd '  log(10) # [1] 2.302585'
+    cmd '  log10(1e7) # = 7'
+    br
+    docu_link 'http://stat.ethz.ch/R-manual/R-devel/library/base/html/Log.html'
+  }
+  # ========================================================================= #
+  # === Modulo in R                                              (modulo tag)
+  # ========================================================================= #
+  fancy2 'Modulo'
+  p_default_le {
+    e 'Der <b class="darkgreen">Modulo Operator</b> in R funktioniert wie
+    folgt:'
+    br
+    cmd '  %%'
+    cmd '  10 %% 3'
+  }
+  # ========================================================================= #
+  # === Sorting tag                                                (sort tag)
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#sorting
+  # ========================================================================= #
+  fancy2 'Sorting'
+  p_default_le {
+    e 'Man kann Datenbestände In R sortieren, mittels <b class="yel">.sort()</b>.'
+    br
+    cmd '  sort(c( 1, 3, 2, 10, 5 )) # [1]  1  2  3  5 10'
+    cmd '  sorted = sort(array)'
+  }
+  # ========================================================================= #
+  # === Anzeigen von Variables (ls tag)
+  # ========================================================================= #
+  fancy2 'Anzeigen einer Variablen in R'
+  p_default_le {
+    e 'Variablen (in R) können wie folgt angezeigt werden:'
+    br
+    cmd 'ls()' # ls tag.
+    e '[1] "a"            "b"            "bubba"        "c"            "last.warning"'
+    e '[6] "tree"         "trees"'
+  }
+  # ========================================================================= #
+  # === ANOVA (Einfaktorielle Varianzanalyse) in R berechnen
+  # ========================================================================= #
+  fancy2 'ANOVA (Einfaktorielle Varianzanalyse) in R berechnen'
+  p_default_le {
+    e 'Die ANOVA wird auch einfaktorielle Varianzanalyse genannt.'
+    br
+    e 'Sie testet unabhängige Stichproben auf <b>unterschiedliche
+    Mittelwerte</b>.'
+    br
+    e 'Die Nullhypothese lautet, dass keine Mittelwertunterschiede
+    hinsichtlich der Testvariable existieren.'
+    br
+    e 'Demzufolge lautet die Alternativhypothese, dass zwischen den
+    Gruppen Unterschiede existieren.'
+    br
+    e 'Es ist das Ziel, die Nullhypothese zu verwerfen und die
+    Alternativhypothese anzunehmen.'
+    br
+    e 'Welche Voraussetzung ist für ANOVA notwendig?'
+    br
+    e 'Es müssen <b>mehr als zwei</b> voneinander unabhängige Stichproben
+    oder Gruppen vorhanden sein.'
+    br
+    e 'Lese wir nun den Datensatz ein:'
+    br
+    cmd '  crop.data <- read.csv("crop.data.csv", header = TRUE, colClasses = c("factor", "factor", "factor", "numeric"))'
+  }
+  # ========================================================================= #
+  # === Konfidenzintervall und Konfidenzintervalle in R berechnen
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/R/R.cgi#konfidenzintervall
+  # ========================================================================= #
+  fancy2 'Konfidenzintervall'
+  p_default_le {
+    e 'Man kann ausgehend von einer Stichprobe auf Parameter
+    aus der Grundgesamtheit schließen, wie zum Beispiel
+    der Varianz oder des Medians. Dies geschieht über
+    Konfidenzintervalle, wobei gesagt werden muss das dies
+    mit einer bestimmten Wahrscheinlichkeit erfolgt.'
+    br
+    e 'Konfidenzintervalle können in R wie folgt berechnet werden:'
+    br
+    cmd '  t.test(x, y, conf.level = 0.99) # Konfidenzintervall für 0.99'
+    br
+    e 'Um ein Konfidenzintervall für einen Mittelwert zu berechnen kann
+    diese Formel verwendet werden:'
+    br
+    cmd 'Konfidenzintervall = x +/- t n-1, 1-α / 2 * (s / √n)'
+    br
+    e 'Beispiel:'
+    br
+    cmd '  n = 11'
+    cmd '  xbar = 50.03636'
+    cmd '  sd = 17.62097'
+    cmd '  margin <- qt(0.975,df=n-1)*s/sqrt(n)'
+    cmd '  low = xbar - margin'
+    cmd '  low'
+    cmd '  high = xbar + margin'
+    br
+    e 'Sehen wir uns ein konkretes Beispiel an.'
+    br
+    e 'Gegeben ist folgender Array (eine Stichprobe):'
+    br
+    cmd '  array = c(60.2,66.5,11.5,83.9,72.3,57.1,67.2,20.1,57.1,19.2,52.4,44.9,52.2)'
+    br
+    e 'Nun sei für diese Stichprobe ein nach oben beschränktes
+    Konfidenzintervall für μ (α = 0.05), sowie ein nach oben
+    beschränktes Konfidenzintervall für σ2 (α = 0.05) berechnet
+    werden.'
+    br
+    cmd '  mean_x <- mean(array) # Mittelwert'
+    cmd '  var_x <- var(array)   # Varianz'
+    cmd '  alpha <- 0.05'
+    cmd '  t <- qt( (1 - alpha/2), 11)'
+  }
+  # ========================================================================= #
+  # === Signal processing algorithms
+  # ========================================================================= #
+  fancy2 'Signal processing algorithms'
+  p_default_le {
+    e 'Fourrier transform','marl3em bold'
+    e 'wavelet transforms','marl3em bold'
+  }
+  # ========================================================================= #
+  # === xlab
+  # ========================================================================= #
+  fancy2 'xlab'
+  p_default_le {
+    e 'Mittels <b>xlab</b> kann man das Label der x-axis adaptieren.'
+    br
+    e 'Beispiel:'
+    br
+    cmd '  hist(foobar, xlab="Title of x-axis here", ylab="Title of y-axis here")'
+  }
+  # ========================================================================= #
+  # === Installieren von Plugins in R                           (install tag)
+  # ========================================================================= #
+  fancy2 'Installieren von Plugins in R: wie können wir add-ons in
+  R installieren?'
+  p_default_le {
+    e 'Installieren von Plugins in R geht mittels <b>install.packages()</b>:'
+    br
+    cmd '  install.packages("package_name")'
+    cmd '  install.packages("readxl") # installieren des readxl package'
+    cmd '  install.packages("RcmdrPlugin.iasc")'
+    cmd '  install.packages("ggplot2")'
+    cmd '  install.packages("qrqc")'
+    cmd '  install.packages("psych")'
+    br
+    e 'Man kann auch mehrere Pakete zugleich installieren, mittels:'
+    br
+    cmd '  install.packages(c("ggplot2", "ggpubr", "tidyverse", "broom", "AICcmodavg"))'
+    br
+    e 'Oder:'
+    br
+    cmd '  library(BiocInstaller)'
+    cmd "  bioLite('qrqc')"
+  }
+  # ========================================================================= #
+  # === Misc tag
+  # ========================================================================= #
+  fancy2 'Misc'
+  p_default_le {
+    e 'Verwende ... um eine variable Anzahl an Argumenten an eine Funktion 
+    anzuzeigen.'
+    br
+    e 'R verwendet $ wie andere Sprachen den . Dot Operator verwenden.'
+    br
+    e 'R zeigt standardmäßig 6 Nachkommastellen an.'
+  }
+  # ========================================================================= #
+  # === Reservierte Charaktere in R
+  # ========================================================================= #
+  fancy2 'Reservierte Charaktere in R'
+  div('mars2em larger darkblue BOLD') {
+    e 'c'
+    e 'q'
+    e 's'
+    e 't'
+    e 'C'
+    e 'D'
+    e 'F'
+    e 'I'
+    e 'T'
+  }
+  # ========================================================================= #
+  # === R STATISTICS
+  # ========================================================================= #
+  fancy2 'R Statistics packages'
+  p_default_le {
+    abr 'http://rgl.neoscientists.org/about.shtml',
+      description: 'The rgl package 
+      is a visualization device system for R, using 
+      OpenGL as the rendering backend.',
+      css_class: 'slateblue'
+  }
+  # ========================================================================= #
+  # === Videolinks
+  # ========================================================================= #
+  fancy2 'Videolinks'
+  p_default_le {
+    youtube_embedder(%w(
+      https://www.youtube.com/watch?v=LjuXiBjxryQ
+    ))
+  }
+  # ========================================================================= #
+  # === Links zu R
+  # ========================================================================= #
+  fancy2 'Links zu R','marb8px'
+  p_default_le {
+    rlink 'http://www2.warwick.ac.uk/fac/sci/moac/currentstudents/peter_cock/r/ramachandran/',
+          'Ramachandran'
+    rlink 'http://www.cyclismo.org/tutorial/R/',
+          'R Tutorial'
+    rlink 'http://www.johndcook.com/R_language_for_programmers.html',
+          'Sehr gutes R Tutorial'
+    rlink 'http://cran.r-project.org/',
+          'Alle R-Packages'
+    rlink 'http://cran.r-project.org/doc/manuals/R-intro.html#Top',
+          'Auch ein sehr gutes R Tutorial'
+    rlink 'http://adv-r.had.co.nz/Package-basics.html',
+          'How to package R packages'
+    rlink 'http://manuals.bioinformatics.ucr.edu/home/programming-in-r',
+          'A good R manual'
+    rlink 'http://math.illinoisstate.edu/dhkim/rstuff/rtutor.html',
+          'Another good R manual'
+    rlink 'http://www.r-tutor.com/',
+          'Gutes R Tutorial auf r-tutor.com'
+    rlink 'https://www.harding.edu/fmccown/r/',
+          'Gutes R Tutorial mit vielen Bildern'
+    rlink 'http://www.bioconductor.org/',
+          'Bioinformatik und R'
+    rlink 'http://www.statmethods.net/interface/workspace.html',
+          'statmethods.net - ein gutes Tutorial für R Beginner'
+  }
+  # ========================================================================= #
+  # === Lokale Links
+  # ========================================================================= #
+  h3 'Lokale Links','marb8px'
+  p('mars1em') {
+    rlink :sitemap,'Sitemap'
+  }
+}}