zad1 <- function(vector) {
  srednia <- mean(vector)
  liczebnosc <- length(vector)
  mediana <- quantile(vector, 0.50)
  Q1 <- quantile(vector, 0.25)
  Q3 <- quantile(vector, 0.75)
  odchylenie <- sd(vector)
  minimum <- min(vector)
  maksimum <- max(vector)

  members <- matrix(c(srednia, liczebnosc, Q1, mediana, Q3, odchylenie, minimum, maksimum),ncol=8,byrow=TRUE)
  colnames(members) <- c("srednia", "liczebnosc", "pierwszy kwantyl", "mediana", "trzeci kwantyl", "odchylenie standardowe", "minimum", "maksimum")

  tabela <- as.table(members)
  write.csv(tabela, file = "tabelaZad1.csv",row.names=FALSE)
  par(mfrow = c(2,1))
  hist(vector,xlab="Oś X", main="Histogram", label=TRUE)
  plot(density(vector), main= "gęstość dla zmiennej x")
  jpeg("Histogram")
}

dane <- c(5,123,231,34,234)