Fixade till lite i quiz filen

quiz/Quiz.qmd

@@ -8,11 +8,88 @@ editor_options:
   chunk_output_type: console
 ---
 
+# Quiz grejs
+
 ```{r}
 
 share <- readRDS("Datamaterial_SHARE_Modul3.rds")
 ```
 
+## Fråga 1
+
+**Hur många individer har besvarat enkäten, dvs hur många observationer finns det i datamaterialet**
+
+Står i data tabben längst uppe i högra hörnet
+
+## Fråga 2
+
+Kolla i andra filerna. Men från intervjuarens visuella observationer. Om de är osäkra skulle de fråga
+
+## Fråga 3
+
+**Hur stor andel av de svarande är kvinnor**
+
+```{r}
+
+mean(share$Kön == "Kvinna") * 100
+```
+
+## Fråga 4
+
+**Hur stor andel av kvinnorna bor med en partner?**
+
+```{r}
+mean(share$Bor_med_partner[share$Kön == "Kvinna"] == "Ja") * 100
+```
+
+## Fråga 5
+
+**Hur stor andel av männen bor med en partner?**
+
+```{r}
+
+mean(share$Bor_med_partner[share$Kön == "Man"] == "Ja") * 100
+```
+
+## Fråga 6
+
+?
+
+## Fråga 7
+
+**Vad är den genomsnittliga åldern för de individer som besvarat enkäten**
+
+```{r}
+
+mean(share$Ålder)
+```
+
+## Fråga 8
+
+**Vad är den genomsnittliga åldern på eventuella partners till dem som besvarat enkäten**
+
+```{r}
+
+mean(share$Ålder_partner, na.rm = TRUE) * 100
+```
+
+## Fråga 9
+
+```{r}
+
+mean(is.na(share$Ålder_partner)) * 100
+```
+
+## Fråga 10
+
+De har ingen partner
+
+## Fråga 11
+
+Läs
+
+## Fråga 12
+
 ```{r}
 
 ggplot(share) +
@@ -22,14 +99,32 @@ ggplot(share) +
   theme_minimal()
 ```
 
-Fråga 16
+## Fråga 14
+
+**Hur stor är andelen som bedömer att deras matteförmåga vid 10 års ålder var bättre än jämnårigas bland dem som hade två bokhyllor med böcker i hemmet vid 10 års ålder?**
+
+```{r}
+
+mean(share$Relativ_matteförmåga_10_år[share$Antal_böcker_i_hemmet_vid_ålder_10 == "Mer än två bokhyllor (> 200 böcker)"] == "Bättre") * 100
+```
+
+## Fråga 15
+
+Vad är det genomsnittliga antalet utbildningsår för de svarande vars antal böcker i hemmed vid 10-års ålder var ett hyllplan eller färre (dvs "inga eller få" eller "ett hyllplan")?
+
+```{r}
+
+mean(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 == "Inga eller få (0-10 böcker)" | share$Antal_böcker_i_hemmet_vid_ålder_10 == "Ett hyllplan (11-25 böcker)"])
+```
+
+## Fråga 16
 
 ```{r}
 
 mean(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 %in% c("Inga eller få (0-10 böcker)","Ett hyllplan (11-25 böcker")])
 ```
 
-Fråga 17
+## Fråga 17
 
 ```{r}
 
@@ -38,7 +133,7 @@ sd(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 %in% c("Inga
 sd(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 %in% c("En bokhylla (26-100 böcker)","Två bokhyllor (101-200 böcker)")])
 ```
 
-Fråga 18
+## Fråga 18
 
 ```{r}
 
@@ -51,7 +146,7 @@ ggplot(share) +
   
 ```
 
-Fråga 19
+## Fråga 19
 
 ```{r}
 
@@ -67,6 +162,10 @@ share <- share %>%
   )
 ```
 
+## Fråga 20
+
+**Lite mer osäker på denna faktiskt**
+
 ```{r}
 
 ggplot(share) +