| 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)