if (FALSE) {
# first 100 entries in the EDH dataset (default)
EDHdates <- edhw(vars=c("not_after", "not_before"), as="df", limit=100)
# timespans
plot.dates(EDHdates, taq="not_before", tpq="not_after")}
Run the code above in your browser using DataLab