yea

quiz/Quiz.qmd

@@ -12,6 +12,12 @@ editor_options:
 
 ```{r}
 
+library(tidyverse)
+library(gtsummary)
+```
+
+```{r}
+
 share <- readRDS("Datamaterial_SHARE_Modul3.rds")
 ```
 
@@ -53,7 +59,10 @@ mean(share$Bor_med_partner[share$Kön == "Man"] == "Ja") * 100
 
 ## Fråga 6
 
-?
+```{r}
+
+mean(share$Kön[share$Bor_med_partner == "Ja"] == "Man") * 100
+```
 
 ## Fråga 7
 
@@ -70,7 +79,7 @@ mean(share$Ålder)
 
 ```{r}
 
-mean(share$Ålder_partner, na.rm = TRUE) * 100
+mean(share$Ålder_partner, na.rm = TRUE)
 ```
 
 ## Fråga 9
@@ -99,6 +108,16 @@ ggplot(share) +
   theme_minimal()
 ```
 
+## Fråga 13
+
+Hur stor är andelen som bedömer att deras språkfö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? \
+*Ange svaret i procent med en decimal. Använd kommatecken ( , ).*
+
+```{r}
+
+mean(share$Relativ_språkfö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 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?**
@@ -138,7 +157,7 @@ sd(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 %in% c("En bo
 ```{r}
 
 ggplot(share) + 
-  ggtitle("TEst") +
+  ggtitle("Spridningsdiagram") +
   aes(x = Utbildningsår, y = Hushållsinkomst) +
   geom_point(colour = "#00CC00") +
   geom_smooth(se = FALSE) +