Pinned Loading

1. sear sear Public

   Simple (effin') Enrichment Analysis in R

   R 2

2. Beautiful tapered-intensity-curved e... Beautiful tapered-intensity-curved edge network graph with ggplot2

   1

   doInstall <- TRUE  # Change to FALSE if you don't want packages installed.

   2

   toInstall <- c("sna", "ggplot2", "Hmisc", "reshape2")

   3

   if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}

   4

   lapply(toInstall, library, character.only = TRUE)

   5

3. Retaining names of list when using t... Retaining names of list when using tidyr::unnest example

   1

   library(tidyr)

   2

   library(dplyr)

   3

   4

   l <- lapply(1:5, function(x) runif(5))

   5

   names(l) <- LETTERS[1:5]

4. A function to un-scale a matrix usin... A function to un-scale a matrix using the attributes of a 'scale' object.

   1

   #' Reverse a scale

   2

   #'

   3

   #' Computes x = sz+c, which is the inverse of z = (x - c)/s

   4

   #' provided by the \code{scale} function.

   5

   #'

5. Simulate correlated variables Simulate correlated variables

   1

   library(MASS)

   2

   library(tidyverse)

   3

   4

   # create the variance covariance matrix

   5

   sigma <- rbind(