# NOT RUN {
myalgorithm <- sienaAlgorithmCreate(nsub=4, n3=500)
mynet1 <- sienaDependent(array(c(s501, s502, s503, s501, s503, s502), dim=c(50, 50, 6)))
mydata <- sienaDataCreate(mynet1)
myeff <- getEffects(mydata)
myeff <- includeEffects(myeff, transTrip, balance)
myeff <- includeTimeDummy(myeff, recip, timeDummy="2,3,5")
myeff <- includeTimeDummy(myeff, balance, timeDummy="4")
myeff <- includeTimeDummy(myeff, density, timeDummy="all")
ansp <- siena07(myalgorithm, data=mydata, effects=myeff, batch=TRUE)
ttp <- sienaTimeTest(ansp)
## Pairwise plots show
plot(ttp, pairwise=TRUE)
## Time test plots show
plot(ttp, effects=1:3) ## default layout
plot(ttp, effects=1:3, layout=c(3,1))
# }
Run the code above in your browser using DataLab