require(RPostgreSQL)
drv <- dbDriver("PostgreSQL")
db.con <- dbConnect(drv, host="193.193.92.209", port=5434,
                    dbname="XXXXXXX", user="XXXX", password="XXXXXXXX")
#dane <- dbGetQuery(db.con, "select * from kwiaciarnia.klienci")

dane <- dbGetQuery(db.con, "SELECT dzien, miesiac, sum(cena) FROM (kwiaciarnia_hd.sprzedaz s join kwiaciarnia_hd.czas cz
USING (IDczasu)) join kwiaciarnia_hd.nadawca n
USING (IDnadawcy)
WHERE rok = '2014' AND wojewodztwo = 'Małopolskie'
GROUP BY miesiac, dzien
ORDER BY miesiac, dzien");

dbDisconnect(db.con)

n <- length(dane$sum);
k <- round(sqrt(n)); #wychodzi 18 ale zalecane jest 11 w zadaniu
k <- 11;
d.min <- min(dane$sum)
d.max <- max(dane$sum)

(d.max - d.min)/k #wychodzi 473.1818 wiec przyblizamy do 473
h <- 473
h <- 500
punkty <- h * 0:k

#szereg punktowy
przygDane <- table(dane$sum)
szereg.pkt <-data.frame(przygDane)
names(szereg.pkt) <- c("wartosc", "liczebnosc");
print("Szereg punktowy: ")
szereg.pkt

sredniaPkt <- sum(as.numeric(as.character(szereg.pkt$wartosc)) *
                    + szereg.pkt$liczebnosc) / n

#szereg rozdzielczy

dane3 <- cut(dane$sum, punkty); dane3
dane4 <- table(dane3); dane4

szereg.rozdzielczy <- data.frame(dane4)
names(szereg.rozdzielczy) <- c("wartnosci", "liczebnosc")

sr <- (punkty[1:11] + punkty[2:12])/2.0; sr
szereg.rozdzielczy <- data.frame(dane4, sr)
names(szereg.rozdzielczy) <- c("wartnosci", "liczebnosc", "srodek")
szereg.rozdzielczy

sredniaRoz <- sum(szereg.rozdzielczy$liczebnosc * szereg.rozdzielczy$srodek) / n

print ("Srednia szeregu punktowego: ")
sredniaPkt;

print ("Srednia szeregu rozdzielczego: ")
sredniaRoz;

#wykres
barplot(szereg.rozdzielczy$liczebnosc,
        names.arg = szereg.rozdzielczy$wartnosc, col = "orange")

pdf("SzeregRozdzielczy.pdf")
barplot(szereg.rozdzielczy$liczebnosc,
        names.arg = szereg.rozdzielczy$wartnosc, col = "orange")
dev.off()