MaddisonSources[['GBR']]
MaddisonSources[['GBR']][, 1, drop=TRUE]
# = c('1', '1252–1700 (England)', '1700–1870')
# for data from the year 1
# and for England only between 1252 and 1700, etc.
MaddisonSources[['IRN']][, 1, drop=TRUE]
# = '1820, 1870, 1913, 1950'
# for those 4 years only.
MaddisonSources[c('GBR', 'USA')]
MaddisonSources[['GBR']][, 1, drop=TRUE]
# = c('1', '1252–1700 (England)', '1700–1870')
MaddisonYears[MaddisonYears$ISO=='GBR', ] =
data.frame(
ISO=rep('GBR', 3),
yearBegin=c(1, 1252, 1700),
yearEnd =c(1, 1700, 1870),
sourceNum=1:3
)
MaddisonSources[['EGY']][, 1, drop=TRUE]
# = c('1', '700 – 1500', '1820, 1870, 1913, 1950')
MaddisonYears[MaddisonYears$ISO=='EGY', ] =
data.frame(
ISO=rep('EGY', 6),
yearBegin=c(1, 700, 1820, 1870, 1913, 1950),
yearEnd =c(1, 1500, 1820, 1870, 1913, 1950),
sourceNum=c(1, 2, rep(3, 4))
)
Run the code above in your browser using DataLab