yuu-ito · December 26, 2015 04:39
diff --git a/001_memo.md b/001_memo.md
diff --git a/002_merge2.R b/002_merge2.R
 merge2 <- function(dfs, ...)
 {
 　 # res <- merge2(list(Df1, Df2, Df3), by="ID")
 　 base <- dfs[1]
 　 lapply(dfs[-1], function(i) base <<- merge(base, i, ...)) # [1]
  return(base)
 }
	merge2 <- function(dfs, ...)
	{
	# res <- merge2(list(Df1, Df2, Df3), by="ID")
	base <- dfs[1]
	lapply(dfs[-1], function(i) base <<- merge(base, i, ...)) # [1]
	return(base)
	}