# NOT RUN {
mynet <- sienaDependent(array(c(s501, s502, s503), dim=c(50, 50, 3)))
mybeh <- sienaDependent(s50a, type="behavior")
mydata <- sienaDataCreate(mynet, mybeh)
myeff <- getEffects(mydata)
myeff <- setEffect(myeff, Rate, initialValue=1.5, name="mybeh",
type="rate", period=2)
myeff <- setEffect(myeff, outInv, 3) ## parameter
myeff
# }
Run the code above in your browser using DataLab