roebe 0.5.123

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

@@ -0,0 +1,1368 @@
+german(:autotitle) {
+autoextend
+template1 '
+p.default {
+  padding: 0.1em;
+  margin-top:0.1em;
+}
+div.default {
+  margin: 0px;
+}
+h2:before {
+  content: "";
+  width:  12px;
+  height: 12px;
+  border-radius: 70%;
+  background: orange;
+  display: inline-block;
+  vertical-align: middle;
+  margin-right: 1px;
+}
+b.file {
+  color: lightgreen;
+}
+
+a, a:link {
+
+  text-decoration: none;
+
+}
+'
+fav 'programming/R/R_FAVICON.png'
+css_class 'background-color: black; color:white'
+bcc 'pad0_4em mar1px BG_Black White'
+bcs 'border: 2px dotted limegreen;'
+font_size '1.2em'
+
+DOT = sg(:dot105,'marr6px')
+
+# =========================================================================== #
+# === cmd
+# =========================================================================== #
+CMD1 = 'marl1_5em BO slateblue'
+CMD2 = 'marl2_5em BO slateblue'
+
+# =========================================================================== #
+# === cmd
+# =========================================================================== #
+def cmd(i);  e i, CMD1; end; alias cmd1 cmd
+def cmd2(i); e i, CMD2; end
+
+# =========================================================================== #
+# === in_ruby
+# =========================================================================== #
+def in_ruby(
+    i, make_newline = true
+  )
+  result = sg(:ruby,'marr8px')+
+           'In Ruby wäre dies: '+string_s2(i,'orange')
+  result = result.dup
+  result.prepend('<br>') if make_newline
+  e result,'italic chartreuse'
+end
+
+# =========================================================================== #
+# === rlink
+# =========================================================================== #
+def rlink(
+    i, desc = ''
+  )
+  abr(i, content: DOT+desc, css_class: 'marl1em slateblue BO')
+end
+
+# =========================================================================== #
+# === docu
+# =========================================================================== #
+def docu(i)
+  abr(i, content: i, css_class: 'slateblue BO')
+end
+
+# =========================================================================== #
+# === header
+# =========================================================================== #
+def header(i)
+  i = i.dup if i.frozen?
+  use_this_id = i.tr(' ','_')
+  unless i.end_with? ':'
+    i << ':'
+  end
+  register_sitemap(
+    # :h2,
+    # i.delete(':').delete('(').delete(')'),
+    # 'mart1em',
+    use_this_id
+  )
+  h2(i, 'steelblue', use_this_id)
+end
+
+doc('default pad0_4em mars1em') {
+  e 'R ist eine <span class="yellow BOLD">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'
+  # ========================================================================= #
+  # === Kurze Beispiele in R
+  # ========================================================================= #
+  header 'Kurze Beispiele in R'
+  p_default {
+    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="lightblue">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)'
+  }
+  # ========================================================================= #
+  # === Erklärungen der grundlegenden Befehle in R.
+  # ========================================================================= #
+  # Array tag. c tag. vector tag.
+  # ========================================================================= #
+  header 'Erklärungen der grundlegenden Befehle in R'
+  p_default {
+    e 'Um eine Liste an Nummern zu verwenden benutzt man das 
+    <i class="yellow BOLD">c</i> command. Diese Liste wird
+    auch <b>Vektor</b> in R genannt.'
+    br
+    lem pfeil_rechts+'Der Grund wieso man <i class="yellow BOLD">c</i> 
+    für eine Liste verwendet ist das <i class="yellow BOLD">c</i> für 
+    <b class="FI lightblue 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:
+    # ======================================================================= #
+    e 'Wie finden wir heraus, <b class="gold">wieviele Elemente in 
+    einem Array sind</b>?'
+    br
+    e 'Mittels <b>length()</b>:'
+    br
+    cmd 'length(array)# [1] 69'
+    br
+    # ======================================================================= #
+    # String Arrays.
+    # ======================================================================= #
+    e 'Auch <b class="gold">String Arrays</b> kann man verwenden, wie
+    folgendes Beispiel zeigt:'
+    br
+    cmd '  array = c("cat","dog","deer")'
+    cmd '> array'
+    cmd ' [1] "cat"  "dog"  "deer"'
+  }
+  # ========================================================================= #
+  # === Mittelwert                                                 (mean tag)
+  # ========================================================================= #
+  header 'Mittelwert'
+  p_default {
+    e 'Den <b>Mittelwert</b> berechnet man wie folgt:'
+    br
+    cmd 'mean()'
+    cmd 'mean(array)'
+  }
+  # ========================================================================= #
+  # === Vectors tag Vector tag. Vektor tag.
+  # ========================================================================= #
+  header 'Vectors'
+  p_default {
+    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="yellow">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]'
+  }
+  # ========================================================================= #
+  # === Konkrete Beispiele in R
+  # ========================================================================= #
+  h3 'Konkrete Beispiele in R'
+  p_default {
+    cmd '  N <- 100'
+    cmd '  x <- rnorm(N)'
+    cmd '  y <- x + rnorm(N)'
+    cmd '  plot(y ~ x)'
+    cmd '  abline( lm(y ~ x), col = "red" )'
+  }
+  # ========================================================================= #
+  # === Setzen des Arbeitsverzeichnis
+  # ========================================================================= #
+  h3 'Setzen des Arbeitsverzeichnis'
+  p_default {
+    cmd 'setwd("/web/com")'
+  }
+  p_default {
+    e 'Display a scatter plot of two variables:'
+    br
+    cmd '  N <- 100'
+    cmd '  x <- rnorm(N)'
+    cmd '  y <- x + rnorm(N)'
+    cmd '  plot(y ~ x)'
+    cmd '  abline( lm(y ~ x), col = "slateblue" )'
+  }
+  # ========================================================================= #
+  # === Matrix tag.
+  # ========================================================================= #
+  header 'Matrix'
+  p_default {
+    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:'
+    pre '    A B C  D
+  1 1 4 7 10
+  2 2 5 8 11
+  3 3 6 9 12'
+  }
+  # ========================================================================= #
+  # === paste tag.
+  # ========================================================================= #
+  header 'paste'
+  p_default {
+    e 'paste() ist eine string-formatting Methode in R.'
+    br
+    e 'Es gibt uns einen einzelnen String zurück.'
+  }
+  # ========================================================================= #
+  # === Aktuelles Arbeitsverzeichnis tag. (pwd tag)
+  # ========================================================================= #
+  header 'Aktuelles Arbeitsverzeichnis'
+  p_default {
+    e 'Das aktuelle Arbeitsverzeichnis findet man wie folgt heraus:'
+    br
+    cmd 'getwd()'
+  }
+  # ========================================================================= #
+  # === Range tag.
+  #
+  # Dies spezifiert einen Bereich, von-bis.
+  # ========================================================================= #
+  header 'Range'
+  p_default {
+    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="lightblue">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'
+  }
+  # ========================================================================= #
+  # === head tag.
+  # ========================================================================= #
+  header 'head and tail'
+  p_default {
+    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)'
+  }
+  # ========================================================================= #
+  # === Modulo in R
+  # ========================================================================= #
+  header 'Modulo'
+  p_default {
+    e 'Der <b class="lightgreen">Modulo Operator</b> in R funktioniert wie
+    folgt:'
+    br
+    cmd '  %%'
+    cmd '  10 %% 3'
+  }
+  # ========================================================================= #
+  # === Sorting tag. Sort tag.
+  # ========================================================================= #
+  header 'Sorting'
+  p_default {
+    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)'
+  }
+  # ========================================================================= #
+  # === Länge eines Vectors
+  # ========================================================================= #
+  header 'Länge'
+  p_default {
+    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'
+  }
+  # ========================================================================= #
+  # === Read input from a file tag. Input tag.
+  #
+  # How to load a file in R.
+  # ========================================================================= #
+  header 'Read input from a file' # (read tag)
+  p_default {
+    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)'
+  }
+  # ========================================================================= #
+  # === Comments in R
+  # ========================================================================= #
+  header 'Kommentare in R (comments in R)'
+  p_default {
+    e 'Verwende <b>#</b>.'
+  }
+  # ========================================================================= #
+  # === Grep tag
+  # ========================================================================= #
+  header 'Grep'
+  p_default {
+    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.'
+    abr_self 'https://stat.ethz.ch/R-manual/R-devel/library/base/html/grep.html'
+  }
+  # ========================================================================= #
+  # === Optional arguments
+  # ========================================================================= #
+  header 'Optional arguments'
+  p_default {
+    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'  
+  }
+  # ========================================================================= #
+  # === plot tag
+  #
+  # http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/roebe/lib/roebe/www/programming_languages/R/R.cgi#plot
+  # ========================================================================= #
+  header 'plot'
+  p_default {
+    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 bblack1'
+    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="lightblue">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)
+  # ========================================================================= #
+  header 'Histogram'
+  p_default {
+    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
+  }
+  # ========================================================================= #
+  # === xlab
+  # ========================================================================= #
+  header 'xlab'
+  p_default {
+    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")'
+  }
+  # ========================================================================= #
+  # === Titles tag, Title tag.
+  # ========================================================================= #
+  header 'Titles'
+  p_default {
+    e 'Verwende die <b>title()</b> Funktion 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)'
+  }
+  # ========================================================================= #
+  # === Rnorm tag, qq-diagramm tag
+  # ========================================================================= #
+  header 'rnorm / QQ-Diagramme'
+  p_default {
+    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.'
+    br
+    e 'Der Befehl der hierzu 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 
+  }
+  # ========================================================================= #
+  # === 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
+  # ========================================================================= #
+  header 'Boxplot'
+  p(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/math/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)'
+  }
+  # ========================================================================= #
+  # === variance tag. Die Varianz.
+  #
+  # URL:
+  #
+  #   http://localhost/programming_languages/R/R.cgi#variance
+  #
+  # ========================================================================= #
+  header 'variance'
+  p_default {
+    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.',
+    'ind1em'
+    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
+    5 Tagen 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'
+  }
+  # ========================================================================= #
+  # === Schiefe
+  # ========================================================================= #
+  header 'Schiefe'
+  p_default {
+    e 'Schiefe berechnen:'
+    br
+    cmd 'skewness(x)'
+  }
+  # ========================================================================= #
+  # === Standardabweichung tag (via sd())
+  # ========================================================================= #
+  header 'Standardabweichung'
+  p_default {
+    e 'Die <span class="gold">Standardabweichung</span> wird berechnet, 
+    indem aus der <b>Varianz</b> die quadtratische Wurzel gezogen wird.'
+    br
+    e 'Die <b>Standardabweichung</b> (<b>sd</b>, für standard deviation) 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))'
+  }
+  # ========================================================================= #
+  # === Interquartilsabstand tag
+  # ========================================================================= #
+  header 'Interquartilsabstand (IQR)'
+  p_default {
+    e 'Der <b>Interquartilsabstand</b> beschreibt die mittleren 50% der 
+    Werte wenn sie vom kleinsten zu größten Wert geordnet sind.'
+    br 
+    e 'Der <b>IQR</b> (Q3 - Q1) wird in R berechnet über:'
+    br
+    cmd '  IQR(array)'
+  }
+  # ========================================================================= #
+  # === Variationskoeffizient
+  # ========================================================================= #
+  header 'Variationskoeffizient:'
+  p('default ind1') {
+    e ''
+    br
+    cmd '  result <- sd(array) / mean(array) * 100; result'
+  }
+  # ========================================================================= #
+  # === Spannweite
+  # ========================================================================= #
+  header 'Spannweite:'
+  p('default ind1') {
+    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)'
+  }
+  # ========================================================================= #
+  # === Encoding
+  # ========================================================================= #
+  header 'Encoding'
+  p_default {
+    e 'Wie können wir deutsche Kodierung verwenden?'
+    br
+    cmd '  system("defaults write org.R-project.R force.LANG de_AT.UTF-8")'
+  }
+  # ========================================================================= #
+  # === Median tag
+  # ========================================================================= #
+  header 'Median'
+  p_default {
+    cmd '  median(array)'
+  }
+  # ========================================================================= #
+  # === Ist ein Wert in einem anderen Datenbereich inkludiert? (is in)
+  # ========================================================================= #
+  header 'Ist ein Wert in einem anderen Datenbereich inkludiert? (is in)'
+  p_default {
+    e 'Dies findet man wie folgt heraus:'
+    br
+    cmd 'a = 2:8'
+    cmd 'b = 5'
+    cmd 'b %in% a # [1] TRUE'
+  }
+  # ========================================================================= #
+  # === Quartile in R tag
+  # ========================================================================= #
+  header 'Quartile und Quantile in R'
+  p_default {
+    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 '  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)'
+  }
+  # ========================================================================= #
+  # === mean tag - Arithmetisches Mittel (der Mittelwert).
+  # ========================================================================= #
+  header 'mean'
+  p_default {
+    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'
+  }
+  # ========================================================================= #
+  # === Dir tag
+  # ========================================================================= #
+  header 'dir'
+  p_default {
+    e 'Alle Dateien im aktuellen Verzeichnis einsehen
+    kann man via dir():'
+    br
+    cmd '  dir()'
+  }
+  # ========================================================================= #
+  # === Hilfe tag, Help tag.
+  # ========================================================================= #
+  header 'Help'
+  p_default {
+    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 STATISTICS
+  # ========================================================================= #
+  header 'R Statistics'
+  p_default {
+    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'
+  }
+  # ========================================================================= #
+  # === quit tag, exit tag.
+  # ========================================================================= #
+  header 'R beenden'
+  p_default {
+    e 'Um R zu beenden kann folgender Befehl eingesetzt werden:'
+    br
+    cmd 'q()'
+  }
+  # ========================================================================= #
+  # options tag. Option tag.
+  # ========================================================================= #
+  header 'Options'
+  p_default {
+    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()'
+  }
+  # ========================================================================= #
+  # System tag.
+  # ========================================================================= #
+  header 'system'
+  p_default {
+    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'
+  }
+  # ========================================================================= #
+  # typeof tag.
+  # ========================================================================= #
+  header 'typeof'
+  p_default {
+    e 'Will man den Wert einer Variablen erkennen geht dies so:'
+    cmd '  a = numeric(10)'
+    cmd '  typeof(a)'
+    e '[1] "double"'
+  }
+  # ========================================================================= #
+  # library tag.
+  # ========================================================================= #
+  header 'library'
+  p_default {
+    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'
+  }
+  # ========================================================================= #
+  # === install tag.
+  #
+  # Wie installieren wir ein package in R?
+  # ========================================================================= #
+  header 'install'
+  p_default {
+    e 'Wie installiere ich ein Addon?'
+    br
+    cmd '  install.packages("ggplot2")'
+    cmd '  install.packages("qrqc")'
+    br
+    e 'Oder:'
+    br
+    cmd '  library(BiocInstaller)'
+    cmd "  bioLite('qrqc')"
+  } 
+  # ========================================================================= #
+  # Wurzel ziehen
+  # ========================================================================= #
+  header 'Wurzel ziehen'
+  p_default {
+    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.'
+  }
+  # ========================================================================= #
+  # Integrate tag.
+  # ========================================================================= #
+  header 'integrate'
+  p_default {
+    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)'
+  }
+  # ========================================================================= #
+  # === str tag.
+  # ========================================================================= #
+  header 'str'
+  p_default {
+    frage 'Wie kann man den <b>Typ eines Objektes</b> in R anzeigen?'
+    br
+    e 'Mittels str();'
+    br
+    cmd '  b <- 55; str(b)'
+    br
+    anm 'class() existiert auch, gibt aber weniger Information
+    zurück.'
+  }
+  # ========================================================================= #
+  # === Logarithmieren tag. Log tag.
+  # ========================================================================= #
+  header 'Logarithmieren:'
+  p_default {
+    cmd '  exp(a)'
+    br
+    e 'Beispiele:'
+    br
+    cmd '  log(exp(3))'
+    cmd '  log(10) # [1] 2.302585'
+    cmd '  log10(1e7) # = 7'
+    br
+    docu 'http://stat.ethz.ch/R-manual/R-devel/library/base/html/Log.html'
+  }
+  # ========================================================================= #
+  # === Anzeigen von Variables (ls tag)
+  # ========================================================================= #
+  header 'Anzeigen einer Variablen:'
+  p_default {
+    e 'Variablen kann man wie folgt anzeigen:'
+    br
+    cmd 'ls()' # ls tag.
+    e '[1] "a"            "b"            "bubba"        "c"            "last.warning"'
+    e '[6] "tree"         "trees"'
+  }
+  # ========================================================================= #
+  # === csv tag. cvs tag.
+  # ========================================================================= #
+  # http://localhost/programming/ruby/src/roebe/lib/roebe/www/programming_languages/R/R.cgi#csv
+  # ========================================================================= #
+  header 'CSV Dateien einlesen:'
+  p(id: 'csv') {
+    e 'Wir können <b class="orange">.csv</b> Dateien einlesen - auch
+    <b>importieren</b> genannt - mittels der Funktion <b class="lightorange">
+    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="crimson">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)'   
+  }
+  # ========================================================================= #
+  # === Loop tag. Loops tag. for tag.
+  # ========================================================================= #
+  header 'Loops'
+  p_default {
+    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 '  }'
+    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  '  }'
+  }
+  # ========================================================================= #
+  # === Loop tag. Loops tag. for tag.
+  # ========================================================================= #
+  header 'Konfidenzintervall'
+  p_default {
+    e 'Konfidenzintervalle in R berechnen:'
+    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'
+  }
+  # ========================================================================= #
+  # === Function tag. functions tag.
+  # ========================================================================= #
+  header 'function()'
+  p_default {
+    e 'Funktionen in R sind Objekte.'
+    br
+    e 'Man kann in R natürlich auch seine eigenen Funktionen
+    erstellen.'
+    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:'
+    table2 'mars1em','','',
+      '<b class="lightblue">body()</b>','dies ist der Code innerhalb
+       einer Funktion',
+      '<b class="lightblue">formals()</b>','dies inkludierte die
+       Liste an Argumenten die das Verhalten der Funktion kontrollieren',
+      '<b class="lightblue">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 ().'
+  }
+  # ========================================================================= #
+  # === if else tag.
+  # ========================================================================= #
+  header 'Lists in R'
+  p_default {
+    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)'
+  }
+  # ========================================================================= #
+  # === if else tag.
+  # ========================================================================= #
+  header 'if / else Kontrolle:'
+  p_default {
+    cmd '  if (1 == 0) {'
+    cmd '    print(1)'
+    cmd '  } else {'
+    cmd '    print(2)'
+    cmd '  }'
+  }
+  # ========================================================================= #
+  # === Misc tag
+  # ========================================================================= #
+  header 'Misc'
+  div {
+    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.'
+  }
+  # ========================================================================= #
+  # === Percentiles
+  # ========================================================================= #
+  header 'Percentiles in R'
+  p_default {
+    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'
+  }
+  # ========================================================================= #
+  # === Der Standardfehler
+  # ========================================================================= #
+  header 'Der Standardfehler im t-Test'
+  p_default {
+    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.'
+  }
+  # ========================================================================= #
+  # === density()
+  # ========================================================================= #
+  header 'density()'
+  p_default {
+    cmd '	 plot(density(x))'
+    br
+    e 'Mehr Informationen hier:'
+    br
+    abr_self 'https://www.rdocumentation.org/packages/stats/versions/3.6.2/topics/density'
+  }
+  # ========================================================================= #
+  # === R Studio
+  # ========================================================================= #
+  h4 'R Studio'
+  p_default {
+    e 'Wie installieren wir <b>R Studio</b> auf Linux?'
+    br
+    cmd '  install.packages(c("dplyr","ggplot2"))'
+  }
+  # ========================================================================= #
+  # === Reservierte Charaktere in R
+  # ========================================================================= #
+  h2 'Reservierte Charaktere in R:'
+  div('mars2em yellow larger') {
+    e 'c'
+    e 'q'
+    e 's'
+    e 't'
+    e 'C'
+    e 'D'
+    e 'F'
+    e 'I'
+    e 'T'
+  }
+  # ========================================================================= #
+  # === Anhang
+  # ========================================================================= #
+  h4 'Anhang'
+  p_default {
+    e 'Signal processing algorithms:'
+    br
+    e 'Fourrier transform','marl3em bold'
+    e 'wavelet transforms','marl3em bold'
+  }
+  # ========================================================================= #
+  # === Rcmdr
+  # ========================================================================= #
+  h4 'Rcmdr'
+  p_default {
+    e 'Wie starten wir Rcmdr?'
+    br
+    cmd 'library(Rcmdr)'
+  }
+  # ========================================================================= #
+  # === Links zu R
+  # ========================================================================= #
+  h4 'Links zu R','marb2px'
+  p('default') {
+    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'
+  }
+  # ========================================================================= #
+  # === Videolinks
+  # ========================================================================= #
+  h4 'Videolinks'
+  p_default {
+    youtube_embedder(%w(
+      http://www.youtube.com/watch?v=LjuXiBjxryQ
+    ))
+  }
+  # ========================================================================= #
+  # === Lokale Links
+  # ========================================================================= #
+  h4 'Lokale Links','marb2px'
+  p('mars1em') {
+    rlink :sitemap,'Sitemap'
+  }
+}}