Create kings.R