2.8.1 Abweichungen von der Geradenform

# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(101)
Data <- rnorm(150)
Data[1] <- -7

pdf("qqdiff1a.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
hist(Data,20,main="",xlab="Stichprobe",ylab="Häufigkeit",cex.lab=1.2)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(101)
Data <- rnorm(150)
Data[1] <- -7

pdf("qqdiff1b.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
qqnorm(Data,main="",pch=16,cex=0.5,xlab="Theoretische Quantile",
ylab="Quantile der Stichprobe",cex.lab=1.2)
qqline(Data)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(214)
Data <- rt(150,4)
pdf("qqdiff2a.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
hist(Data,10,main="",xlab="Stichprobe",ylab="Häufigkeit",cex.lab=1.2)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(214)
Data <- rt(150,4)
pdf("qqdiff2b.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
qqnorm(Data,main="",pch=16,cex=0.5,xlab="Theoretische Quantile",
ylab="Quantile der Stichprobe",cex.lab=1.2)
qqline(Data)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(106)
Data <- sort(rnorm(150))
Data[76:150] <- Data[76:150]*seq(from=2,to=1,length=75)
Data[75:1] <- Data[75:1]*seq(from=2,to=1,length=75)

pdf("qqdiff3a.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
hist(Data,10,main="",xlab="Stichprobe",ylab="Häufigkeit",cex.lab=1.2)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(106)
Data <- sort(rnorm(150))
Data[76:150] <- Data[76:150]*seq(from=2,to=1,length=75)
Data[75:1] <- Data[75:1]*seq(from=2,to=1,length=75)

pdf("qqdiff3b.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
qqnorm(Data,main="",pch=16,cex=0.5,xlab="Theoretische Quantile",
ylab="Quantile der Stichprobe",cex.lab=1.2)
qqline(Data)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(106)
Data <- -rchisq(150,4)+10

pdf("qqdiff4a.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
hist(Data,10,main="",xlab="Stichprobe",ylab="Häufigkeit",cex.lab=1.2)
dev.off()

# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(106)
Data <- -rchisq(150,4)+10

pdf("qqdiff4b.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
qqnorm(Data,main="",pch=16,cex=0.5,xlab="Theoretische Quantile",
ylab="Quantile der Stichprobe",cex.lab=1.2)
qqline(Data)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(108)
Data <- rchisq(150,4)

pdf("qqdiff5a.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
hist(Data,10,main="",xlab="Stichprobe",ylab="Häufigkeit",cex.lab=1.2)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(108)
Data <- rchisq(150,4)

pdf("qqdiff5b.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
qqnorm(Data,main="",pch=16,cex=0.5,xlab="Theoretische Quantile",
ylab="Quantile der Stichprobe",cex.lab=1.2)
qqline(Data)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(108)
Data <- rnorm(150)
Data <- round(10*Data)/10

pdf("qqdiff6a.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
hist(Data,10,main="",xlab="Stichprobe",ylab="Häufigkeit",cex.lab=1.2)
dev.off()
# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(108)
Data <- rnorm(150)
Data <- round(10*Data)/10

pdf("qqdiff6b.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
qqnorm(Data,main="",pch=16,cex=0.5,xlab="Theoretische Quantile",
ylab="Quantile der Stichprobe",cex.lab=1.2)
qqline(Data)
dev.off()



















# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(110)
Data <- c(rnorm(75,4,1),rnorm(75,8,1))

pdf("qqdiff7a.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
hist(Data,10,main="",xlab="Stichprobe",ylab="Häufigkeit",cex.lab=1.2)
dev.off()



















# Abweichungen von der Geradenform bei Quantile Quantile Plots

set.seed(110)
Data <- c(rnorm(75,4,1),rnorm(75,8,1))

pdf("qqdiff7b.pdf",width=4,height=4)
par(mar=c(4,4,1,1))
qqnorm(Data,main="",pch=16,cex=0.5,xlab="Theoretische Quantile",
ylab="Quantile der Stichprobe",cex.lab=1.2)
qqline(Data)
dev.off()