Top

個別メモ

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

【第1086回】 見学実習（2008年6月23日）

• 土日は先週とは別の少年野球の大会で，準決勝は娘が逆転サヨナラとなるランニングホームランを打って競り勝ったが，決勝では実力を発揮しきれないままに負けてしまい，準優勝という結果だった。準決勝で力を使い果たしてしまったのかもしれない。それでも２大会連続の入賞なわけだから，子供たちは立派なものだと思う。
• 月曜は5:40頃起床。その頃は小降りだったが，じきに大雨になり，自転車もないことだし，妻の車で駅まで送ってもらった（駅に着いたときは再び小降りになっていたが）。当然のことながら×。往路あさま510号。今日の午後は３年生の公衆衛生学の見学実習に同行することになっているが，雨が心配だなあ。
• 新前橋ではちょうど雨が上がったところという感じの空だったので，自転車で研究室へ。予報では昼間は降るが夜は上がるらしいので，帰りも自転車が使えるだろうという読みである。
• 見学実習で渋川に行く途中は物凄い大雨だったが，帰りには殆ど止んでいた。この分なら帰りは自転車が使えそうだ。
• R-2.7.1 is releasedというメールが届いた。中で注目すべきなのは

  pdf() and postscript() were not working correctly in 2.7.0 with
  UTF-8 encoded data in a non-UTF-8 MBCS (e.g. EUC-JP on Unix,
  CJK locales on Windows).

  というメッセージだ。これはたぶんPatchedで直ったバグのことかと思うが，もしかして「高」の異体字を含む文字列をpdfに出力しようとすると何も出ないという状況（さっき気付いたが，まだ条件を詰め切れていない）も直っていると嬉しいなあ。
• 今日のR勉強会では三重大の奥村さんのblog記事をネタとして使わせて貰って，データハンドリングをいろいろ試してみた。データを読み込むまではExcelでセルの表示形式を標準にし，変数名からスペースを削除し，名前の変数名をNameとしてから全体を選んでコピーし，
  

  dat <- read.delim("clipboard")
  attach(dat)

  で楽勝だが（このファイルをread.delim()で読み込んでからattach()でもいい），問題はその次だ。計算のさせ方としてはいろいろあるわけだが，例えば次のようなコードが使える。
  

  cbind(as.character(Name),Excellent*5+VeryGood*4+Good*3+Acceptable*2+Poor) # 最も素朴
  for (i in 1:12) { dat$score[i] <- sum(5:1*dat[i,2:6]) }; dat # forを使うのは邪道か
  cbind(as.character(Name),rowSums(matrix(rep(5:1,12),nrow=12,ncol=5,byrow=T)*dat[,2:6])) # 速いはず

  
  しかし，もっといいコードがありそうなものだが。
• 学生の英語論文投稿作業がやっと完了した。見学実習に行く前に，別の学生の北関東医学会発表用の抄録投稿も完了したのだった。今日はまあ，生産性の高い一日だったといえよう。しかし，締め切りをとっくに過ぎた自分の原稿がまだ終わっていないという現状はあるわけだが。
• 復路あさま553号。

▼前【1085】（暑い（2008年6月20日） ）　▲次【1087】（久々に晴れ（2008年6月24日） ）　●Top

△Read/Write COMMENTS

Notice to cite or link here | [TOP PAGE]