Nothing
# part of the Statnet suite
# of packages for network analysis, http://statnet.org .
#
# This software is distributed under the GPL-3 license. It is free,
# open source, and has the attribution requirements (GPL Section 7) at
# http://statnet.org/attribution
#
# Copyright 2012-2013 Statnet Commons
#######################################################################
require(ndtv)
require(testthat)
# ------- tests for filmstrip funciton -----
data(stergm.sim.1)
#try a default
filmstrip(stergm.sim.1)
# check that par was reset back to original
expect_equal(par()$mfcol,c(1,1))
# try setting mfcol and exporting a wide version to a pdf
pdf('filmstripTest.pdf',width=7,height=2)
filmstrip(stergm.sim.1,frames=5,mfrow=c(1,5),displaylabels=FALSE)
dev.off()
# try pre-computed coords
data(stergm.sim.1)
compute.animation(stergm.sim.1,slice.par=list(start=5,end=15,interval=1, aggregate.dur=1,rule='latest'))
filmstrip(stergm.sim.1,frames=4)
# try overriding pre-computed
compute.animation(stergm.sim.1,slice.par=list(start=5,end=15,interval=5, aggregate.dur=1,rule='latest'))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.