- httsp://hackingisbelieving.org/
- @dritoshien
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
curl -O https://q-brain2.riken.jp/bayes/vm/bayesvm_1.4.0.ova # ovaをダウンロード | |
curl -O https://q-brain2.riken.jp/bayes/vm/bayesvm_1.4.0.ova.md5 # md5をダウンロード | |
md5sum -c bayesvm_1.4.0.ova.md5 # ファイルをチェック |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ git clone https://github.com/BioDevOps/basicsetup |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
curl -ssL https://q-brain2.riken.jp/bayes/vm/dl.sh | bash -s |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library("org.Mm.eg.db") | |
my.ensmusg <- c("ENSMUSG00000000275", "ENSMUSG00000002844", "ENSMUSG00000003868", "ENSMUSG00000091821", "HOGE") | |
a <- sapply(my.ensmusg, function(x) exists(x, org.Mm.egENSEMBL2EG)) | |
my.ensmusg.existed <- my.ensmusg[a] | |
my.ensmusg.existed |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library("notifyR") | |
userkey <- "XXXXXXXXXXXXXXXXXXX" | |
send_push(userkey, | |
title = "Hello from R!", | |
message = "Rからこんにちは!" | |
) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
rm -rf /usr/local/Cellar /usr/local/.git && brew cleanup | |
ruby -e "$(curl -fsSL https://raw.github.com/mxcl/homebrew/go)" | |
brew prune | |
brew doctor |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env ruby | |
require "rubygems" | |
require "biomart" | |
require "pp" | |
htgt = Biomart::Server.new( "http://www.sanger.ac.uk/htgt/biomart" ) | |
ensmus = htgt.datasets["mmusculus_gene_ensembl"] | |
# pp ensmus.list_filters |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
clf('reset'); | |
% Definition of pdf | |
pdf_mixpoiss = @(x, p, lambda1, lambda2) p * poisspdf(x, lambda1) ... | |
+ (1 - p) * poisspdf(x, lambda2); | |
% Make a demo data | |
rng(218, 'twister'); | |
p = 0.4; | |
n = 10000; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
> library("coin") | |
> data <- data.frame(value = c(1,4,3,2,5,9), exp.name = factor(c(rep("a", 3), rep("b", 3)))) | |
> data | |
value exp.name | |
1 1 a | |
2 4 a | |
3 3 a | |
4 2 b | |
5 5 b | |
6 9 b |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
## | |
## simulator for portliner's pass price vs. tickets | |
## | |
# http://www.knt-liner.co.jp/ticket/coupon.asp | |
# http://www.knt-liner.co.jp/station/fee.asp | |
days <- seq(18, 25) | |
one.month <- 9210 / 1 | |
six.month <- 46980 / 6 |
NewerOlder