A function to update the initial values of theta, and a function to update an effects object.
updateTheta copies the final values of any matching selected effects
from a sienaFit object to a Siena effects object.updateSpecification includes in a Siena effects object
a set of effects that are included in another effects object.
updateTheta(effects, prevAns, varName=NULL) updateSpecification(effects.to, effects.from, name.to=NULL, name.from=NULL)
effects |
Object of class |
prevAns |
|
varName |
Character string or vector of character strings;
is this is not |
effects.to |
Object of class |
effects.from |
Object of class |
name.to |
Character string, name of dependent variable in |
name.from |
Character string, name of dependent variable in
|
The initial values of any selected effects
in the input effects object which match an effect estimated in
prevAns will be updated by updateTheta.
If the previous run was conditional, the estimated rate parameters for
the dependent variable on which the run was conditioned are added to
the final value of theta. If varName is not NULL,
this update is restricted to effects for the dependent variable/s
specified by varName.
By updateSpecification, the effects included in effects.from
are also included in effects.to; if name.to and/or
name.from is specified, this is restricted to effects
for those dependent variables.
If name.to = "all" (should then not be used as variable name!),
the effects for all dependent variables will be updated.
Correspondence between effects is defined by "name", "shortName"
"type", "groupName", "interaction1", "interaction2", "period", "effect1",
"effect2", and "effect3". This means that inclusion of user-defined
interactions will be updated only if they were available (i.e., defined)
already in effects.to.
Updated effects object.
Ruth Ripley, Tom A.B. Snijders
## For updateTheta: mynet1 <- sienaDependent(array(c(tmp3, tmp4), dim=c(32, 32, 2))) mydata <- sienaDataCreate(mynet1) myeff1 <- getEffects(mydata) myeff1 <- includeEffects(myeff1, transTrip) myalgorithm <- sienaAlgorithmCreate(nsub=1, n3=100, projname=NULL) ans <- siena07(myalgorithm, data=mydata, effects=myeff1, batch=TRUE) ans$theta (myeff <- updateTheta(myeff1, ans)) ## ## For updateSpecification: myeff2 <- getEffects(mydata) myeff2 <- includeEffects(myeff2, inPop) updateSpecification(myeff2, myeff1) # Create (meaningless) two-dimensional dependent network mynet1 <- sienaDependent(array(c(s501, s502), dim=c(50, 50, 2))) mynet2 <- sienaDependent(array(c(s503, s501), dim=c(50, 50, 2))) mydata12 <- sienaDataCreate(mynet1, mynet2) myeff12 <- getEffects(mydata12) myeff.new <- getEffects(mydata12) (myeff12 <- includeEffects(myeff12, inPop, outPop, outAct)) # update myeff.new only for mynet1: updateSpecification(myeff.new, myeff12) # update myeff.new for all dependent networks: (myeff.updated <- updateSpecification(myeff.new, myeff12, "all")) # use multivariate effects object to update univariate effects object: myeff1 <- getEffects(sienaDataCreate(mynet1)) updateSpecification(myeff1, myeff.updated)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.