Displaying 1 result from an estimated 1 matches for "quantil_oben".
2007 Oct 12
1
Batch-Plot Histograms
...uot;, ylab="Häufigkeit",breaks[1])
abline(v=Median[i],lwd=2,col="grey",lty=3)
axis(side=1,at=Median[i],labels="Median",col="grey")
hist_data<-hist(matrix[,i],plot=F,breaks[1])
Quantil_unten<-quantile(matrix[,i],((100-Bereich_blau)/2)/100)
Quantil_oben<-quantile(matrix[,i], (100-(100-Bereich_blau)/2)/100)
#Plotten der roten unterer Teil
for(j in 1:length(hist_data$breaks)){
if (hist_data$breaks[j]<Quantil_unten)
hv<-j
}
for(k in 1:hv){
rect(hist_data$breaks[k],0,hist_data$breaks[k+1],hist_data$...