# checked
cosmic_count <- function(cosmic) {
	if(cosmic=="") {
		0
	} else {
		sum(
			as.numeric(
				unlist(
					strsplit(gsub("^ID=.*OCCURENCE=|\\([^,]+\\)", "", cosmic), ",")
				)
			)
		)
	}
}