💭

chainsawriot chainsawriot

💭

chainsawriot / gist:8330931

Last active January 2, 2016 16:29

Reading data with multiple comments The comment chars should not be those special regex characters.

	### assuming the test.tab have this structure
	# hello
	# ! This is comment
	# # This is also a comment
	# 1
	# 2
	# 3


	read.table(text=sub(paste0("[!#]", ".*"), "", readLines("test.tab")), header=TRUE)

chainsawriot / arraycolrenames

Created January 2, 2014 17:16

Array rename

	testarray <- array(1:6, c(2,3))
	dimnames(testarray) <- list(c("a", "b"), c("d", "e","f"))
	testarray
	dimnames(testarray) <- list(c("H", "K"), c("R", "U","G"))

chainsawriot / Example of do.call rbind

Last active January 1, 2016 14:19

Combining list of data.frames into a single data.frame.

	# combining list of data frames
	irisBroken <- list(iris[1:10,], iris[11:30,])
	do.call(rbind, irisBroken)

chainsawriot / freqtable

Created February 21, 2013 13:36

Frequency table of Chinese tokens extracted from evchk, zhyue wikipedia and press releases of HKGOV. Released under CC-BY 3.0 unported.