data(manufacturingEmails)
## Not run:
# # 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')
# ## End(Not run)
Run the code above in your browser using DataLab