drv <- dbDriver("PostgreSQL")
db.con <- dbConnect(drv, host="193.193.92.209", port=5434,
                    dbname="XXXX", user="XXXX", password="XXXX")

dane <- dbGetQuery(db.con, "SELECT czas.kwartal, sum(cena) as \"Suma\"
FROM kwiaciarnia_hd.sprzedaz sprze
JOIN kwiaciarnia_hd.czas czas
USING (idczasu)
where czas.rok = 2014
GROUP BY czas.kwartal");

dbDisconnect(db.con)

#podajemy chai(dane$suma)

chain <- function(vector)
{
  result <- c()
  for(i in 2:(length(vector)))
  {
    result <- append(result, vector[i]/vector[i-1]);
  }
  return(result)
}

sredniaOkresowa <- function(arg1){
  sum <- 1;
  for(i in arg1){
    sum <- sum * i;
  }
  return ((round(sum**(1/length(arg1)), digits = 2)-1)*100);
}

#sredniaOkresowa(chai(dane$Suma))
sredniaOkresowa(chain(dane$Suma))