MadDateRanges(c('1', '700 – 1500', '1252–1700 (England)',
'1915-1919 & 1949', '1820, 1870, 1913, 1950'))
# equal
data.frame(
yearBegin=c(1, 700, 1252, 1820, 1870, 1913, 1950),
yearEnd =c(1, 1500, 1700, 1820, 1870, 1913, 1950),
sourceNum=c(1, 2, 3, rep(4, 4)))
Run the code above in your browser using DataLab