# NOT RUN {
mynet1 <- sienaDependent(array(c(tmp3, tmp4), dim=c(32, 32, 2)))
mydata <- sienaDataCreate(mynet1)
myeff <- getEffects(mydata)
myeff <- includeEffects(myeff, transTrip)
myalgorithm <- sienaAlgorithmCreate(nsub=2, n3=100)
ans <- siena07(myalgorithm, data=mydata, effects=myeff, batch=TRUE)
myeff <- updateTheta(myeff, ans)
# }
Run the code above in your browser using DataLab