data(manufacturingEmails)
if (FALSE) {
# plot the organizational hierarchy
plot(manufacturingReportsTo,displaylabels=TRUE,
vertex.cex=0.6,label.cex=0.6,edge.col='gray')
# plot the first two days of emails
plot(network.extract(manufacturingEmails,
onset=1262482810,length=60*60*24*2))
# plot email density over time
plot(density(as.data.frame(manufacturingEmails)$onset))
# convert date string to POSIX seconds
as.numeric(as.POSIXct('2010-09-30',format='%Y-%m-%d'))
# convert POSIX seconds to date string
as.POSIXct(1285830000,origin='1970-01-01',tz = 'PL')
}
Run the code above in your browser using DataLab