Maximin {MaximinInfer} | R Documentation |
Returns a list that provides materials for later inference method.
Description
Given list of observations, compute the bias-corrected initial estimators and do bias-correction to the regressopm covariance matrix.
Usage
Maximin(
Xlist,
Ylist,
loading.mat,
X0 = NULL,
cov.shift = TRUE,
cov0 = NULL,
intercept = TRUE,
intercept.loading = FALSE,
lambda = NULL,
verbose = FALSE
)
Arguments
Xlist |
list of design matrix for source data, of length |
Ylist |
list of outcome vector for source data, of length |
loading.mat |
Loading matrix, of dimension |
X0 |
design matrix for target data, of dimension |
cov.shift |
Covariate shifts or not between source and target data (default = |
cov0 |
Covariance matrix for target data, of dimension |
intercept |
Should intercept be fitted for the initial estimator
(default = |
intercept.loading |
Should intercept term be included for the loading
(default = |
lambda |
The tuning parameter in fitting initial model. If |
verbose |
Should intermediate message(s) be printed. (default = |
Details
The algorithm implemented scenarios with or without covariate shift. If cov0
is specified,
the X0
will be ignored; if not, while X0
is specified, cov0
will be estimated
by X0
. If both are not specified, the algorithm will automatically set cov.shift
as
FALSE
.
Value
The returned list contains the following components:
Gamma.plugin |
The plugin regression covariance matrix |
Gamma.debias |
The proposed debiased regression covariance matrix |
Var.Gamma |
The variance matrix for sampling the regression covariance matrix |
fits.info |
The list of length |
Points.info |
The list of length |
Examples
L = 2
n1 = n2 = 100; p = 4
X1 = MASS::mvrnorm(n1, rep(0,p), Sigma=diag(p))
X2 = MASS::mvrnorm(n2, rep(0,p), Sigma=0.5*diag(p))
b1 = seq(1,4)/10; b2 = rep(0.2, p)
y1 = as.vector(X1%*%b1+rnorm(n1)); y2 = as.vector(X2%*%b2+rnorm(n2))
loading1 = rep(0.4, p)
loading2 = c(-0.5, -0.5, rep(0,p-2))
loading.mat = cbind(loading1, loading2)
cov0 = diag(p)
mm = Maximin(list(X1,X2),list(y1,y2),loading.mat,cov0=cov0)
# inference
out = Infer(mm, gen.size=10)