2013-12-01から1日間の記事一覧
2時間以上ハマったのでシェア。 > a<-2; { a<-3; }; a 3 > x <- data.frame(a=1,b=2,c=3) > set_c_func <- function(df) { df$c <- 123; return(df) } > set_c_func(x) a b c 1 1 2 123 > print(x) a b c 1 1 2 3 > set_c_func <- function(df) { df$c <<- 1…
2時間以上ハマったのでシェア。 > a<-2; { a<-3; }; a 3 > x <- data.frame(a=1,b=2,c=3) > set_c_func <- function(df) { df$c <- 123; return(df) } > set_c_func(x) a b c 1 1 2 123 > print(x) a b c 1 1 2 3 > set_c_func <- function(df) { df$c <<- 1…