do prva pod D

#Exercise 1
  #a)
x=rbinom(100,5,1/2)
x
  #b)
min(x); max(x); mean(x); sd(x); quantile(x); IQR(x); range(x);
library(Hmisc)
describe(x)
summary(x)
our.mode = function(x)
{
  ux = unique(x)
  tab = tabulate(match(x,ux))
  ux[tab==max(tab)]
}
m = our.mode(x)
m
  #v)
hist(x,freq=F,col="red", main="Histogram na X",xlab="Pronajdeni razliki")
lines(density(x),col="blue", lwd=4)
curve(dbinom(x,5,1/2), add=T, col="green",lwd=4)
  #g)
f1 = summary(as.factor(x))[["3"]]/100; f1
f2 = dbinom(3,5,1/2); f2
"Razlikata megju f1 i f2 e:"; abs(f1-f2);
  #d)