# simple call: difference now
tzDiff("America/New_York", "Europe/London", Sys.time())
# tabulate difference for every week of the year
table(sapply(0:52, function(d) tzDiff("America/New_York", "Europe/London",
as.POSIXct(as.Date("2016-01-01") + d*7))))
Run the code above in your browser using DataCamp Workspace