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

require(knitr)
require(pander)
require(magrittr)
library(tidyverse)
library(shiny)
library(rhandsontable)
library(magrittr)
library(leistungstests)
library(ggplot2)
library(knitr)
library(plotly)
library(boot)

opts_chunk$set(
  echo = FALSE,
  message = FALSE,
  error = FALSE,
  warning = FALSE
)

ostit <- params$ostit
report_format_type <- params$report_format_type

Versuchsziel

r ostit$versuchsziel

Sollwert

Die Messgröße "r ostit$variable_name" soll r paste(ifelse(ostit$spec_type == "lsl", 'größer als', 'kleiner als'), ostit$spec, ostit$variable_unit) sein.

r ostit$sollwert

Anforderungs- und Test-Spezifikation

Die Anforderung aus der Risiko-Analyse lautet:

Das Leistungsmerkmal "r ostit$variable_name" muß mit einer Wahrscheinlichkeit von mindestens r ostit$p_min*100% r paste(ifelse(ostit$spec_type == "lsl", 'größer als', 'kleiner als'), ostit$spec, ostit$variable_unit) sein. Diese Forderung muß mit einem Design-Verifikationstest der Power r ostit$power*100% geprüft werden.

Diese Anforderungen sind durch Wahl des entsprechenden kc-Faktors (siehe ISO 16269-6) erfüllt.

Versuchsbeschreibung und -Durchführung

r ostit$versuchsbeschreibung

Ergebnisse

Messdaten

if (report_format_type == "pdf"){
ostit$raw_data %>% 
  select(Messwert, Kommentar) %>% 
  filter(!is.na(Messwert)) %>% 
  mutate(Kommentar = ifelse(Kommentar == "NA", " ", Kommentar)) %>% 
  knitr::kable(
    caption="\\label{tab:messwerte} Messwerte aus Vorversuchen. \\newline Es sind keine Auffälligkeiten zu den Messwerten notiert.", align = 'c',
    col.names = c(paste(ostit$variable_name, "[", ostit$variable_unit, "]", sep = ""), "Kommentar")
  )
}

 if (report_format_type == "word"){
   ostit$raw_data %>%
     select(Messwert, Kommentar) %>%
     filter(!is.na(Messwert)) %>%
     mutate(Kommentar = ifelse(Kommentar == "NA", " ", Kommentar)) %>%
     as.data.frame() %>% 
     pander::pander()
 }

Graphische Darstellung der Messwerte

ggplot_object <-
  ostit$raw_data %>%
  mutate(obsNr = as.numeric(row.names(ostit$raw_data))) %>% 
  ggplot() +
  geom_point(aes(x = obsNr, y = Messwert), color = "blue", shape = 4, size = 4) +
  geom_hline(yintercept = ostit$spec, color = "red") +
  geom_text(x = 1, y = ostit$spec, label = "Spec-Limit", vjust = 1, hjust = 0)

if (!is.na(ostit$sample_mean)){
  ggplot_object <-
    ggplot_object +
    geom_hline(yintercept = ostit$sample_mean, color = "black") 
}

if (!is.na(ostit$ltl)){
  ggplot_object <-
    switch(ostit$spec_type,
           lsl = {
             ggplot_object +
               geom_hline(yintercept = ostit$ltl, color = "green") +
               geom_text(x = 1, y = ostit$ltl, label = "lower Tol. Limit", vjust = 0, hjust = 0)
           },
           usl ={
             ggplot_object +
               geom_hline(yintercept = ostit$utl, color = "green") +
               geom_text(x = 1, y = ostit$utl, label = "upper Tol. Limit", vjust = 0, hjust = 0)
           }
    )
}

ggplot_object +
  labs(
    x = "Mess-Reihenfolge",
    y = paste(ostit$variable_name, " [", ostit$variable_unit, "]", sep = "")
  )

Statistiken und Test-Ergebnis

Stichproben-Mittelwert: r paste(round(ostit$sample_mean,2), ostit$variable_unit)
Stichproben-Standardabweichung: r paste(round(ostit$sample_sd,2), ostit$variable_unit)
r paste(ifelse(ostit$spec_type == "lsl", "Lower Toleranz-Limit", "Upper Toleranz-Limit"), "(ISO 16269-6):", ifelse(ostit$spec_type == "lsl", round(ostit$ltl,2), round(ostit$utl,2)), ostit$variable_unit)

Der Design-Verifikations-Test für dieses Leistungsmerkmal ist r ostit$test_result.

Kommentar zu den Ergebnissen

r ostit$ergebnis

Schlußfolgerung

r ostit$schlussfolgerung.

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