In stephanGit/leistungstests: Supplies Functions to calculate 'leistungstests'

library(tidyverse)

Normalverteilte Daten

ostit <- list(
  raw_data = tibble(valid = TRUE, 
                    #Messwert = rnorm(10, mean = 100, sd = 10),  
                    #Messwert = rt(n = 1000, df = 5, ncp = 0),
                    Messwert = rchisq(n = 1000, df = 2, ncp = 50),
                    Kommentar = ""),
  p_min = 0.99,
  power = 0.8
  )

ostit$raw_data %>% 
ggplot(aes(x = Messwert)) +
    geom_density() + 
  stat_function(fun = dnorm, color = "red",
                args = list(mean = mean(ostit$raw_data$Messwert),
                                         sd = sd(ostit$raw_data$Messwert))) +
  expand_limits(x = 0)

saveRDS(ostit, file = "~/Desktop/example_data.rda")

stephanGit/leistungstests documentation built on May 30, 2019, 3:14 p.m.