hadley

ks.default <- function(rows) seq(2, max(3, rows %/% 4))

many_kmeans <- function(x, ks = ks.default(nrow(x)), ...) {
  ldply(seq_along(ks), function(i) {
    cl <- kmeans(x, centers = ks[i], ...)
    data.frame(obs = seq_len(nrow(x)), i = i, k = ks[i], cluster = cl$cluster)
  })
}

all_hclust <- function(x, ks = ks.default(nrow(x)), point.dist = "euclidean", cluster.dist = "ward") {

ryin

#!/bin/bash

# Script for installing tmux on systems where you don't have root access.
# tmux will be installed in $HOME/local/bin.
# It's assumed that wget and a C/C++ compiler are installed.

# exit on error
set -e

TMUX_VERSION=1.8

wch

max_plots <- 5

ui <- fluidPage(

  headerPanel("Dynamic number of plots"),

  sidebarPanel(
    sliderInput("n", "Number of plots", value=1, min=1, max=5)
  ),

ntamas

#!/usr/bin/env python
# -*- coding: utf-8 -*-
"""
Hierarchical link clustering
============================

:Author: Tamás Nepusz

This is an implementation of the hierarchical link clustering algorithm of Ahn
et al. The results provided by this implementation match those of the original

seandavi

"title"	"gpl"	"bioc_package"	"manufacturer"	"organism"	"data_row_count"
"Illumina Sentrix Array Matrix (SAM) - GoldenGate Methylation Cancer Panel I"	"GPL15380"	"GGHumanMethCancerPanelv1"	"Illumina"	"Homo sapiens"	1536
"Illumina HumanMethylation27 BeadChip (HumanMethylation27_270596_v.1.2)"	"GPL8490"	"IlluminaHumanMethylation27k"	"Illumina, Inc."	"Homo sapiens"	27578
"Illumina HumanMethylation450 BeadChip (HumanMethylation450_15017482)"	"GPL13534"	"IlluminaHumanMethylation450k"	"Illumina, Inc."	"Homo sapiens"	485577
"GE Healthcare/Amersham Biosciences CodeLink™   ADME Rat 16-Assay Bioarray"	"GPL2898"	"adme16cod"	"GE Healthcare"	"Rattus norvegicus"	1280
"[AG] Affymetrix Arabidopsis Genome Array"	"GPL71"	"ag"	"Affymetrix"	"Arabidopsis thaliana"	8297
"[ATH1-121501] Affymetrix Arabidopsis ATH1 Genome Array"	"GPL198"	"ath1121501"	"Affymetrix"	"Arabidopsis thaliana"	22810
"[Bovine] Affymetrix Bovine Genome Array"	"GPL2112"	"bovine"	"Affymetrix"	"Bos taurus"	24128
"[Canine] Affymetrix Canine Genome 1.0 Array"	"GPL39

fchollet

from keras.models import Sequential
from keras.layers import Dense

x, y = ...
x_val, y_val = ...

# 1-dimensional MSE linear regression in Keras
model = Sequential()
model.add(Dense(1, input_dim=x.shape[1]))
model.compile(optimizer='rmsprop', loss='mse')

AkselA

set.seed(1)

n <- 40
p <- 0.3
r <- 0.5

m <- MASS::mvrnorm(n, c(0, 0), matrix(c(1, r, r, 1), 2))
m <- t(t(m) * c(1, 2))
m <- t(t(m) + c(51, 50))
m <- round(m, 1)