###Erstelle Datensatz blech<-c(346,363,360,318,346,268,299,287,310,349,333,365,281,265,344) ###Testproblem (a) ##Definiere benötigte Parameter #Anzahl der Daten N<-length(blech) #Niveau alpha<-0.05 #Streuungsparameter für Test s0<-30 ##Berechne Teststatistik TS_var<-(N-1)*sd(blech)/s0 TS_var ##Berechne kritische Werte #Obere Schranke k1<-qchisq(1-alpha/2,df=N-1) k1 #untere Schranke k2<-qchisq(alpha/2,df=N-1) k2 ##Prüfe Entscheidungsregel #obere Schranke TS_var>k1 #untere Schanke TS_var