Instantly share code, notes, and snippets.

# 水越明哉Akiyah

• Sort options
Created Mar 8, 2014
forked: レイトレーシング練習
View jsdoit.css
 html { height:100%; } body { margin: 0; padding: 0; background: gray; width:100%; height:100%;
Created Apr 13, 2014

View jsdoit.html

Last active Aug 29, 2015
Barron's Ap Statisics Topic One:Graphical DisplayをRでやってみる
View example_1_1.r
 png("example_1_1.png", width=600, height=600) dotchart(c(5,5,2,6,10,7),labels=c("Tennis", "Soccor", "Hockey", "Football", "Basketball", "Baseball")) dev.off()
Created Sep 3, 2014
forked: レイトレーシング練習
View jsdoit.css
 html { height:100%; } body { background: gray; width:100%; height:100%; overflow : hidden; }
Last active Aug 29, 2015
forked: レイトレーシング練習
 todo: * -影をぼんやりさせる- * 押しているモノも表示する * へこみ関数の最適化(押した感じにする) * シワをつける(丸くする) * -倍精度で計算する-
Created Sep 22, 2014
View negative_correlation.r
 x <- rnorm(20) y <- rnorm(20) p <- -0.9 u <- x + 2 v <- p * x + sqrt(1 - p**2) * y + 2 u <- (u - min(u)) / (max(u) - min(u)) v <- (v - min(v)) / (max(v) - min(v))
Created Nov 6, 2014
override operator "+" in R
View gist:deec63e776b23322066d
 "+" <- function(e1, e2=NA) { if (is.character(e1) & is.character(e2)) { return(paste0(e1, e2)) } ifelse(is.na(e2), base::"+"(e1), base::"+"(e1, e2)) } 1+2+3 #=> [1] 6 "f"+"g"+"h"
Created Dec 10, 2014

View gist:e8e0e3be7e98ae0eaabf
 s <- 100 index_h <- 500^(((1:s)-1)/(s-1)) index <- as.integer(c(index_h, rev(index_h))) for (i in 1:length(index)) { png(sprintf("plot_%04d.png", i), width=500, height=500) np <- index[i] n <- 1000 p <- np/n q <- 1 - p x <- 0:n
Created Dec 16, 2014
jibanyan_equation_edit
View function_dsl.r
 # plus "%+%" <- function(f, g) { return(paste0("(", f, ") * (", g,")")) } # minus m <- function(f) { paste0( "-(", f, ")" ) }
Created Jan 24, 2015
2015-01-24 1st
View jsdoit.css
 * { margin: 0; padding: 0; border: 0; } body { background: #ddd; font: 30px sans-serif; }
You can’t perform that action at this time.