how do i produce a simple text table?

dat <- data.frame(matrix(c("County",
         "Emp Name",
         "Emp Range",
         "Lander",
         "X",
         "100-249",
         "Lander",
         "Y",
         "50-99"), nrow = 3, byrow = T))

write.table(dat, file = "my_table.txt", sep = "\t",
            row.names = F, col.names = F)

Once you got this, you can take a look at the kable package, it is also quite easy to use.