mtcars-post

bayes

post

estimation

exam-22

qm2

qm2-pruefung

Published

January 11, 2023

Aufgabe

Im Datensatz mtcars: Berichten Sie die Breite eines Schätzintervalls (89%, HDI) zum mittleren Spritverbrauch! Nutzen Sie Methoden der Bayes-Statistik.

Lösung

Setup:

data(mtcars)
library(tidyverse)
library(rstanarm)
library(easystats)

Modell berechnen:

m1 <- stan_glm(mpg ~ 1, 
               data = mtcars,
               seed = 42,
               refresh = 0)

Modellparameter auslesen, wobei wir als CI-Methode ein HDI auswählen, und als CI-Größe 89%:

parameters(m1, ci = .89, ci_method = "hdi")

Parameter   | Median |         89% CI |   pd |  Rhat |     ESS |                   Prior
----------------------------------------------------------------------------------------
(Intercept) |  20.10 | [18.26, 21.64] | 100% | 1.001 | 2838.00 | Normal (20.09 +- 15.07)

Im Standard wird ein 95%-Perzentilintervall berechnet, s. die Dokumentation zur Funktion hier.

Die Lösung lautet also:

solution <- 21.64 - 18.26
solution

[1] 3.38

Categories:

bayes
post
estimation
exam-22

---
extype: num
exsolution: 3.38
exname: mtcars-post
extol: 0.5
categories:
- bayes
- post
- estimation
- exam-22
- qm2
- qm2-pruefung
date: '2023-01-11'
slug: mtcars-post
title: mtcars-post

---





```{r global-knitr-options, include=FALSE, message=FALSE}
knitr::opts_chunk$set(fig.pos = 'H',
                      fig.asp = 0.618,
                      fig.width = 4,
                      fig.cap = "", 
                      fig.path = "",
                      echo = TRUE,
                      message = FALSE,
                      fig.show = "hold")

library(tidyverse)
options(mc.cores = parallel::detectCores())
```





# Aufgabe



Im Datensatz `mtcars`: 
Berichten Sie die Breite eines Schätzintervalls (89%, HDI) zum mittleren Spritverbrauch!
Nutzen Sie Methoden der Bayes-Statistik.




[Hinweise](https://start-bayes.netlify.app/pruefung#bearbeitungshinweise)



</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>

# Lösung


Setup:

```{r message = FALSE}
data(mtcars)
library(tidyverse)
library(rstanarm)
library(easystats)
```




Modell berechnen:

```{r}
m1 <- stan_glm(mpg ~ 1, 
               data = mtcars,
               seed = 42,
               refresh = 0)
```

Modellparameter auslesen, wobei wir als CI-Methode ein HDI auswählen, und als CI-Größe 89%:

```{r}
parameters(m1, ci = .89, ci_method = "hdi")
```

Im Standard wird ein 95%-Perzentilintervall berechnet, s. die Dokumentation zur Funktion [hier](https://easystats.github.io/parameters/reference/model_parameters.default.html).

Die Lösung lautet also:

```{r}
solution <- 21.64 - 18.26
solution
```





---

Categories: 

- bayes
- post
- estimation
- exam-22