inst/apps/Design-Verifikation_v0.1.1/qq_plot/server_qq_plot.R

# qqplot messwerte ---------
output$qqplot_valid_data <- renderPlot({

  ostit$valid_data %>%
    ggplot() +
    stat_qq(aes(sample = Messwert), dparams = c(ostit$sample_mean, ostit$sample_sd)) +
    geom_abline(slope = 1, intercept = 0) +
    coord_fixed(ratio = 1) +
    xlab(paste("Theoretische Quantile der Normalverteilung (",round(ostit$sample_mean,2), " / ", round(ostit$sample_sd,2),")")) +
    ylab("Quantile der Stichprobe") +
    ggtitle("Nur ausgewählte Messdaten")

})

output$qqplot_raw_data <- renderPlot({

  ostit$raw_data %>%
    ggplot() +
    stat_qq(aes(sample = Messwert), dparams = c(ostit$sample_mean, ostit$sample_sd)) +
    xlab(paste("Theoretische Quantile der Normalverteilung (",round(ostit$sample_mean,2), " / ", round(ostit$sample_sd,2),")")) +
    geom_abline(slope = 1, intercept = 0) +
    coord_fixed(ratio = 1) +
    ylab("Quantile der Stichprobe") +
    ggtitle("Alle Messdaten")

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