皆様お疲れ様でした。
今回初めてCCCを使いました。廃校になった小学校を転用した施設ですが、机と椅子はノスタルジーあふれるものではなかったですね。
2章の途中までやりましたので、次回は残りと3章を演る予定にしています。5/18といいましたが、Nginxとバッティングするのはよくないので次の週(5/25)にやる予定で調整します。多分富士になるので早めの昼に来て、つけナポリタンとかがんもいっちなんかを攻めるといいです。
それから、今回は懇親会をいれなかったので、次回からはいつものように設定していこうと思っています。 ちなみにアナウンスとか調整はgoogle groupsのMLを使っているのでこっちにも参加して頂ければと思います。
RとOpenCV(画像認識)
みなさんここらへんに興味があるみたいなのでちょっと調べておきました。
Rでウォーリを探してみた from Kazuya Wada
本も出版されているようです。
デジタル画像処理 (Rで学ぶデータサイエンス 11)ggplot2のtilde(~)
ggplot2のfacet_wrapで~Speciesとやっててtildeなによ？みたいな話が出たんだけど、いまいちよくわかってなかったので、調べてみたが層別したグラフを並べるための記法のようですね。
lapply
自前実装したヒトがいるのでそっちを参照。
高階関数がわからないのであればunderscore.jsのmapの実装は
_.map = _.collect = function(obj, iterator, context) { var results = []; if (obj == null) return results; if (nativeMap && obj.map === nativeMap) return obj.map(iterator, context); each(obj, function(value, index, list) { results.push(iterator.call(context, value, index, list)); }); return results; };
Haskellだったら再帰ですね。
map :: (a -> b) -> [a] -> [b] map _ [] = [] map f (x:xs) = f x : map f xs
で、あらためて該当するコードを読めばよいでしょう
get.location <- function(l) { split.location <- tryCatch(strsplit(l,",")[[1]], error= function(e) return(c(NA, NA))) clean.location <- gsub("^ ", "", split.location) if(length(clean.location) > 2) { return(c(NA, NA)) } else { return(clean.location) } } city.state <- lapply(ufo$Location, get.location)
Windows版のRStudioが不安定
Windows版のRStudioがよく落ちていたようですが、一応素のRでもこんなかんじでテキストエディタが使えるみたいなので、次回は試すといいかもしれません。