Description Usage Arguments Value Examples
ComputeErrorProb
computes the probability of measurement error for each statistical unit
1 2 3 4 | ComputeErrorProb(object, Param)
## S4 method for signature 'contObsPredModelParam,ErrorProbParam'
ComputeErrorProb(object, Param)
|
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. |
Object of class contObsPredModelParam with the measurement error probabilities computed for each variable specified in the parameters and each statistical unit.
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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.