平穏？

6月12日(火)またまた

車で行こうか、自転車で行こうか、やっぱ車！と決断しかけていたら、連れ合いから「今日も自転車？」とけしかけられて自転車へ。

2時限　10:20～11:50の院講を30分で打ち切り、宿題を出して、午後の会議の打合せへ。

11:00～11:45　打合せ。

研究室に戻り、街中へランチ。
駐車場代を無料にするために、前から買おうと思っていたCDを1枚購入。

昨日の院ゼミの関数を考え。
　　> x<-c("岡山","倉敷","広島","大阪")
　　> y<-c("大阪","岡山","倉敷","広島","大阪")
　　> apply(outer(x,y,"=="),2,which)
　　[1] 4 1 2 3 4
で片付くことに気づく。もっと能率のいい方法が見つかるかも？

16:00から会議。17時過ぎまで。

終了後、来週の会議のための打合せ。理事につめをお願いする。

9時過ぎ、自転車を漕いで峠道を登っていると、後ろからきた車にブーブー鳴らされる。うるさい車だと思ったら連れ合いの車だった。娘のところで一緒に夕食して帰ってるところだったとか。