2012年最後の投稿

これまで,編集のしやすいので,使っていましたが, これからは,Rとknitrでレポート作ることにしますので,このブログ(?)はやめます。ご愛読ありがとうございました。

描画用のシェープファイル

関東地方も作っておく create table kantosec65 as select aac,ST_Simplify(the_geom,0.005) from dist3sec; create table kantocity340 as select aac,ST_Simplify(the_geom,0.005) from dist3city; 保存方法は↓と同じ

shape file 作る

地図をいろ塗りするときに,いつもひーひーいっているので,シェイプファイルを作ってRから描くようにしたい。 とおもって,まずはシェイプファイルを単独で作っておく。 create table jpnsec348s as select ST_Simplify(the_geom,0.005) from jpnsecwiod of…

crontab -e

1 * * * * /home/kubota/twitter/rectw.py 5 0 1 * * mv /home/kubota/twitter/tweet.txt /home/kubota/twitter/tweet_`date +\%Y\%m`.txt 35 0 1 * * touch /home/kubota/twitter/tweet.txt

twitter api ビールのつぶやきを収集する pythonコード

あまり長いと(時間がかかると?) details: {"error":"Invalid query"} が返ってくるので注意.10x100=1000ツイートを1時間ごとにcronで種集すればとりあえずは良い感じ. しばらく様子を見る. #!/usr/bin/python # -*- coding: utf-8 -*- import twitter …

dos窓でls

以下のファイルを「ls.bat」として,「C:\Windows\System32」に保存するだけ. dir %1

NetCommons

原稿投稿フォームから,重複を発見する for(i in 1:nrow(genko)){ if(sum(genko[i,2]==genko[-i,2])){ cat(as.character(genko[i,2]),"\n") } }

multicore

setwd("/home/kupotti/R") install.packages("multicore_0.1-7.tar.gz") library(multicore) #system.time(unlist(mclapply(1:32, function(x) sum(rnorm(1))))) system.time(unlist(mclapply(1:32, function(x) sum(rnorm(1e7))))) system.time(unlist(lapp…

ruby json

パスの通し方が一時的だけど,とりあえずメモ代わり。 WebのCGIとして動かせる場合にはどうすればいいのかな。 sudo apt-get install ruby sudo apt-get install rubygems1.8 sudo gem install json sudo gem install json_pure RUBYLIB=/var/lib/gems/1.8/g…

easy_install のインストール

簡単にインストールできます。ここ*1を参照。 sudo apt-get install python-setuptools *1:http://www.hacksparrow.com/ubuntu-how-to-install-easy_install.html

Twitter4Jを使ってEcripseでアプリを作る

F.基本ウィンドウの作成(2)*1を参考に作成。 GridBagLayoutで文句をいわれるので, ここ*2を参考にして,JREを1.6に変更する。 *1:https://sites.google.com/site/elekmole/twitter4jtop/00-preparation/f-base-gui-code *2:http://d.hatena.ne.jp/hatappo…

ggplot2使えない

とおもったら,protoがアップデートしたのかな? 入れ直したら使えたので,自分用メモ su - www-data R install.packages("proto", lib="/var/www/suicide/rlib/") 43

phpPgAdmin

ダウンロード,設定*1 wget http://jaist.dl.sourceforge.net/sourceforge/phppgadmin/phpPgAdmin-4.2.tar.gz tar xzf phpPgAdmin-4.2.tar.gz mv phpPgAdmin-4.2 /var/www/phppgadmin vi /var/www/phppgadmin/conf/config.inc.php 修正点3点,ホスト名,pos…

TeX

\begin{figure}[h] \centering \includegraphics[width=0.95\textwidth]{fig/hoge.eps} \end{figure}

一番小さいフォント

TeX

\tiny{hogehoge}

右矢印 →

TeX

$ \rightarrow $

Yのサポートを調べるための下準備

awk

