Skip to content

Instantly share code, notes, and snippets.

Lorenz Lo Sauer lsauer

Block or report user

Report or block lsauer

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View bootstrip.R
options(stringsAsFactors=FALSE)
library(limma)
library(parallel)
# fn returns the statistic of interest from a limma fit object.
bootstrip = function(mat, mod, fn, iterations=100, p_samples=0.5, mc.cores=12){
stopifnot(nrow(mod) == ncol(mat))
ta = mclapply(1:iterations, function(core_i){
idx = sample.int(ncol(mat), p_samples * ncol(mat), replace=TRUE)
@lsauer
lsauer / gist:1210023
Created Sep 11, 2011 — forked from timbroder/gist:1209944
insert update url rewrite
View gist:1210023
#INSERT INTO `core_url_rewrite` (`store_id`, `category_id`, `product_id`, `id_path`, `request_path`, `target_path`, `is_system`)
SELECT 1 AS `store_id`,
`sub`.`category_id`,
`sub`.`entity_id` AS `product_id`,
CONCAT('product', '/', `entity_id`, '/', `category_id`) AS `id_path`,
`value` AS `request_path`,
CONCAT('catalog/product/view/id/', `entity_id`, '/category/', `category_id`) AS `target_path`,
1 AS `is_system`
FROM
(SELECT
You can’t perform that action at this time.