The R consortium Infrastructure Steering Committee awards have been officially announced and we are happy to confirm that our proposal to organise an R-based instructor training was successful.
We will organise an in-person instructor training that will focus on R. While the content of the training will not change as such,
| 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 |
| #!/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 |
| 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) |
| ## 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]] |
| 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)) | |
| } |
| @Article{foo, | |
| author = {Foo, Bar}, | |
| title = {Just a references}, | |
| journal = {Journal of references}, | |
| year = {2016} | |
| } |
| ##' 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". |
| #!/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. |
| pca <- prcomp(exprs(object), scale = TRUE, center = TRUE) | |
| pcadata <- pca$x | |
| vars <- (pca$sdev)^2 | |
| vars <- vars / sum(vars) * 100 |