kings <- read.table("chosun kings.txt", header=T)
str(kings)
...