seVarReg | R Documentation |
seVarReg
calculates SE for an object of class VarReg
. If the result is not on a
boundary, the Fishers Information matrix SE are given. The bootstrapped 95% CI can also be
calculated. Designed to be called by the plot function plotVarReg
, rather than run by a user.
seVarReg(
x,
boot = FALSE,
bootreps = 1000,
vector.mean = x$data[, 2],
vector.variance = x$data[, 2],
control = list(...),
...
)
x |
Object of class |
boot |
Logical to indicate if bootstrapped CI should be calculated. Default is |
bootreps |
Number of bootstraps to be performed if |
vector.mean |
Vector of |
vector.variance |
Vector of |
control |
List of control parameters for the bootstrapped models.
See |
... |
arguments to be used to form the default control argument if it is not supplied directly |
The result is a list of results. This includes:
mean.est
: dataframe of overall results from the mean model, including parameter estimates
from the model, SEs from information matrix (if boundary=FALSE
) and if specified, the SE
from bootstrapping with the bootstrapped 95% CI.
variance.est
: dataframe of overall results from the variance model, including parameter
estimates from the model, SEs from information matrix (if boundary=FALSE
) and if specified,
the SE from bootstrapping with the bootstrapped 95% CI.
mean.im
: dataframe of the expected information matrices for the mean (as appropriate)
variance.im
: dataframe of the expected information matrices for the variance
(as appropriate)
mean.outputs
: dataframe with complete output for mean graphics. Includes the
vector.mean
as input, and the mean vector (mean.mean
) and the SE vector
mean.se.im
, and bootstrapping outputs as appropriate.
variance.outputs
: dataframe with complete output for variance graphics. Includes the
vector.variance
as input, and the mean vector (var.mean
) and the SE vector
var.se.im
, and bootstrapping outputs as appropriate.
semiVarReg
, VarReg.control
data(mcycle)
##Fit model with range as a covariate in the mean and the variance model
semimodel<-semiVarReg(mcycle$accel, mcycle$times, meanmodel="semi", varmodel="linear",
knots.m=4, maxit=10000)
##Calculate SE
se1<-seVarReg(semimodel, boot=FALSE)
##not run: with bootstrapping
##se2<-seVarReg(semimodel, boot=TRUE, bootreps=10)
##not run: calculate mean and SE for a given sequence
##test.seq<-seq(min(mcycle$times), max(mcycle$times),
##by=((max(mcycle$times)-min(mcycle$times))/999))
##se2<-seVarReg(semimodel, boot=TRUE, bootreps=10, vector.mean=test.seq)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.