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