R

days = read.csv(file = "~/pytlpawe/day.csv", header = TRUE)
attach(days)
print(days)

srednia = mean(cnt)
srednia
odch_stand = sd(cnt)
odch_stand
mediana = median(cnt)
mediana
rozstep = range(cnt)[2]-range(cnt)[1]
rozstep

params = tapply(cnt, season, sd)
params[2]

ggvis (days, ~temp, ~cnt, fill = ~season)
layer_points()

ggvis(days, ~cnt)
layer_histograms()

ggvis(days, ~factor(season), ~cnt) %>%
layer_boxplots()