# TODO: Add comment
# 
# Author: E.Korsching 10.9.2009
###############################################################################



label.col <- function(x, col.numbers = c(4, 3, 2), str.length = c(50, 30, 10), sep=""){
	#add label col to data.frame
	if(missing(str.length))  str.length <- rep(100, length(col.numbers))
	
	for(i in 1:length(col.numbers)) {
		if(i>1){
			label <- paste(label, substring(x[, col.numbers[i]], 1, str.length[i]), sep = sep)
		}else{
			label <- paste(substring(x[, col.numbers[i]], 1, str.length[i]), sep = sep)
		}
	}
	label <- as.character(label)
	erg <- cbind(x,as.data.frame(label,stringsAsFactors=F))
	return(erg)
}


#col name : label
#test <-label.col(x=HG.U133A, col.numbers = c(10,11,9,8), str.length = c(15, 15, 50, 50), sep=" - ")

#Gene.Symbol,Chromosomal.Location,Gene.Title
#HG.U95Av2.1 <- label.col(x=HG.U95Av2, col.numbers = c(4,5,3), str.length = c(15, 15, 200), sep=" - ")
#HG.U133A.1 <- label.col(x=HG.U133A, col.numbers = c(10,11,9), str.length = c(15, 15, 200), sep=" - ")
#HG.U133A.2.1 <- label.col(x=HG.U133A.2, col.numbers = c(10,11,9), str.length = c(15, 15, 200), sep=" - ")
#HG.U133.Plus.2.1 <- label.col(x=HG.U133.Plus.2, col.numbers = c(10,11,9), str.length = c(15, 15, 200), sep=" - ")

#and rename to original file