| # After Ubuntu 16.04, Systemd becomes the default. | |
| # It is simpler than https://gist.github.com/Doowon/38910829898a6624ce4ed554f082c4dd | |
| [Unit] | |
| Description=Jupyter Notebook | |
| [Service] | |
| Type=simple | |
| PIDFile=/run/jupyter.pid | |
| ExecStart=/home/phil/Enthought/Canopy_64bit/User/bin/jupyter-notebook --config=/home/phil/.jupyter/jupyter_notebook_config.py |
| #!/bin/bash | |
| # These variables can be overwritten using the arguments below | |
| VERSION="1.1.463" | |
| # drwho is listed as user in YARN's Resource Manager UI. | |
| USER="drwho" | |
| # Depending on where the EMR cluster lives, you might have to change this to avoid security issues. | |
| # To change the default password (and user), use the arguments bellow. | |
| # If the cluster is not visible on the Internet, you can just leave the defaults for convenience. | |
| PASS="tardis" |
| data { | |
| int N; | |
| int M; | |
| real<lower=0> Y[N]; | |
| } | |
| parameters { | |
| real<lower=0> mu; | |
| real<lower=0> phi; | |
| real<lower=1, upper=2> theta; |
| getCI <- function(B, muH0, sdH0, N) { | |
| getM <- function(orgDV, idx) { | |
| bsM <- mean(orgDV[idx]) # M* | |
| bsS2M <- (((N-1) / N) * var(orgDV[idx])) / N # S^2*(M) | |
| c(bsM, bsS2M) | |
| } | |
| DV <- rnorm(N, muH0, sdH0) # simulated data: original sample | |
| M <- mean(DV) # M from original sample | |
| S2M <- (((N-1)/N) * var(DV)) / N # S^2(M) from original sample |
| # this scrubs emoji sequences from a string - i think it covers all of them | |
| def strip_emoji ( str ) | |
| str = str.force_encoding('utf-8').encode | |
| clean_text = "" | |
| # emoticons 1F601 - 1F64F | |
| regex = /[\u{1f600}-\u{1f64f}]/ | |
| clean_text = str.gsub regex, '' |
| max_plots <- 5 | |
| ui <- fluidPage( | |
| headerPanel("Dynamic number of plots"), | |
| sidebarPanel( | |
| sliderInput("n", "Number of plots", value=1, min=1, max=5) | |
| ), |
| data_sets <- c("mtcars", "morley", "rock") | |
| shinyServer(function(input, output) { | |
| # Drop-down selection box for which data set | |
| output$choose_dataset <- renderUI({ | |
| selectInput("dataset", "Data set", as.list(data_sets)) | |
| }) | |
| # Check boxes |
See http://animation.r-forge.r-project.org/knitr/ for a preview of all knitr themes in HTML, and http://rclickhandbuch.files.wordpress.com/2014/09/knitrthemesoverview.pdf for a preview in LaTeX (credit to Berry Boessenkool).
The knitr themes manual can be found at (Rnw source).
