###Erstelle Datensatz
blech<-c(346,363,360,318,346,268,299,287,310,349,333,365,281,265,344)

###Angabe der verwendeten Parameter
N<-length(blech)
mu0<-310

###Berechnen der Teststatistik
TS<-sqrt(N)*(mu0-mean(blech))/sd(blech)

###Bestimmen des P-Wertes
##Über t-Verteilung
pt(-TS,df=N-1)

##Mit R-Funktion
t.test(blech,mu=mu0,alternative="less")

###Alternative Entscheidungsregel
alpha<-0.05
TS>qt(1-alpha,df=N-1)

###Plot der Gütefunktion
#Definiere Werte für mu, an denen Ausgewertet werden soll
mus<-seq(200,400,0.5)
plot(mus,pt(-qt(1-alpha,df=N-1),df=N-1,ncp=sqrt(N)*(mus-mu0)),type="l",main="Gütefunktion",ylab="",lwd=3,ylim=c(0,1))
abline(h=alpha,lwd=2,lty=2)