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
Die Messgröße "
r ostit$variable_name
" sollr paste(ifelse(ostit$spec_type == "lsl", 'größer als', 'kleiner als'), ostit$spec, ostit$variable_unit)
sein.
r ostit$sollwert
Die Anforderung aus der Risiko-Analyse lautet:
Das Leistungsmerkmal "
r ostit$variable_name
" muß mit einer Wahrscheinlichkeit von mindestensr 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 Powerr ostit$power*100
% geprüft werden.
Diese Anforderungen sind durch Wahl des entsprechenden kc-Faktors (siehe ISO 16269-6) erfüllt.
r ostit$versuchsbeschreibung
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() }
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 = "") )
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
.
r ostit$ergebnis
r ostit$schlussfolgerung
.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.