Calculates analytical mean squared error estimates of the spatial EBLUPs obtained from the fit of a spatial Fay-Herriot model, in which area effects follow a Simultaneously Autorregressive (SAR) process.
mseSFH(formula, vardir, proxmat, method = "REML", MAXITER = 100,
PRECISION = 0.0001, data)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 in formula
must have a length equal to the number of domains D. Details of model specification are given under Details.
vector containing the D sampling variances of direct estimators for each domain.
The values must be sorted as the variables in formula.
D*D proximity matrix or data frame with values in the interval [0,1] containing the proximities between the row and column domains. The rows add up to 1. The rows and columns of this matrix must be sorted as the variables in formula.
type of fitting method, to be chosen between "REML" or "ML". Default value is REML.
maximum number of iterations allowed for the Fisher-scoring algorithm. Default value is 100.
convergence tolerance limit for the Fisher-scoring algorithm. Default value is 0.0001.
optional data frame containing the variables named in formula and vardir. By default the variables are taken from the environment from which mseSFH is called.
The function returns a list with the following objects:
a list with the results of the estimation process: eblup and fit. For the description of these objects, see Value of eblupSFH function.
a vector with the analytical mean squared error estimates of the spatial EBLUPs.
- Small Area Methods for Poverty and Living Conditions Estimates (SAMPLE), funded by European Commission, Collaborative Project 217565, Call identifier FP7-SSH-2007-1.
- Molina, I., Salvati, N. and Pratesi, M. (2009). Bootstrap for estimating the MSE of the Spatial EBLUP. Computational Statistics 24, 441-458.
- Singh, B., Shukla, G. and Kundu, D. (2005). Spatio-temporal models in small area estimation. Survey Methodology 31, 183-195.
# NOT RUN {
data(grapes) # Load data set
data(grapesprox) # Load proximity matrix
# Calculate analytical MSE estimates using REML method
result <- mseSFH(grapehect ~ area + workdays - 1, var, grapesprox, data=grapes)
result
# }
Run the code above in your browser using DataLab