kings<-scan("http://robjhyndman.com/tsdldata/misc/kings.dat",skip=3)
(kings)
kingstimeseries<-ts(kings)
(kingstimeseries)


# get names of installed packages
packs <- installed.packages()
exc <- names(packs[,'Package'])

# get available package names
av <- names(available.packages()[,1])

# create loooong string
ins <- av[!av %in% exc]
install.packages(ins)
library(forecast)