ComputeErrorProb: 'ComputeErrorProb' computes the probability of measurement...

Description Usage Arguments Value Examples

Description

ComputeErrorProb computes the probability of measurement error for each statistical unit

Usage

1
2
3
4
ComputeErrorProb(object, Param)

## S4 method for signature 'contObsPredModelParam,ErrorProbParam'
ComputeErrorProb(object, Param)

Arguments

object

Object of class contObsPredModelParam containing the statistical units whose probability of measurement error for the variables is to be computed.

Param

Object of virtual class ErrorProbParam with the parameters determining the variables and the method of computation of the probability of measurement error.

Value

Object of class contObsPredModelParam with the measurement error probabilities computed for each variable specified in the parameters and each statistical unit.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
## Not run: 

load('C:/FDStQList.RData')
load('C:/FGStQList.RData')
FGListofStQ <- getRepo(FGList)
FGListofStQ <- lapply(getPeriods(FD.StQList), function(Month){

 out <- FGList[[Month]] + FD.StQList[[Month]][IDDD %in% c('Tame', 'ActivEcono')]
 return(out)
})
names(FGListofStQ) <- getPeriods(FD.StQList)
FGList <- BuildStQList(FGListofStQ)
FG <- FGList[['MM112016']]
FGList <- FGList[-11]
FDList <- FD.StQList[-11]
FD <- FD.StQList[['MM112016']]
rm(FD.StQList, FG.StQList, FGListofStQ)
ObsPredPar <- new(Class = 'contObsPredModelParam',
                  Data = FD,
                  VarRoles = list(Units = 'NOrden', Domains = 'Tame_05._2.'))

ImpParam <- new(Class = 'MeanImputationParam',
                VarNames = c('CifraNeg_13.___', 'Personal_07.__2.__'),
                DomainNames =  c('Tame_05._2.'))
ErrorProbMLEParam <- new(Class = 'ErrorProbMLEParam',
                         RawData = FD.StQList,
                         EdData = FF.StQList,
                         VarNames = c('CifraNeg_13.___', 'Personal_07.__2.__'),
                         Imputation = ImpParam)
ObsPredPar <- ComputeErrorProb(ObsPredPar, ErrorProbMLEParam)


## End(Not run)

david-salgado/contObsPredModelParam documentation built on Nov. 7, 2019, 5:45 p.m.