diff --git a/Oblig1/FrekvensCoop.csv b/Oblig1/FrekvensCoop.csv new file mode 100644 index 0000000..de2a09c --- /dev/null +++ b/Oblig1/FrekvensCoop.csv @@ -0,0 +1,8 @@ +Lengde,n +9.5,2 +10.5,4 +11,10 +11.5,6 +12,16 +12.5,3 +13,2 diff --git a/Oblig1/FrekvensLaban.csv b/Oblig1/FrekvensLaban.csv new file mode 100644 index 0000000..61f1260 --- /dev/null +++ b/Oblig1/FrekvensLaban.csv @@ -0,0 +1,9 @@ +Lengde,n +7,9 +7.5,9 +8,7 +8.5,2 +9,7 +9.5,3 +10,1 +10.5,1 diff --git a/Oblig1/FreqCoop.svg b/Oblig1/FreqCoop.svg new file mode 100644 index 0000000..f2efdbe --- /dev/null +++ b/Oblig1/FreqCoop.svg @@ -0,0 +1,454 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Oblig1/FreqLaban.svg b/Oblig1/FreqLaban.svg new file mode 100644 index 0000000..8f0f655 --- /dev/null +++ b/Oblig1/FreqLaban.svg @@ -0,0 +1,476 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Oblig1/kum_coop.svg b/Oblig1/KumFreqCoop.svg similarity index 55% rename from Oblig1/kum_coop.svg rename to Oblig1/KumFreqCoop.svg index 50f2af4..4b93880 100644 --- a/Oblig1/kum_coop.svg +++ b/Oblig1/KumFreqCoop.svg @@ -1,5 +1,5 @@ - + @@ -17,49 +17,94 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - - - - - - - - - - - - - - - - - - - - - + - - + + - + + - - + + - - + + - - + + @@ -169,210 +214,280 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + + + + + + + + - - - + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + - + - - - + + + + + + + + + - - + - - + + - - + + - - - - - - - - - - - - - - - + + - - + + - - + + - - + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - + + + + + + - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -384,28 +499,29 @@ - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Oblig1/cumlab.svg b/Oblig1/KumFreqLaban.svg similarity index 88% rename from Oblig1/cumlab.svg rename to Oblig1/KumFreqLaban.svg index 8ae56f5..11e9dce 100644 --- a/Oblig1/cumlab.svg +++ b/Oblig1/KumFreqLaban.svg @@ -1,5 +1,5 @@ - + @@ -226,128 +226,128 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - - + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -366,25 +366,25 @@ - + - + - + - - + + - - - - - - + + + + + + @@ -407,82 +407,82 @@ - - - - - - + + + + + + - - - - - + + + + + - - - - - - - - - - - + + + + + + + + + + + - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + - - - - - - + + + + + + - - - - - - + + + + + + diff --git a/Oblig1/Oblig_1a.pdf b/Oblig1/Oblig_1a.pdf new file mode 100644 index 0000000..9baa8ae Binary files /dev/null and b/Oblig1/Oblig_1a.pdf differ diff --git a/Oblig1/Sigmenn.R b/Oblig1/Sigmenn.R index 6ea71d4..be08e03 100644 --- a/Oblig1/Sigmenn.R +++ b/Oblig1/Sigmenn.R @@ -27,30 +27,8 @@ freq_coop <- coop %>% freq_laban freq_coop - -freq_diag_laban <- ggplot(freq_laban, aes(x=`Lengde`, y=n)) + - geom_col() + - geom_vline(aes(xintercept=mid_laban, color="Middelverdi (x̄)"), linewidth=0.9) + - geom_vline(aes(xintercept=med_laban, color="Median (x̃)"), linewidth=0.9) + - geom_vline(aes(xintercept=type_laban, color="Typetall (x_max)"), linewidth=0.9) + - geom_vline(aes(xintercept=mid_laban - sd_laban, color="x̄ − s"), linewidth=0.9, linetype="dashed") + - geom_vline(aes(xintercept=mid_laban + sd_laban, color="x̄ + s"), linewidth=0.9, linetype="dashed") + - labs(title="Frekvensdiagram - Laban", x="Lengde", y="Antall", color="Linjer") + - theme_minimal() + theme(legend.position="bottom") - -freq_diag_coop <- ggplot(freq_coop, aes(x=`Lengde`, y=n)) + - geom_col() + - geom_vline(aes(xintercept=mid_coop, color="Middelverdi (x̄)"), linewidth=0.9) + - geom_vline(aes(xintercept=med_coop, color="Median (x̃)"), linewidth=0.9) + - geom_vline(aes(xintercept=type_coop, color="Typetall (x_max)"), linewidth=0.9) + - geom_vline(aes(xintercept=mid_coop - sd_laban, color="x̄ − s"), linewidth=0.9, linetype="dashed") + - geom_vline(aes(xintercept=mid_coop + sd_laban, color="x̄ + s"), linewidth=0.9, linetype="dashed") + - labs(title="Frekvensdiagram - Coop", x="Lengde", y="Antall", color="Linjer") + - theme_minimal() + theme(legend.position="bottom") - - -freq_diag_laban -freq_diag_coop +write.csv(freq_laban, "FrekvensLaban.csv", row.names = FALSE, quote = FALSE) +write.csv(freq_coop, "FrekvensCoop.csv", row.names = FALSE, quote = FALSE) #Kumulative frekvenser @@ -63,34 +41,6 @@ cum_coop <- freq_coop %>% cum_laban cum_coop - -#Kumulative frekvensdiagrammer -cum_diag_laban <- ggplot(cum_laban, aes(x=`Lengde`, y=Kumulativ_frekvens)) + - geom_step(linewidth=0.9) + - geom_vline(aes(xintercept=mid_laban, color="Middelverdi (x̄)"), linewidth=0.9) + - geom_vline(aes(xintercept=med_laban, color="Median (x̃)"), linewidth=0.9) + - geom_vline(aes(xintercept=type_laban, color="Typetall (x_max)"), linewidth=0.9) + - geom_vline(aes(xintercept=mid_laban - sd_laban, color="x̄ − s"), linewidth=0.9, linetype="dashed") + - geom_vline(aes(xintercept=mid_laban + sd_laban, color="x̄ + s"), linewidth=0.9, linetype="dashed") + - labs(title="Kumulativt frekvensdiagram - Laban", x="Lengde", y="Kumulativ frekvens", color="Linjer") + - theme_minimal() + theme(legend.position="bottom") - -cum_diag_coop <- ggplot(cum_coop, aes(x=`Lengde`, y=Kumulativ_frekvens)) + - geom_step(linewidth=0.9) + - geom_vline(aes(xintercept=mid_coop, color="Middelverdi (x̄)"), linewidth=0.9) + - geom_vline(aes(xintercept=med_coop, color="Median (x̃)"), linewidth=0.9) + - geom_vline(aes(xintercept=type_coop, color="Typetall (x_max)"), linewidth=0.9) + - geom_vline(aes(xintercept=mid_coop - sd_laban, color="x̄ − s"), linewidth=0.9, linetype="dashed") + - geom_vline(aes(xintercept=mid_coop + sd_laban, color="x̄ + s"), linewidth=0.9, linetype="dashed") + - labs(title="Kumulativt frekvensdiagram - Laban", x="Lengde", y="Kumulativ frekvens", color="Linjer") + - theme_minimal() + theme(legend.position="bottom") - -cum_diag_laban -cum_diag_laban - - - - #Medianer mid_laban <- sum(cum_laban$Lengde*cum_laban$n) / sum(cum_laban$n) mid_laban @@ -126,6 +76,66 @@ sd_laban sd_coop +#Kumulative frekvensdiagrammer +cum_diag_laban <- ggplot(cum_laban, aes(x=`Lengde`, y=Kumulativ_frekvens)) + + geom_step(linewidth=0.9) + + geom_vline(aes(xintercept=mid_laban, color="Middelverdi"), linewidth=0.9) + + geom_vline(aes(xintercept=med_laban, color="Median"), linewidth=0.9) + + geom_vline(aes(xintercept=type_laban, color="Typetall (x_max)"), linewidth=0.9) + + geom_vline(aes(xintercept=mid_laban - sd_laban, color="middel − s"), linewidth=0.9, + linetype="dashed") + + geom_vline(aes(xintercept=mid_laban + sd_laban, color="middel + s"), linewidth=0.9, + linetype="dashed") + + labs(title="Kumulativt frekvensdiagram - Laban", x="Lengde", y="Kumulativ frekvens", + color="Linjer") + + theme_minimal() + theme(legend.position="bottom") + +cum_diag_coop <- ggplot(cum_coop, aes(x=`Lengde`, y=Kumulativ_frekvens)) + + geom_step(linewidth=0.9) + + geom_vline(aes(xintercept=mid_coop, color="Middelverdi"), linewidth=0.9) + + geom_vline(aes(xintercept=med_coop, color="Median"), linewidth=0.9) + + geom_vline(aes(xintercept=type_coop, color="Typetall (x_max)"), linewidth=0.9) + + geom_vline(aes(xintercept=mid_coop - sd_coop, color="middel − s"), linewidth=0.9, + linetype="dashed") + + geom_vline(aes(xintercept=mid_coop + sd_coop, color="middel + s"), linewidth=0.9, + linetype="dashed") + + labs(title="Kumulativt frekvensdiagram - Coop", x="Lengde", y="Kumulativ frekvens", + color="Linjer") + + theme_minimal() + theme(legend.position="bottom") + +cum_diag_laban +cum_diag_coop + + +#Frekvens diagram - +freq_diag_laban <- ggplot(freq_laban, aes(x=`Lengde`, y=n)) + + geom_col() + + geom_vline(aes(xintercept=mid_laban, color="Middelverdi"), linewidth=0.9) + + geom_vline(aes(xintercept=med_laban, color="Median"), linewidth=0.9) + + geom_vline(aes(xintercept=type_laban, color="Typetall (x_max)"), linewidth=0.9) + + geom_vline(aes(xintercept=mid_laban - sd_laban, color="x − s"), linewidth=0.9, + linetype="dashed") + + geom_vline(aes(xintercept=mid_laban + sd_laban, color="x + s"), linewidth=0.9, + linetype="dashed") + + labs(title="Frekvensdiagram - Laban", x="Lengde", y="Antall", color="Linjer") + + theme_minimal() + theme(legend.position="bottom") + +freq_diag_coop <- ggplot(freq_coop, aes(x=`Lengde`, y=n)) + + geom_col() + + geom_vline(aes(xintercept=mid_coop, color="Middelverdi"), linewidth=0.9) + + geom_vline(aes(xintercept=med_coop, color="Median"), linewidth=0.9) + + geom_vline(aes(xintercept=type_coop, color="Typetall (x_max)"), linewidth=0.9) + + geom_vline(aes(xintercept=mid_coop - sd_coop, color="x − s"), linewidth=0.9, + linetype="dashed") + + geom_vline(aes(xintercept=mid_coop + sd_coop, color="x + s"), linewidth=0.9, + linetype="dashed") + + labs(title="Frekvensdiagram - Coop", x="Lengde", y="Antall", color="Linjer") + + theme_minimal() + theme(legend.position="bottom") + +freq_diag_laban +freq_diag_coop + + #Oppsummering tabell_laban <- data.frame(Mål = c("Middelverdi", "Median", "Typetall", "Standardavvik"), Verdi = c(mid_laban, med_laban, type_laban, sd_laban)) @@ -142,7 +152,4 @@ oppsummering$Laban <- round(oppsummering$Laban, 2) oppsummering$Coop <- round(oppsummering$Coop, 2) oppsummering -write.csv2(oppsummering, "oppsummering.csv", row.names = FALSE) - - - +write.csv(oppsummering, "oppsummering.csv", row.names = FALSE, quote = FALSE) \ No newline at end of file diff --git a/Oblig1/kum_laban.svg b/Oblig1/kum_laban.svg deleted file mode 100644 index 2461fac..0000000 --- a/Oblig1/kum_laban.svg +++ /dev/null @@ -1,393 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Oblig1/oppsummering.csv b/Oblig1/oppsummering.csv new file mode 100644 index 0000000..ba293ba --- /dev/null +++ b/Oblig1/oppsummering.csv @@ -0,0 +1,5 @@ +Mål,Laban,Coop +Middelverdi,8.09,11.52 +Median,8,12 +Typetall,7,12 +Standardavvik,0.97,1.34 diff --git a/Prosjekt/Før_prosjekt.pdf b/Prosjekt/Før_prosjekt.pdf new file mode 100644 index 0000000..78d2586 Binary files /dev/null and b/Prosjekt/Før_prosjekt.pdf differ