# Chi-Square test for goodness of fit

# First have R read the table and name this data set
res=read.table("reservoir.txt",header=TRUE)

# attach the data set
attach(res)
res

# Command for running the Chi-Square test:
chisq.test(observed,p=expected,rescale.p=TRUE)