x=c(20.30975,18.19873,28.53423,25.76547,28.98363,22.13357,24.71114,24.53094,12.28666,24.73473,21.88932,25.88932,31.14394,19.50850,21.93942,31.35156,23.43202,26.73680,18.24004,16.78666,26.45836,23.22566,20.82735,27.54200,32.96702,20.84085,33.86712,23.63435,26.76314,27.63858)
hist(x,plot=F) #Histogramaren zenbakizko informazioa eskuratu
tarteak=hist(x,plot=F)$breaks #Tarteak soilik eskuratu
maizta=hist(x,plot=F)$counts #Maiztasun absolutuak soilik eskuratu
maizte=(maizta/30)*100 #Maiztasun erlatiboak kalkulatu
maizte
maiztemet=cumsum(maizte) #Maiztasun erlatibo metatuak kalkulatu
maiztemet
png(filename = "maiztasun_metatuen_histograma_ojiba_001.png", width=1350, height=500)
par(mar=c(5,5.3,4,2),oma=c(1,1,1,1)) #Irudiko marjin egokiak zehaztu
par(mfrow=c(1,3)) #Hiru grafiko irudi berean (hiru zutabe, errenkada bat)
library(agricolae)
graph.freq(tarteak,counts=maiztemet,las=1,cex.lab=2,cex.axis=2,main="Maiztasun metatuen histograma",col=c("yellow"),xlab="Tarteak",ylab="F(%)") #Maiztasun metatuen histograma
maiztemet=c(0,maiztemet) #Maiztasun metatu erlatiboei 0 balioa gaineratu
maiztemet
plot(tarteak,maiztemet,col=c("red"),las=1,cex.lab=2,cex.axis=2,main="Ojiba",lwd=5,type="l",xlab="Tarteak",ylab="F(%)") #Ojiba
maiztemet=cumsum(maizte) #Maiztasun metatu erlatiboak birkalkulatu, 0 gabe
graph.freq(tarteak,counts=maiztemet,las=1,cex.lab=2,cex.axis=2,main="Maiztasun metatuen histograma eta ojiba",col=c("yellow"),xlab="Tarteak",ylab="F(%)") #Maiztasun metatuen histograma
maiztemet=c(0,maiztemet) #Maiztasun erlatiboei 0 gaineratu
lines(tarteak,maiztemet,col=c("red"),lwd=5) #Gainean ojiba marraztu.
dev.off()