Data provides guesses and true values for students wallet money.

data(money)

## Format

A data frame with 13 observations (corresponding to the students) on the following 3 variables.

id

a numeric vector of identification number

X

a numeric vector of secondary information, guesses of money in the wallet

y

a numeric vector of primary information, counted money in the wallet. NA means subject was not included into the sample.

## Details

In a lesson an experiment was made, in which the students were asked to guess the current amount of money in their wallet. A simple sample of these students was drawn, who counted the money in their wallet exactly. Using this secondary information, model based estimation of the population mean is possible.

## References

Kauermann, Goeran/Kuechenhoff, Helmut (2010): Stichproben. Methoden und praktische Umsetzung mit R. Springer.

## Examples

data(money)
print(money)
#>    id   X     y
#> 1   1  30 45.04
#> 2   2  18    NA
#> 3   3  29 30.66
#> 4   4 100    NA
#> 5   5  25 28.28
#> 6   6  35 45.50
#> 7   7  30 53.61
#> 8   8   9    NA
#> 9   9   7  8.68
#> 10 10  18 19.77
#> 11 11  40    NA
#> 12 12  15    NA
#> 13 13   6    NA
# Usage of mbes()
mu.X <-  mean(money$X) x <- money$X[which(!is.na(money$y))] y <- na.omit(money$y)
# estimation
mbes(y~x, aux=mu.X, N=13, method='all')
#> Error in mbes(y ~ x, aux = mu.X, N = 13, method = "all"): Wrong input: Missing data or wrong input of data