2018-03-01から1ヶ月間の記事一覧

purrr::map_dfr = lapply + dplyr::bind_rows

そういうことなんだよな〜シミュレーション系でよく使うのでメモ。 > dplyr::bind_rows(lapply(1:3, function(x){head(iris, 1)})) Sepal.Length Sepal.Width Petal.Length Petal.Width Species 1 5.1 3.5 1.4 0.2 setosa 2 5.1 3.5 1.4 0.2 setosa 3 5.1 3.…

fillは shallow copy (浅いコピー)作るので危険

めちゃハマったのでメモ。 julia> mutable struct Hoge x::Int end julia> xs = fill(Hoge(10), 2) 2-element Array{Hoge,1}: Hoge(10) Hoge(10) julia> xs[1].x = 333 333 julia> xs[2].x 333 内包表現(でいいのか?)使うならおk。 julia> xs = [Hoge(10…

Sys.getenv()の結果をdata.frameとして扱いたい

Dlistというクラスのオブジェクトになっていて使いにくい。 > x <- Sys.getenv() > class(x) [1] "Dlist" しょうがないんで、これをdata.frameとして返却する関数を書いた。 get_env <- function(x=NULL) { env <- Sys.getenv(x) class(env) <- NULL env <- …