R/load.annotation.R

In PeteHaitch/Aclust: Clustering functions and analysis pipeline for methylation outcome data based on clustering and GEEs

load.annotation <-
function(annotation.file.name){
	require(data.table)
	annot <- read.csv(annotation.file.name, skip = 7, as.is = T)
	annot <- data.table(annot)
	annot$Coordinate_36 <- as.numeric(as.character(annot$Coordinate_36))
	setkeyv(annot, c("CHR","Coordinate_36"))
	return(annot)
}