Top

個別メモ

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

【第1493回】 まだまだ仕事（2009年12月29日）

• 6:30起床。往路あさま510号。まだまだ仕事だ。まずは原稿を仕上げてしまおう。
• 午前中にコラム原稿その１がとりあえず最後まで行った（まだ長すぎるんだが）。昼はとよだの日替わりランチ。明日からはとよだも休みだそうなので，すき家か？
• RjpWikiのＱ＆Ａ（初心者コース）の質問で，行列の回転というのがあって，90度時計回りに回転したい行列をxとすれば，既にt(apply(x,2,rev))という完璧な解答が出ているが，次の式を思いついたので書いておく。例えば5行5列の単位行列を90度回転したものを作るのが，1*outer(1:5,5:1,"==")でできるというのが味噌だ。

  t(outer(1:dim(x)[1],dim(x)[1]:1,"==") %*% x)
  # または，同じことだが
  t(x) %*% outer(1:dim(x)[1],dim(x)[1]:1,"==")

• 昼下がり，学生が地域保健実習のレポートをUSBで持ってきた。まあ，年内ということになっているので想定内だが，メールで出すように言ってあるので，それほどこういう例は多くないと思う。
• 16:30までかかって，原稿4つ中1つだけ（マラリアのコラム），最後まで行った。まだ長すぎるが，どう切るべきかこれ以上は判断しかねるのでメールを投げてみた。
• こういう日でもオセアニア学会仕事が舞い込んでみたりするんだな。まあ，簡単なことだったからいいけれども。
• 遺伝子組み換え作物のコラムを改稿中，ふと（ってどういう思考回路なのか我ながら謎だが）先日の人口学講義でやった「死亡の分析」でRによるモデルの当てはめを入れるのが意外に簡単だったことに思い至り，修正してしまった。
• その後，遺伝子組み換え作物コラムを一貫性をもった段階まではもっていったのだが，この後，これもどう切ればいいか判断がつかないので，メールを投げてみた。気が付いたら21:00を過ぎていた。復路あさま553号。

▼前【1492】（一応仕事納めだったはず（2009年12月28日） ）　▲次【1494】（新幹線が空いている（2009年12月30日） ）　●Top

△Read/Write COMMENTS

Notice to cite or link here | [TOP PAGE]