rownames(pop) <- paste("t", seq(from = 0, to = (nrow(pop) - 1)), sep = "")