Skip to content

Instantly share code, notes, and snippets.

View chiral's full-sized avatar

Masayuki Isobe chiral

8 followers · 7 following
  • Adfive, Inc.
  • Taito-ku, Tokyo, Japan.
View GitHub Profile
@chiral
chiral / iris.csv
Created September 5, 2015 14:08
simple 3 layer feed forward net for iris data by chainer
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3 1.4 0.2 setosa
3 4.7 3.2 1.3 0.2 setosa
4 4.6 3.1 1.5 0.2 setosa
5 5 3.6 1.4 0.2 setosa
6 5.4 3.9 1.7 0.4 setosa
7 4.6 3.4 1.4 0.3 setosa
8 5 3.4 1.5 0.2 setosa
9 4.4 2.9 1.4 0.2 setosa
10 4.9 3.1 1.5 0.1 setosa
@chiral
chiral / input.csv
Last active September 5, 2015 12:55
marketing action optimization with binomial test and frontier curve
Ad Imp Clk
A 300 6
B 500 14
C 150 5
@chiral
chiral / Butterfly.as
Created August 24, 2014 07:08
Butterfly animation FLASH : https://dl.dropboxusercontent.com/u/15259519/flash/butterfly/index.html
package
{
import flash.display.MovieClip;
import flash.display.Sprite;
import flash.display.Bitmap;
import flash.text.StyleSheet;
import flash.text.TextField;
import flash.geom.Transform;
import flash.geom.Matrix;
import flash.events.*;
@chiral
chiral / lda_cgs.R
Last active May 4, 2019 13:16
An implementation of Collapsed Gibbs sampling algorithm for LDA in R
# LDA collapsed Gibbs sampler implementation in R by isobe
bows2corpus <- function(bows) {
print("bows2corpus")
docs <- list()
words <- c()
index <- list()
last_index <- 0
@chiral
chiral / ApplesAndPears.java
Created June 5, 2014 03:05
SRM623Div2Hard in Java
import java.io.*;
import java.util.*;
public class ApplesAndPears {
private int[][][] sb;
public int getArea(String[] board, int K) {
int N = board.length;
sb = new int[3][N][N];
@chiral
chiral / index.html
Created June 1, 2014 17:52
Mondorian art in Processing.js.
<html>
<body>
<script src="./processing.min.js"></script>
<canvas datasrc="./mondorian.pjs"></canvas>
</body>
</html>
@chiral
chiral / scw.R
Last active August 29, 2015 14:01
An implementation in R for "Exact Soft Confidence-Weighted Learning" ( http://icml.cc/2012/papers/86.pdf )
library("rjson")
scw <- function(D,eta,verbose=F) {
phi <- qnorm(eta)
psi <- 1+phi^2/2
zeta <- 1+phi^2
mu <- rep(0,D)
sigma <- diag(D)
@chiral
chiral / brand2.R
Created April 14, 2014 10:25
brand score estimation toy model with bayesian logistic regression
library(R2WinBUGS)
library(coda)
setwd("~/R")
eps <- 1.0E-4
N <- 10
K <- 2
data1 <- list(
@chiral
chiral / prediction1.R
Last active October 31, 2016 09:58
sample program for category data analysis, made for a challenge in Kaggle.
library(dplyr)
library(ggplot2)
library(reshape2)
train <- read.csv("train.csv")
#test <- read.csv("test_v2.csv")
az <- train %.%
filter(record_type==1) %.%
select(A:G)
@chiral
chiral / allstate-purchase-prediction.R
Created April 6, 2014 11:12
base line model for https://www.kaggle.com/c/allstate-purchase-prediction-challenge
library(dplyr)
#train <- read.csv("train.csv")
test <- read.csv("test_v2.csv")
last_items <- test %.%
group_by(customer_ID) %.%
filter(shopping_pt==max(shopping_pt)) %.%
mutate(plan=paste(A,B,C,D,E,F,G,sep='')) %.%
select(customer_ID,plan)