ぎょーむ日誌 2005-08-12

2005 年 08 月 12 日 (金)

• 0810 起床． 朝飯． コーヒー． 洗濯． 0925 自宅発． 晴． 0940 研究室着． けっこう暑い．
• とりあえずアカマツ原稿 (光合成補償のほう) の修正． メイル送信．
• 昨日， 低温研の加藤さんから再送していただいた母子里データ． R によるデータチェック & データ変換． ほーら， ちぇっくしてみたら「隠れた欠測点」 がぽろぽろと ……
• write.csv() はなんだか挙動がヘンであるように思うので write.table(..., sep = ",", ...) を使うことに．
• とにかく R の中でできる変換はすべてやってしまうことに． こんなかんぢで．

  > source("convCSV.R")
  ... (欠測点チェック) ...
  Warning: (NO LINE) NA at (3, 3.6, 9)
  Warning: (NO LINE) NA at (3, 4.2, 9)
  Warning: (NO LINE) NA at (3, 4.8, 9)
  # output to dataS.csv ...
  > (ds <- read.csv("dataS.csv"))
     Xmin Ymin Zmin Xmax Ymax Zmax IX IY IZ  L
  1   0.3  0.0  2.4  0.6  0.6    3  0  0  0 50
  2   0.3  0.6  2.4  0.6  1.2    3  0  1  0 54
  3   0.3  1.2  2.4  0.6  1.8    3  0  2  0 43
  4   0.3  1.8  2.4  0.6  2.4    3  0  3  0 47
  5   0.3  2.4  2.4  0.6  3.0    3  0  4  0 51
  6   0.3  3.0  2.4  0.6  3.6    3  0  5  0 61
  7   0.3  3.6  2.4  0.6  4.2    3  0  6  0 70
  8   0.3  4.2  2.4  0.6  4.8    3  0  7  0 62
  9   0.3  4.8  2.4  0.6  5.4    3  0  8  0 73
  10  0.3  5.4  2.4  0.6  6.0    3  0  9  0 41
  11  0.3  6.0  2.4  0.6  6.6    3  0 10  0 66
  12  0.6  0.0  2.4  0.9  0.6    3  1  0  0 46
  ...
  

• 昼飯．
• 1310 ごろより， またしても 「7F 『夜逃げ』退官教授」 たちが利用していた部屋のあとかたづけ作業 …… なんかそろそろ裁判所に告訴してやりたくなってきた． 本日は「図書室」の巨大本棚 2 セットの解体． 作業者 5 名． こういうばかばかしい作業はさっさと終了させるにかぎる …… と集中してとりくむ． 1520 作業終了．

[巨大本棚]

これは 2 セット目を解体中． サイズは 幅 0.6m × 奥ゆき 6m × 高さ 2.5m ぐらい． 私はボルト・ナットはずしに専従． 部屋が汚いのでマスク着用で作業． かなり汚れる．

• Gmail アカウント一個進呈． 残り 48 個．
• また母子里データ変換ぷろぐらみんぐ． 低温研の加藤さんにいろいろとお尋ねしつつ．
• データ構造がやはりたいへんで， しかも手ぬき明るさ計算のやりかたに依存する， と． このあたりうまく分離できんかな? 1830 研究室発． 1845 帰宅． 2000 自宅発北大構内走． 2055 帰宅． 体重 73.4kg． 晩飯．
• [今日の運動]
  • 北大構内走 55 分間．
• [今日の食卓]
  • 朝 (0810): 米麦 0.8 合． モズク酢． 麻婆豆腐．
  • 昼 (1240): 研究室お茶部屋． 米麦 0.5 合． 麻婆豆腐．
  • 晩 (2140): 米麦 0.8 合． ゴーヤ・ピーマン・エリンギ・ショウガ・イカの炒めもの．