| template <typename T> | |
| ostream &operator<<(ostream &os, const vector<T> &v) { | |
| os << "["; | |
| typename vector<T>::const_iterator it; | |
| for (it = v.begin(); it != v.end() - 1; ++it) { | |
| os << *it << ", "; | |
| } | |
| os << *(it) << "]"; | |
| return os; | |
| } |
| #include <vector> | |
| #include <numeric> | |
| #include <random> | |
| using namespace std; | |
| template <typename T> | |
| T sum(vector<T> v) { | |
| return accumulate(v.begin(), v.end(), 0.0); | |
| } |
| import cv2 | |
| import urllib.request | |
| # Will use matplotlib for showing the image | |
| from matplotlib import pyplot as plt | |
| # Plot inline | |
| %matplotlib inline | |
| # For local images, read as usual |
For a given KEGG pathway, we want to get a list of all the genes. Ensembl IDs are convenient here.
KEGG provides a REST API for some tasks, but is far from complete. For example, it is possible to map from KEGG to NCBI IDs, but not to Ensembl IDs.
The implementation peforms the following steps:
| ```{r, echo=FALSE} | |
| library(magrittr) | |
| ``` | |
| # `%grep%` operator | |
| Using `R`'s built-in `grep` function is really inconvenient for interactive work. | |
| There already exists a convenient `%in%` operator for testing membership in a sequence. | |
| However, real data analysis rarely presents with well-defined sequences. | |
| Strings are much more common. |
This is an attempt to have frame subtitle support for the Metropolis Beamer theme. Since there is no native support in the theme itself, this is somewhat of a hack.
This adds an extra beamercolorbox, equivalent to a frametitle box, but with a different name.
| [ | |
| // Align | |
| { "keys": ["super+.", "super+a"], "command": "alignment" }, | |
| // Surround | |
| { "keys": ["super+.", "super+s", "super+s"], "command": "surround_selection"}, | |
| { "keys": ["super+.", "super+s", "super+d"], "command": "surround_delete"}, | |
| { "keys": ["super+.", "super+s", "super+c"], "command": "surround_change"}, | |
| // Expand selection | |
| { "keys": ["super+shift+'"], "command": "expand_selection_to_quotes"}, | |
| { "keys": ["super+shift+;"], "command": "expand_selection", "args": {"to": "scope"}}, |
| # bootstrap.R | |
| cat("Loading packages\n") | |
| library(tidyverse) | |
| library(RefFreeEWAS) | |
| library(qvalue) | |
| cat("Loading data\n") | |
| load("pdat.merge.rdata") | |
| load("betas.rdata") |
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <meta charset="utf-8"> | |
| <meta name="viewport" content="width=device-width"> | |
| <title>Elementary observables</title> | |
| </head> | |
| <body> | |
| <script src="https://unpkg.com/@reactivex/[email protected]/dist/global/Rx.js"></script> | |
| <button id='error'>Will throw</button> |
| " Plugins {{{ | |
| call plug#begin('~/.vim/plugged') | |
| Plug 'scrooloose/nerdcommenter' | |
| Plug '/usr/local/opt/fzf' | Plug 'junegunn/fzf.vim' | |
| Plug 'christoomey/vim-tmux-navigator' | |
| Plug 'chriskempson/base16-vim' | |
| Plug 'sheerun/vim-polyglot' | |
| Plug 'fatih/vim-go' | |
| Plug 'SirVer/ultisnips' | |
| Plug 'scrooloose/nerdtree' |
