ぎょーむ日誌 2012-01-19

2012 年 01 月 19 日 (木)

• 岩波統計モデル本 をひたすら修正 …… と苦闘してたら目覚ましアラームが鳴った． なかなかしんどい悪夢だった． 0620 起床． ラジオ体操． 朝飯． コーヒー． 弁当の準備． 0750 自宅発． 晴． 0820 研究室着．
• 雑用的ぎょーむつづく．
• 何やらまた生態学会さーばーが不調だそーで． Spamassasin の挙動がヘンになってないかの log 解析とか …… いやはや．
• 昼飯． すぐにクラーク会館で 散髪． なンと前回は11/19だったのか． ともかく， 髪きってすっきり．
• 散髪中はひたすら廿日市アリモデルを考えていた． 考えすぎて， 散髪過程の一部の記憶がトンでしまった (いつのまに洗髪したんだろう?)． 莫大な労力と時間をかけてえられたアリデータではあるが， やはり情報量はかぎられているので， あまり複雑な統計モデリングはできなさそう． せいぜい低・中・高密度の三状態遷移ぐらいで， その遷移確率が局所環境とかに依存するといったところかな ……
• また生態学会さーばーなメイルがきてるな ……
• データ解析こんさるメイルかき． そういう季節です．
• また生態学会さーばー雑用． 自己解決の努力は時間のムダになりそうなので， Alivenet に問い合わせてみることに．
• ひととーりかたづいたかな …… ちょっとまたアリ地図． 昨日は R の library(RgoogleMaps) の GetMap.OSM() 関数で地図をとってきたわけだが， GetMap() を使うと指定ややめんどうながら Google Maps から 地図を「きりとって」ダウンロードできる．

  library(RgoogleMaps)
  lon <- c(132.28375, 132.365)
  lat <- c(34.300000, 34.381667)
  center <- c(mean(lat), mean(lon))
  zoom <- min(MaxZoom(range(lat), range(lon)))
  map <- GetMap(
  	center = center, zoom=zoom,
  	destfile = "aagoogle.png",
  	maptype = "roadmap", # maptype = "satellite", とすると衛星写真
  	size = c(526, 640)
  )
  

• またならべてみたり．

• 1740 研究室発． 買いもの． 1810 帰宅． オイスターソースがない! …… ということで買いものやりなおし． 晩飯の準備． 晩飯．
• 明日以降の料理の準備．
• postgis に少しとりくんでみる …… インストールは簡単だが， DB を構築したり shp2pgsql でそれにアクセスするのが難しい ……
• [今日の運動]
  • 朝のラジオ体操．
• [今日の食卓]
  • 朝 (0650): 米 0.6 合． ナメコ・キャベツ・油揚の味噌汁． ジャガイモ・ニンジン・タマネギ・セロリ葉・豚肉のウスターソース炒め．
  • 昼 (1200): 研究室． 米 0.7 合． ジャガイモ・ニンジン・タマネギ・セロリ葉・豚肉のウスターソース炒め． ゴボ天． ミニトマト． キャベツ． リンゴ．
  • 晩 (1930): チンゲンサイ・エリンギ・焼き豆腐・牛肉のオイスターソースすきやき (cf. NHK 今日の料理ビギナーズ)． うどん．