Yuu Ito yuu-ito

Rでデンドログラムのプロット

	# kaggle titanic
	# https://www.kaggle.com/c/titanic-gettingStarted/data


	t <- read.csv("../../Downloads/train.csv")
	names(t)<-tolower(names(t))

	idx<- sample(nrow(t),(nrow(t)*0.7))
	t.tr <- t[ idx,]
	t.te <- t[-idx,]

	get_latlng_from_address<-function(zipcode){
	require("rjson")
	url.template<-"http://maps.googleapis.com/maps/api/geocode/json?language=ja&address"
	url <- paste(url.template,zipcode,sep="=")
	map_data <- fromJSON(paste(readLines(url), collapse=""))
	if(map_data$status=="OK"){
	address_info <- map_data$results[[1]]$address_components
	location <- map_data$results[[1]]$geometry$location
	res <- data.frame(
	zipcode= zipcode,

	<!DOCTYPE html>
	<html lang="ja">
	<head>
	<meta charset="UTF-8">
	<title></title>
	<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/vue/0.12.16/vue.min.js"></script>
	</head>
	<body>
	<h1>タイピングてすと：function</h1>
	function + enter で計測

	library('RUnit')
	source('./mysum.r')

	# refs
	# - http://cran.r-project.org/web/packages/RUnit/RUnit.pdf
	# - http://www.okada.jp.org/RWiki/?RUnit%20%A4%F2%BB%C8%A4%A6

	test.mysum <- function(){
	checkEqualsNumeric(mysum(1:10),55)
	}

	bind.params<-function(txt.template,...){
	require("dplyr")
	loop.cnt <-
	txt.template %>%
	strsplit(.,"") %>%
	unlist %in%
	c('?') %>%
	which %>%
	length
	res <- txt.template

	// Use Gists to store code you would like to remember later on
	console.log(window); // log the "window" object to the console

	import datetime
	import calendar


	def lastday_of_month(date):
	y = date.year
	m = date.month
	last_d = calendar.monthrange(y, m)[1]
	return date.replace(day=last_d)