msae (version 0.1.5)

eblupUFH: EBLUPs based on a Univariate Fay Herriot (Model 0)

Description

This function gives the EBLUP and MSE based on a univariate Fay Herriot model (model 0)

Usage

eblupUFH(
  formula,
  vardir,
  samevar = FALSE,
  MAXITER = 100,
  PRECISION = 1e-04,
  data
)

Arguments

formula

an object of class list of formula, describe the model to be fitted

vardir

if data is available, it is vector containing name of sampling variances of direct estimators. if not, it is data frame of sampling variances of direct estimators. The order is : var1, var2, . , var(k) , cov12, . cov1k, cov23, . , cov(k-1)(k)

samevar

logical input, true if variance of the data is same, Default: FALSE

MAXITER

maximum number of iterations allowed in the Fisher-scoring algorithm, Default: 100

PRECISION

convergence tolerance limit for the Fisher-scoring algorithm, Default: 1e-4

data

dataframe containing the variables named in formula and vardir

Value

The function returns a list with the following objects:

eblup

a dataframe with the values of the EBLUP estimators

MSE

a dataframe with the estimated mean squared errors of the EBLUPs for the small domains

randomEffect

a dataframe with the values of the random effect estimators

Rmatrix

a block diagonal matrix composed of sampling errors

fit

a list containing the following objects:

method : type of fitting method, named "REML" convergence : a logical value of convergence of Fisher Scoring algorithm iterations : number of iterations performed by Fisher-Scoring algorithm estcoef : a dataframe with the estimated model coefficient in the first column, their standard error in the second column, the t statistics in the third column, and the p-values of the significance of each coefficient in the last column refvar : a dataframe with the estimated random effect variance informationFisher : a matrix of information Fisher of Fisher-Scoring algorithm

Examples

# NOT RUN {
## Load dataset
data(datasae1)

# Compute EBLUP and MSE of Y1 Y2 and Y3  based on Model 0
# using auxiliary variables X1 and X2 for each dependent variable

## Using parameter 'data'
Fo <- list(f1=Y1~X1+X2,
           f2=Y2~X1+X2,
           f3=Y3~X1+X2)
vardir <- c("v1", "v2", "v3", "v12", "v13", "v23")
un <- eblupUFH(Fo, vardir, data=datasae1)

## Without parameter 'data'
Fo <- list(f1=datasae1$Y1~datasae1$X1+datasae1$X2,
           f2=datasae1$Y2~datasae1$X1+datasae1$X2,
           f3=datasae1$Y3~datasae1$X1+datasae1$X2)
vardir <- datasae1[,c("v1", "v2", "v3", "v12", "v13", "v23")]
un <- eblupUFH(Fo, vardir)

un$eblup   # see the EBLUP estimators
un$MSE   # see MSE of EBLUP estimators

# }