RRTCS (version 0.0.3)

MangatSingh: Mangat-Singh model

Description

Computes the randomized response estimation, its variance estimation and its confidence interval through the Mangat-Singh model. The function can also return the transformed variable. The Mangat-Singh model was proposed by Mangat and Singh in 1990.

Usage

MangatSingh(z,p,t,pi,type=c("total","mean"),cl,N=NULL,pij=NULL)

Arguments

z

vector of the observed variable; its length is equal to $n$ (the sample size)

p

proportion of marked cards with the sensitive attribute in the second box

t

proportion of marked cards with "True" in the first box

pi

vector of the first-order inclusion probabilities

type

the estimator type: total or mean

cl

confidence level

N

size of the population. By default it is NULL

pij

matrix of the second-order inclusion probabilities. By default it is NULL

Value

Point and confidence estimates of the sensitive characteristics using the Mangat-Singh model. The transformed variable is also reported, if required.

Details

In the Mangat-Singh model, the sampled person is offered two boxes of cards. In the first box a known proportion $t,(0<t<1)$ of cards is marked "True" and the remaining ones are marked "RR". One card is to be drawn, observed and returned to the box. If the card drawn is marked "True", then the respondent should respond "Yes" if he/she belongs to the sensitive category, otherwise "No". If the card drawn is marked "RR", then the respondent must use the second box and draw a card from it. This second box contains a proportion $p,(0<p<1,p\ne 0.5)$ of cards marked $A$ and the remaining ones are marked $A^c$. If the card drawn from the second box matches his/her status as related to the stigmatizing characteristic, he/she must respond "Yes", otherwise "No". The randomized response from a person labelled $i$ is assumed to be: $$z_i=\{\begin{array}{lc}{y}_i& \text{if a card marked "True" is drawn from the first box}\\ I_i& \text{if a card marked "RR" is drawn}\end{array}$$ $$I_i=\{\begin{array}{lc}1& \text{if the "card type" }A\text{ or }{A}^c\text{ "matches" the genuine trait }A\text{ or }{A}^c\\ 0& \text{if a "mismatch" is observed}\end{array}$$ The transformed variable is $r_i=\frac{z_i-(1-t)(1-p)}{t+(1-t)(2p-1)}$ and the estimated variance is ${\hat{V}}_R(r_i)=r_i(r_i-1)$.

References

Mangat, N.S., Singh, R. (1990). An alternative randomized response procedure. Biometrika, 77, 439-442.

See Also

MangatSinghData

ResamplingVariance

Examples

# NOT RUN {
N=802
data(MangatSinghData)
dat=with(MangatSinghData,data.frame(z,Pi))
p=0.7
t=0.55
cl=0.95
MangatSingh(dat$z,p,t,dat$Pi,"mean",cl,N)
# }