Where is the error in my histogram function?

Question

sample = 500 ;bin=10 ; alpha = 0.95

#Creating ChiTest Function 

ChiTest = function(bin,sample) {
  observed <- hist(sample, breaks = seq(0,1, by = 1/bin),plot=F