Yuya MATSUMURA ymattu

Causal Inference, Machine Learning

ymattu / latlong2mesh.sas

Last active July 15, 2017 05:59

緯度経度から標準地域メッシュコードを算出

	libname sasfunc "X:\sastest" ;

	proc fcmp outlib=sasfunc.functions.geo ;

	function latlong2mesh(lat, long) ;

	/* latitude */
	lat_in_min = lat * 60 ;

	code12 = int(lat_in_min / 40) ;

ymattu / reverse_geocoding.sas

Last active July 11, 2017 07:55

	data foo;
	input customer_number lat long;
	datalines;
	1 35.039200 135.728965
	2 35.626065 139.884678
	;
	run;

	/* 緯度経度、shapefileの全組み合わせを取ってくる */
	proc sql;

ymattu / mapimport.sas

Created July 11, 2017 05:05

	libname map "path\to\lib"

	proc mapimport out=map.japanshp datafile="path\to\N03-140401_GML\N03-14_140401.shp";
	run;

ymattu / find_pref_city.R

Last active July 6, 2017 14:51

	library(rvest)
	library(stringr)

	find_pref_city <- function(lat, lon) {
	nominatim_url <- str_c("http://nominatim.openstreetmap.org/reverse?format=xml&lat=",
	lat,
	"&lon=",
	lon,
	"&zoom=18&addressdetails=1")
	xmldata <- read_xml(nominatim_url)

ymattu / rename_sample.sas

Created May 28, 2017 17:04

	data new;
	set sashelp.iris;
	rename SepalLength=new_variable;
	run;

	proc print data=new(obs=6);
	run;

ymattu / print_iris.sas

Created May 28, 2017 16:59

	proc print data=sashelp.iris(obs=6);
	run;

ymattu / find_country.sas

Last active May 27, 2017 16:19

ymattu / save_ein.el

Created May 15, 2017 01:38

Emacs Ipython Notebook で保存できないエラーをなんとかする

	(defun save-buffer (&optional arg)
	(interactive "p")
	(if (eq major-mode 'ein:notebook-multilang-mode)
	(ein:notebook-save-notebook-command)
	(let ((modp (buffer-modified-p))
	(make-backup-files (or (and make-backup-files (not (eq arg 0)))
	(memq arg '(16 64)))))
	(and modp (memq arg '(16 64)) (setq buffer-backed-up nil))
	(if (and modp (buffer-file-name))
	(message "Saving file %s..." (buffer-file-name)))

ymattu / join.sh

Last active October 24, 2020 03:56

複数のcsvを連結し、最初のファイル以外はヘッダーを削除するシェルスクリプト

	#!/bin/bash

	counter=0

	for file in `\find . -maxdepth 1 -name '*.csv'`;
	do
	echo $file
	if [ $counter == 0 ]; then
	cat $file > join_result.csv
	else

ymattu / insert_chunk.el

Last active December 22, 2016 04:15

emacsのpolymodeでチャンクを挿入するコード

	;; チャンク挿入
	(defun tws-insert-r-chunk (header)
	"Insert an r-chunk in markdown mode. Necessary due to interactions between polymode and yas snippet"
	(interactive "sHeader: ")
	(insert (concat "```{r " header "}\n\n```"))
	(forward-line -1))

	(define-key poly-markdown+r-mode-map (kbd "M-n M-r") 'tws-insert-r-chunk)

	(defun tws-insert-py-chunk (header)