require(RPostgreSQL)
drv <- dbDriver("PostgreSQL")
db.con <- dbConnect(drv, host="193.193.92.209", port=5434,
                    dbname="2016Z_gryl_tomasz", user="2016Z_gryl_tomasz", password="25926")

daneTygodniowe <- dbGetQuery(db.con, "select tydzien,  count(*) as sztuk FROM (kwiaciarnia_hd.sprzedaz s join kwiaciarnia_hd.czas cz USING (IDCzasu)) join kwiaciarnia_hd.nadawca n USING (IDnadawcy) WHERE rok = '2015' GROUP BY tydzien ORDER BY tydzien;")

dbDisconnect(db.con)

barplot(daneTygodniowe$sztuk, ylab = "liczba sprzedanych kompozycji" , xlab = "2015 (tydzien)" , col = "darkred")
pdf("2015_tygodnie.pdf")
barplot(daneTygodniowe$sztuk, ylab = "liczba sprzedanych kompozycji" , xlab = "2015 (tydzien)" , col = "darkred")
dev.off()

#trzeba doinstalowac library(dprep)
library(dprep)
dane2 <- sort(daneTygodniowe$sztuk)
mean(dane2) # średnia arytm.
quantile(dane2) # kwantyle
quantile(dane2, probs = seq(0,1,0.1))  # decyle
var(dane2)  # wariancja
sd(dane2) # odchylenie standardowe
moda(dane2)

#[BRAK] <- rozstęp

IQR(dane2) # <- to rozstęp międzykwartylowy (chyba jest to, to samo co rozstęp ćwiartkowy)

boxplot(dane2, col = "violet")

#minumum jest ponizej Q1
#max jest 5 krotnie wiekszy od mediany
#male rozproszenie wartosci