x <- rep(c("a", "b", "c"),  each=2)
y <- rnorm(6)

class(x)
class(y)

gt <- c("CC", "CC", "CT", "TT", "CT", "CC")
class(gt)

gt <- factor(c("CC","CC","CT","TT","CT","CC"))
class(gt)