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時過ぎ、自転車を漕いで峠道を登っていると、後ろからきた車にブーブー鳴らされる。うるさい車だと思ったら連れ合いの車だった。娘のところで一緒に夕食して帰ってるところだったとか。
車で行こうか、自転車で行こうか、やっぱ車!と決断しかけていたら、連れ合いから「今日も自転車?」とけしかけられて自転車へ。
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時過ぎ、自転車を漕いで峠道を登っていると、後ろからきた車にブーブー鳴らされる。うるさい車だと思ったら連れ合いの車だった。娘のところで一緒に夕食して帰ってるところだったとか。