Stats_bivariate_metric_dichotom

[WlanNergady]

Hab die Funktion jetzt fertiggestellt, die Mittelwert, Standardabweichung und Boxplot der metrischen Variable nach Ausprägung der dichotomen Variablen unterteilt wiedergibt und einen t-Test durchführt.

[jonasmolsbeck]

Hab die Funktion jetzt fertiggestellt, die Mittelwert, Standardabweichung und Boxplot der metrischen Variable nach Ausprägung der dichotomen Variablen unterteilt wiedergibt und einen t-Test durchführt.

@WlanNergady Ich fände es besser, wenn es egal ist, ob die dichotome Variable (0,1) kodiert ist oder irgendwie anders z.B. ("j", "n") @danfleon Guck es dir bitte auch mal an

Hier mein Änderungsvorschlag:

stats_bivariate_metric_dichotom <- function(metric_var, dichotomous_var){
  #' @param metric_var Vektor aus Auspraegungen einer metrischen Variablen
  #' @param dichotomous_var Vektor aus Auspraegungen einer metrischen Variablen,
  #'                        kodiert mit 0 und 1

  A <- as.character(unique(dichotomous_var)[1])
  B <- as.character(unique(dichotomous_var)[2])

  group_A <- metric_var[dichotomous_var == A]
  group_B <- metric_var[dichotomous_var == B] 

  mean <- c(mean(group_A), mean(group_B))
  sd <- c(sd(group_A), sd(group_B))
  t_test <- t.test(group_A, group_B)

  boxplot(group_A, group_B, col = c("red", "green"), 
          names = c(A, B), 
          main = "Boxplot beider Gruppen im Vergleich")

  cat("Mittelwert von Gruppe", A, ":", mean[1], "\n")
  cat("Mittelwert von Gruppe", B, ":", mean[2], "\n\n")
  cat("Standardabweichung von Gruppe", A, ":", sd[1], "\n")
  cat("Standardabweichung von Gruppe", B, ":", sd[2], "\n\n")
  cat("t-Wert des Gruppenvergleichs:", t_test$statistic, "\n")
  cat("p-Wert des Gruppenvergleichs:", t_test$p.value, "\n")
}

## Usage example:
stats_bivariate_metric_dichotom(test.data$three, test.data$seven)

[jonasmolsbeck]

Hab die Funktion jetzt fertiggestellt, die Mittelwert, Standardabweichung und Boxplot der metrischen Variable nach Ausprägung der dichotomen Variablen unterteilt wiedergibt und einen t-Test durchführt.

Außerdem passt die Parameter-Beschreibung so nicht. So wäre es richtig:

#' @param metric_var metrischer Vektor
#' @param dichotomous_var dichotomer Vektor