oceni<-function(uzorak,raspodela,parametri)#x je niz x1,...,xm za tablicjnu raspodelu
{
n=length(uzorak)
if (raspodela=='Puasonova') return(mean(uzorak))
else if (raspodela=='Geometrijska') {
                                                          if (mean(uzorak)==0) return("pogresna                   pretpostavka o raspodeli")
                                                          else return(1/mean(uzorak))
 
}
else if (raspodela=='Binomna') return(mean(uzorak)/parametri[1])#parametri[1]=N
       else if (raspodela=='Tablicna')
  {
  y=parametri
  m=length(y)
  frekvencija=rep(0,m)
  for(i in 1:m) {frekvencija[i]=length(uzorak[uzorak==y[i]])/n}#parametri je niz vrednosti X
  return(frekvencija)
  }
else if (raspodela=="Gama") 
{alfa=parametri[1]
return(n*alfa/sum(uzorak))
}
else if (raspodela=="Uniformna")
{aocena=min(uzorak)
 bocena=max(uzorak)
 return(c(aocena,bocena))
}
       else return("nema unete raspodele")
}