Top

個別メモ

Latest update on 2012年3月5日 (月) at 10:54:46.

【第1694回】 また雨（2010年10月4日）

• 6:00起床。ゴミ出しをしたり今朝急に回さねばならなくなった回覧が来たりしたので出発が遅くなった。雨も降ってきたが自転車で長野駅に行き，往路あさま512号。１時間待ちはしたくないので，512号に乗り遅れるわけにはいかない。軽井沢まで眠っていたが，そこから高崎までは起きていられたので，少しだけメモ打ちが進んだ。
• 群馬は曇りだったが，気力も体力も足りないし，512号からだと上越線を新前橋で降りて群大病院に行くバスへの乗り継ぎがスムーズなので日和ってその経路をとった。今夜は科研の説明会があるので，帰りは乗り継ぎがいいバスには乗れないが，仕方ない。
• 昨日の地理学会のプレゼンで使ったMaternity history chartは，James William Woodが"Dynamics of Human Reproduction"の中で提示したグラフで，ぼくの工夫は，集団ごとの第n子出産年齢の中央値としてKaplan-Meyer推定量を用いた点と，プロットする子供数はパリティの平均値（を超える中で最小の整数値）とした点にあるのだが，これまではOpenOffice.orgのDrawなどを使って手作業で書いていた。最近のRのスキルならば，これを描画する関数が書けるんじゃないかと試してみたところ，一番簡単なのは，plotrixライブラリのgantt.chart()関数を応用することであった。ほどなく，右の図のように割ときれいにできあがった。デフォルトでの問題は隣り合った箱がつながって境界がなくなってしまうことだったので，解決策として箱の右端を微妙に短くしたが，場所ごとにその間隙の幅の見え方が異なるのが美しくないので，やはりrect()を使ってゼロから描画する関数を作ってしまうべきかもしれない。
• 17:30からR実践活用勉強会，18:30から科研費説明会と怒涛の３時間が過ぎ，20:44のバスで帰途に就いた。復路あさま549号では眠ってしまった。しかし長野駅にみどりの窓口が開いている時間に着けたので，明日までが有効期限だった定期券を更新するため継続で３ヶ月定期を購入してから帰宅した。

▼前【1693】（日本地理学会シンポジウム（2010年10月3日） ）　▲次【1695】（設計と実装（2010年10月5日） ）　●Top

△Read/Write COMMENTS

Notice to cite or link here | [TOP PAGE]