# NOT RUN {
mynet1 <- sienaDependent(array(c(s501, s502, s503), dim=c(50, 50, 3)))
mydata <- sienaDataCreate(mynet1)
myeff <- getEffects(mydata)
# }
# NOT RUN {
print01Report(mydata, myeff)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab