瀬底島4日目：ゲリラRゼミナール

瀬底島にきって、4日もたつ。昨日、電気が復活したので、実験もできて安心した。こんなながい時間瀬底にいててぶらで帰るのはみっともないからね。

Its 4 days since I arrived in Sesoko. After the power came back on yesterday, I was able to continue the experiments. It would be pitiful if I left Sesoko with no data, after spending such a long period of time here.

さらに、昨日の夕方統計解析の話をしていたら、Rの使いかたを「かるく」デモすることになった。と言うことで、2時間のゲリラRゼミナールを開始！まずは、「read.csv()」を紹介して、データの入力。そのつぎ、「reshape()」をつかって、縦横の変換。さらに作図「plot()」や線形モデル「lm()」を紹介して、最後には一般化線形モデル「glm()」の解析の紹介。久しぶりに遅くまでゼミしたが、結構楽しかった。K原研は熱心に聞きながら、コードを実行した。「オオオーーー」や「スゴイスゴイ！！」の歓声。Rっていいね。

Last evening, while discussing stats, I was steered into providing a little demo on how to use R. So, for two hours I ran a impromptu R seminar. First, we learned to use the "read.csv()" function to get the data into the R environment, then we used the "reshape()" function to change from a wide to long data format. Then we made a few plots with "plot()" and tried out the function for linear models "lm()". In the end, we used the "glm()" function to fit a generalized linear model. Since its been a while since I ran an R seminar, it was really fun to do it again. Dr. K's lab listened fervently while running the code. Lots of "oohs" and "ahhs". R is "da bes'".

今朝おきたら、とてもいい天気。からっとして、涼しい海風がたまらない。桟橋にいって、30分間沖縄の海を観察した。まわりにはコウイカや稚魚の群集があつまってきた。

This morning, I woke up to very nice weather. Nice and dry, with a pleasant sea breeze! I went over to the wharf and enjoyed myself for 30 minutes or so. Quite a few cuttlefish and schools of juvenile fish could be easily seen.

今年はほぼ毎月沖縄にいくのかな。

I think this year, I will be going to Okinawa every month.