FHme: Fay-Herriot Model with Measurement Error

Description Usage Arguments Details Value See Also Examples

View source: R/FHme.R

Description

This function gives the EBLUP estimator based on Fay-Herriot model with measurement error.

Usage

1
2
3
4
5
6
7
8
9
FHme(
  formula,
  vardir,
  var.x,
  type.x = "witherror",
  MAXITER = 1000,
  PRECISION = 1e-04,
  data
)

Arguments

formula

an object of class formula (or one that can be coerced to that class): a symbolic description of the model to be fitted. The variables included formula must have a length equal to the number of domains m. This formula can provide auxiliary variable either measured with error or without error or combination between them. If the auxiliary variable are combination between noerror and witherror variable, input all witherror variable first then noerror variable.

vardir

vector containing the m sampling variances of direct estimators for each domain. The values must be sorted as the Y.

var.x

vector containing mean squared error of X . The values must be sorted as the X. if you use optional data, input this parameter use c(""), example: var.x = c("c1") or var.x = c("c1","c2").

type.x

type of auxiliary variable used in the model. Either source measured with noerror, witherror and mix. Default value is witherror.

MAXITER

maximum number of iterations allowed. Default value is 1000 iterations.

PRECISION

convergence tolerance limit. Default value is 0.0001.

data

optional data frame containing the variables named in formula, vardir, and var.x.

Details

A formula has an implied intercept term. To remove this use either y ~ x - 1 or y ~ 0 + x. See formula for more details of allowed formulae.

Value

The function returns a list with the following objects:

eblup

vector with the values of the estimators for the domains.

fit

a list containing the following objects:

See Also

mse_FHme

Examples

1
2
3
4
5
data(dataME)
data(datamix)
sae.me <- FHme(formula = y ~ x.hat, vardir = vardir, var.x = c("var.x"), data = dataME)
sae.mix <- FHme(formula = y ~ x.hat1 + x.hat2 + x3 + x4,
            vardir = vardir, var.x = c("var.x1", "var.x2"), type.x = "mix", data = datamix)

saeME documentation built on Jan. 13, 2021, 11:03 a.m.