# knitr options knitr::opts_chunk$set(echo = TRUE)
# Install packages # Load packages # ... library(knitr)
# Input / Output variables # Tuning parameters # ... data <- "/home/bee/Github/ItziarParallelizing/WeTransfer/Datos_n20000.dat"
remove.packages('ORdensity') install.packages("/home/bee/Github/ORdensity", repos = NULL, type = "source") library('ORdensity')
a <- read.csv(data, sep=" ", header=TRUE) x <- a[, 2:31] y <- a[, 32:61] positive <- as.matrix(x) negative <- as.matrix(y)
system.time(myORdensity <- new("ORdensity", Exp_cond_1 = positive, Exp_cond_2 = negative, parallel = FALSE, verbose = FALSE))
system.time(myORdensity <- new("ORdensity", Exp_cond_1 = positive, Exp_cond_2 = negative, parallel = TRUE, verbose = FALSE))
summary(myORdensity)
median_of_medians_of_distances <- function(v) { d <- distances(v) l <- apply(d, 1, med) return (med(l)) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.