Top

個別メモ

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

【第707回】 三連休は確かに仕事はできないんだが（2007年1月9日）

• 身体を休めることもできなかった土日月であった。
• 土曜から雪が降り出したので雪かきとか，コンピュータ修理とかソフトのインストールとか家の片付けとか。日曜は少年野球の新年の集いとか雪合戦とか雪かきとか少年野球の父の会とか。月曜は某所のコンピュータのソフトウェア更新と家事をしながら少年野球の新年の集いの時のメモを打ち込んでいたら日が暮れた。
• 月曜は6:00起床。息子を起こして一緒に食事をしたが，娘が起きてこない。朝練なしかと思っていたら7:00に起きて来て，室内ジョギングを10分やろうというのでつきあう。その後，普通に家を自転車で出たのだが，雪が凍り付いてボコボコかつ場所によってはツルツルの路面は異常に走りにくく，普段の２倍の時間がかかったので，往路あさま512号。高崎に着いたら，ちょうど上越線が時間通りに発車するところだった。次の吾妻線が15分ほど遅れていたので，ダッシュしても上越線に飛び乗るべきだったと後悔したが遅かった。
• 久保さんの日誌にあったデータフレーム変換問題だが，汎用性を求めなければ以下で事足りる。

  (data <- data.frame(id=1:4,n.sample=5,x=c(2,5,3,4),y=c("red","yellow","green","blue")))
  attach(data)
  L <- length(id)
  nx <- n.sample - x
  df1 <- data.frame(id=rep(id,x),n.sample=rep(n.sample,x),x=rep(rep(1,L),x),y=rep(y,x))
  df2 <- data.frame(id=rep(id,nx),n.sample=rep(n.sample,nx),x=rep(rep(0,L),nx),y=rep(y,nx))
  detach(data)
  (converted <- rbind(df1,df2))
  

  repする順番を変えられれば１行コードもできるんだが無理らしい。
• RjpWiki管理者の岡田さんが，あのP.Dalgaardの名著ISwRを翻訳出版されるとのこと。原著はもってるんだが，これは買っておかねばなるまい。
• 書き忘れていたが，先週末にファーストステーションという店に通販で注文したスキー板とストックは，土曜の夕方に自宅に到着したのだった。秋田の店だそうだが，とくに事故も無く素早く届いて良かった。
• 先週末に届いていたオセアニア学会仕事を片付けた。学会誌目次とabstractの最新号（未発送）分をアップロードした。最新号からカバーが刷新されて，実に格好いいデザインになった。これは新編集長のバイタリティに負うところが大きいのだがgood jobだと思う。
• 昨年末に採点完了していた医学情報処理演習の成績をOOo-calcに入力し，これまでの出席点を仮に決め，レポート内容により加点して計算してみたところ，既に大半の学生が合格点に達していた。ちょっとこれでは基準が甘すぎか？　とも思うが，最終回が終わってから再度考えることにしよう。
• 既に21:30近い。復路は終電あさま555号。

▼前【706】（上唇が腫れている（2007年1月5日） ）　▲次【708】（ミーティングとか（2007年1月10日） ）　●Top

△Read/Write COMMENTS

Notice to cite or link here | [TOP PAGE]