johow.it  Dr. Johannes Johow

Büro für statistische Programmierung

AnalytikEntwicklungPublishing

Willkommen im Wunderland

Ich bin Evolutionsbiologe und interessiere mich besonders für life history evolution und Verhaltensökologie des Menschen im Kontext von Verwandtschaft. Ein kurzer Überblick über meine bisherige Forschung und laufende Projekte findet sich hier aber auch auf Google scholar oder ResearchGate. Hier findet sich eine interaktive Shinyapp für die Krummhörn-Datenbank.

Da diese Untersuchungen immer mit Programmierungen verbunden sind, habe ich eine große Leidenschaft für R entwickelt — inklusive Rstudio, CRANberries, und R-bloggers.

Diese Seiten sind übrigens auch mit R gemacht, in einer shinyapp, die als static site generator HTML5/CSS aus Rmarkdown-Textdateien in meiner dropbox produziert.

 
 

KUNSTLEBEN & DATENKUNST

FORSCHUNGSDATEN & LEBENSKUNST

DATENKUNST & KUNSTDATEN

KUNSTLEBEN & DATENKUNST

KUNSTDATEN & FORSCHUNGSKUNST

LEBENSKUNST & LEBENSDATEN

FORSCHUNGSLEBEN & LEBENSDATEN

KUNSTLEBEN & FORSCHUNGSKUNST

KUNSTDATEN & LEBENSFORSCHUNG

KUNSTLEBEN & FORSCHUNGSDATEN

DATENKUNST & DATENFORSCHUNG

LEBENSDATEN & LEBENSDATEN

KUNSTDATEN & LEBENSFORSCHUNG

FORSCHUNGSDATEN & LEBENSFORSCHUNG

LEBENSFORSCHUNG & DATENKUNST

LEBENSKUNST & LEBENSKUNST

KUNSTLEBEN & KUNSTFORSCHUNG

LEBENSDATEN & LEBENSKUNST

LEBENSFORSCHUNG & LEBENSFORSCHUNG

LEBENSKUNST & KUNSTFORSCHUNG

DATENKUNST & FORSCHUNGSDATEN

FORSCHUNGSDATEN & KUNSTDATEN

FORSCHUNGSKUNST & LEBENSFORSCHUNG

LEBENSFORSCHUNG & DATENKUNST

 
 


  HelloWorld <- 
  function(xs=c("LEBEN", "FORSCHUNG"), 
            x=c("DATEN", "KUNST"), 
            n=24, 
            mySeed =as.numeric(as.Date("2012-09-08"))){ 
     set.seed(mySeed) 
        makeWord = function(){myDraws = sample(c(xs, x),2)
        return(paste(myDraws, collapse=ifelse(myDraws %in% xs, "S", "")))
 }
outObj <- vector("list", n)
for (i in 1:n){
outObj[[i]] = c( makeWord(),makeWord())
}
myText = paste0(unlist(lapply(outObj, paste, collapse = " &amp; ")), "?")
len = length(myText)
cat(paste0("<p contenteditable class=\"flows\" style=\"white-space: nowrap; display: inline;\">", unlist(mapply("paste0", rep("<span class=\"article\" style=\"color: ", len), sample(palette(), len, replace=TRUE), rep("; text-shadow:", len), sample(1:10, len, replace=TRUE), rep("px ", len), sample(1:10, len, replace=TRUE), rep("px ", len), sample(2:20, len, replace=TRUE), rep("px ", len),sample(palette(),len, replace=TRUE), rep("; font-size: ", len),sample(seq(80, 160, 1),len, replace=TRUE),rep("%;\">", len), myText, rep("</span>", len), collapse="")
),"</p>", collapse="\n"))
}

HelloWorld()