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



split.first.col <- function(x, sep=""){
	# get always the first item back, from a list like vector collection
	#   creating a vector out of these items
	# x: list like, sep: separator char
	nr <- length(x)
	erg <- vector("character", nr)
	a <- data.frame(strsplit(x, split=sep, fixed=T), stringsAsFactors=F)
	for(j in 1:nr){
		erg[j] <- a[[j]][1]		# keep only first element
#		cat("\n erg ",erg[j,1])
	}
	
	return(erg)
}


#split.first.col(x=ts.miR561.5p[,2], sep=".")