# List particular historical period
periods <- rbind(c(1470,1485),
c(1485,1557),
c(1558,1602),
c(1603,1648),
c(1649,1659),
c(1660,1688),
c(1689,1713),
c(1714,1726),
c(1727,1759),
c(1760,1775),
c(1776,1788),
c(1789,1800),
c(1800,2014))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.