030914 1700
@ server.R: figured out that the which() commands cannnot do the subsetting in Data2() properly
@ contingency table cannot render properly yet