Current=c("No disturbance","Recent Disturbance","Current Disturbance")
Previous=Current
Hog.table=expand.grid(May01=Previous,July01=Current)
Hog.table=cbind(Hog.table,count=c(446,49,0,0,185,75,128,104,13))
levels(Hog.table$May01)=c(1,2,3)
levels(Hog.table$July01)=c(1,2,3)