X→Y:XもYも一つのアイテム,Xが空,それ以外を取り出す。 BEGIN{FS = ","} $2 ~/{}/{ print } END{} BEGIN{FS = ","} $2 !~/{}|&/{ print } END{} BEGIN{FS = ","} $2 ~/&/{ print } END{} 実行は,ファイル名:order_ap.csv,スクリプト名:20120105-1.awk…

アソシエーション分析の結果の書き出し

Introduction to arules A computational environment for mining association rules and frequent item sets*1 のP29より引用Finally, the found rules can be written to disk to be shared with other applications. To save rules in plain text format …

アソシエーション分析

アソシエーション分析(1)*1より。 inspect(head(SORT(data.ap1, by = "support"), n = 30)) No left => right supp conf lift 27 {タバコ,弁当} => {オムツ} 0.2 1.0 1.666667 30 {タバコ,弁当} => {ビール} 0.2 1.0 1.250000 通常なら,27を選ぶのだけ…

TeX 図と図を平行に (beamer用)

ここより引用*1 \begin{frame} \begin{figure} \centering \begin{minipage}{.45\textwidth} \includegraphics[width = .4\textwidth]{img/img1.eps} \caption{image1} \label{fig:image1} \end{minipage} \hfill \begin{minipage}{.45\textwidth} \includeg…

mysql root パスワード リセット

SQL

rootでlocalhostにログインできなくなっていたので, アップデートしたから?, このページ*1を参考にルートのパスワードを変更。もちろん,このままの文字列ではないですけどね・・・ /etc/init.d/mysqld stop mysqld_safe --skip-grant-tables & mysql -u …

mysql root パスワード リセット

SQL

rootでlocalhostにログインできなくなっていたので, アップデートしたから?, このページ*1を参考にルートのパスワードを変更。もちろん,このままの文字列ではないですけどね・・・ /etc/init.d/mysqld stop mysqld_safe --skip-grant-tables & mysql -u …

mysql root パスワード リセット

SQL

rootでlocalhostにログインできなくなっていたので, アップデートしたから?, このページ*1を参考にルートのパスワードを変更。もちろん,このままの文字列ではないですけどね・・・ /etc/init.d/mysqld stop mysqld_safe --skip-grant-tables & mysql -u …

mysql root パスワード リセット

SQL

rootでlocalhostにログインできなくなっていたので, アップデートしたから?, このページ*1を参考にルートのパスワードを変更。もちろん,このままの文字列ではないですけどね・・・ /etc/init.d/mysqld stop mysqld_safe --skip-grant-tables & mysql -u …

mysql root パスワード リセット

SQL

rootでlocalhostにログインできなくなっていたので, アップデートしたから?, このページ*1を参考にルートのパスワードを変更。もちろん,このままの文字列ではないですけどね・・・ /etc/init.d/mysqld stop mysqld_safe --skip-grant-tables & mysql -u …

mysql root パスワード リセット

SQL

rootでlocalhostにログインできなくなっていたので, アップデートしたから?, このページ*1を参考にルートのパスワードを変更。もちろん,このままの文字列ではないですけどね・・・ /etc/init.d/mysqld stop mysqld_safe --skip-grant-tables & mysql -u …

colnames

R

datiii[j]i)i print(dati) }

%LET ステートメント

classにハイホンがあるとうっとうしいので,Iris-以降を改めてclassとしてiris2を作っておく。 data iris2; set iris; class=SCAN(class,2,"-"); put class=; proc print data=iris2; run; setosa(class=set)だけのクラスを作りたければ,こうすればいいが,…

irisデータをcsvで読み込む

SAS

Irisデータ*1を読み込む data iris; infile 'I:\SAS\iris.csv' dlm=','; input sepalL sepalW petalL petalW class$; proc print data=iris; run; *1:http://archive.ics.uci.edu/ml/datasets/Iris

関東地方(島しょを除く)平成19年二次医療圏の隣接情報を作る

create table transkanto (sec int, aac character(5) primary key); copy transkanto from '/var/lib/postgresql/pgis/transkanto_sort_city_wi.csv' with csv; create table kantoswi as select * from kantowi4 inner join transkanto using (aac); creat…