lgatto

unreachable code after return statement ti.js:828:12
unreachable code after return statement ti.js:1834:24
unreachable code after return statement ti.js:828:12
person is loading! Object { $id: 1, $$childTail: Object, $$childHead: Object, $$prevSibling: null, $$nextSibling: null, $$watchers: Array[2], $parent: null, $$phase: "$digest", $root: Object, $$destroyed: false, 12 more… } ti.js:923:21
Person Service getting from server: 0000-0002-1520-2268 ti.js:1579:13
Auto-adding the missing md-mode='indeterminate' to the ProgressCircular element angular.min.js:107:210
The resource at "https://www.google-analytics.com/analytics.js" was blocked because tracking protection is enabled.[Learn More] 0000-0002-1520-2268
The resource at "https://widget.intercom.io/widget/z93rnxrs" was blocked because tracking protection is enabled.[Learn More] 0000-0002-1520-2268
retrieved the person Object { _full_name: "Laurent Gatto", _id: "l3twu5batt", affiliation_name: "University of Cambridge", affiliation_role_title: "Senior Researc

lgatto

#!/bin/bash

## getting the latest R-devel src
rtgz=R-devel.tar.bz2
rsrc=R-devel	
rm $rtgz
wget ftp://ftp.stat.math.ethz.ch/Software/R/$rtgz
rm -rf $rsrc

## installation

lgatto

f <- "clusteringlopit/dunkley/hc_labels_observations_a.txt"
library("pRolocdata")
library("pRoloc")

data(dunkley2006)


makeFoIs <- function(fn, obj) {
    x <- readLines(fn)[-1] ## first is 'x'
    i <- grep("---", x)

lgatto

## Run https://gist.github.com/lgatto/1875f858f4af543990ce3dc84825d9ee

fls <- dir(pattern = "rda")

fps <- lapply(fls, readRDS)
names(fps) <- fls
fps <- lapply(fps, "[[", 1)

.ref <- 3
ref <- fps[[.ref]]

lgatto

library("EBImage")

resize_to_smallest <- function(x, y) {
    dx <- dim(x)
    dy <- dim(y)
    w <- min(dx[1], dy[1])
    h <- min(dx[2], dy[2])
    list(x = EBImage::resize(x, w, h),
         y = EBImage::resize(y, w, h))
}

lgatto

@Article{foo,
  author = 	 {Foo, Bar},
  title = 	 {Just a references},
  journal = 	 {Journal of references},
  year = 	 {2016}
}

lgatto

##' This function can be used to create a hexagonal sticker following
##' the guidelines described in the BioC-sticker sticker
##' repository. The function requires the following packages: ggplot2,
##' ggforce, ggtree, showtext and grid, if lattice objects are used.
##'
##' @title Create a BioC sticker.
##' @param x The package logo. Can either be a ggplot, lattice or grob
##'     object.
##' @param package Package name, to be used as label on the
##'     sticker. Default is "MyPackage".

lgatto

#!/usr/bin/perl

## Based on convert.txt by Mike Love
## https://gist.github.com/mikelove/5618f935ace6e389d3fbac03224860cd

## The script ignores labels and references, un-numbered sections
## (section*), quotes and probably a couple of more. It won't deal
## with the pre-amble, bibliography and document tags either. Still
## useful, though.

lgatto

pca <- prcomp(exprs(object), scale = TRUE, center = TRUE)
pcadata <- pca$x
vars <- (pca$sdev)^2
vars <- vars / sum(vars) * 100

lgatto

#!/bin/bash

if [ -z "$1" ]; then
    WHICH=patched
else
    WHICH=$1
fi

## (1) set up variables
case $WHICH in