qqPlot(g,distribution="exp",rate=1/mean(g))



> teste<-read.csv("teste.csv")
> chisq.test(Obs,p=Esp,rescale.p=T)

	Chi-squared test for given probabilities

data:  Obs 
X-squared = 0, df = 5, p-value = 1

> attach(teste)
The following object(s) are masked from 'teste (position 3)':

    Esp, Obs
> chisq.test(Obs,p=Esp,rescale.p=T)

	Chi-squared test for given probabilities

data:  Obs 
X-squared = 0.202, df = 5, p-value = 0.9991

> Obs
[1] 10 10 10 10 10 10
> Esp
[1] 11 10  9 10 10 10
> chisq.test(Obs,p=Esp,rescale.p=T)

	Chi-squared test for given probabilities

data:  Obs 
X-squared = 0.202, df = 5, p-value = 0.9991