# Data for response model for the Seal Pups example.
# This code was written by Devin Johnson.
#
# For more info, see: Johnson, D. S., J. A. Hoeting, and B. S.  Fadely
# (2007), "Random Effects Graphical Regression Models for
# Multidimensional Categorical Data", submitted. (Email Hoeting for a copy). 

list(
Nobs = 84,

Ns = 25,

cnt=structure(.Data = c( 5,2,10,5,0,3,0,9,10,6,1,2,8,0,0,1,1,2,4,6,9,7,8,2,0,0,6,8,3,7,4,2,4,1,0,1,0,4,7,2,2,3,6,4,0,0,2,5,5,3,8,5,6,2,0,2,4,6,3,13,3,0,3,1,2,2,0,2,2,7,1,0,3,0,1,0,0,1,0,0,1,1,7,2,0,0,1,3,3,3,3,2,8,3,4,1,1,5,3,20,10,10,15,2,2,7,5,12,4,13,2,3,9,0,3,1,3,7,7,15,3,10,7,6,1,1,2,7,8,5,1,11,10,0,1,2,3,9,2,11,6,10,6,0,1,4,7,6,5,5,2,2,4,0,0,1,0,2,0,0,7,2,9,1,0,1,3,7,7,13,2,4,9,0,0,4,3,10,3,4,1,5,14,2,0,2,3,9,9,5,6,6,4,0,0,3,3,1,2,2,7,5,7,3,1,1,0,9,2,15,0,1,1,0,0,3,0,2,0,3,3,1,1,0,0,1,1,2,1,0,4,3,4,0,0,3,1,4,2,4,3,2,1,4,3,0,0,2,1,9,0,0,2,1,0,0,0,2,1,1,11,0,0,0,0,11,0,0,0,0,3,1,0,0,0,5,3,3,1,1,5,8,11,1,2,3,0,8,5,7,2,1,5,3,5,0,1,3,2,11,8,6,7,0,0,5,4,10,5,5,5,4,9,6,4,2,3,6,5,6,7,5,8,0,0,1,6,10,6,7,8,4,11,1,1,2,3,11,4,4,2,6,6,5,2,0,4,6,1,18,3,1,7,5,1,0,0,5,8,10,3,0,2,0,0,2,2,2,1,3,4,1,3,1,0,1,3,6,4,2,1,3,11,3,2,0,1,10,5,14,3,8,14,3,2,5,2,6,3,4,4,6,8,1,0,2,2,9,8,10,2,1,7,3,2,1,0,2,4,3,16,13,45,11,3,1,5,32,14,9,4,6,15,3,1,1,3,7,4,6,3,2,10,1,3,1,1,5,6,19,8,6,1,0,0,2,3,1,0,0,3,4,8,1,1,3,0,4,2,7,11,7,18,10,3,2,4,19,12,21,11,11,14,12,2,0,1,3,6,29,3,7,18,4,6,1,2,7,6,22,4,7,15,2,2,0,0,4,6,10,9,9,4,0,0,3,4,3,8,10,2,5,13,5,2,0,2,8,1,12,4,5,16,4,3,0,1,7,5,5,11,4,5,1,0,1,2,13,7,6,2,3,16,3,3,0,1,9,4,9,1,4,12,4,3,0,0,3,8,11,0,1,2,0,0,0,0,1,0,1,4,4,5,1,0,0,2,7,2,9,7,7,12,1,1,1,2,4,7,8,9,8,5,1,0,3,1,12,6,5,15,5,3,0,0,8,8,9,2,0,20,15,36,5,2,9,9,20,14,21,7,16,18,2,1,4,4,15,15,24,4,9,17,10,11,2,1,15,12,29,6,4,22,5,5,0,8,17,7,26,2,7,18,9,2,0,2,15,5,15,9,14,22,3,2,0,4,18,16,12,10,7,9,2,0,6,2,2,6,6,3,7,13,1,1,1,3,5,4,14,4,2,8,1,0,3,2,10,2,16,10,10,7,0,0,1,5,8,6,3,5,0,8,1,0,2,3,5,2,13,8,3,5,1,3,2,1,11,3,13,9,7,18,2,4,3,5,13,5,12,3,7,14,5,3,0,1,10,8,24,7,8,19,4,3,0,3,16,15,25,0,2,8,5,10,0,1,1,2,21,2,4,18,3,1,2,1,7,3,8,6,3,7,5,2,3,4,8,4,8,2,2,2,1,2,1,0,3,3,9,12,6,5,1,0,6,5,8,3,4,2,3,1,0,0,0,5,8,4,2,1,5,6,1,1,0,1,5,2,8), .Dim=c(84,10)),

site=c( 1,1,2,2,2,3,3,4,4,5,5,5,5,5,6,6,6,6,6,7,8,8,9,9,9,10,11,11,11,11,12,12,12,12,13,13,14,14,14,15,16,16,17,17,17,17,17,17,17,17,18,18,18,19,19,19,20,20,20,20,20,21,21,21,21,22,22,22,23,23,23,23,23,23,23,23,23,24,24,24,24,25,25,25),

substr=c(1,1,3,2,2,4,5,4,2,4,2,3,5,1,4,2,2,2,2,1,2,4,4,4,3),

depth=c( 179,159,66,71,47,50,221,1541,415,58,55,102,51,476,174,75,48,56,32,156,83,63,63,259,162),

sst=c( 5,6,6,6,6.5,8,6,6,5,7.5,8.5,8,7,4.5,4,4,8,8,6.5,4.5,8.5,6,6,5,5.5), 

diversity=c( 2.984,4.639,3.22,6.14,5.604,2.941,2.153,6.117,2.833,3.161,4.155,4.103,6.936,6.302,3.043,2.856,6,4.584,11.474,3.718,6.619,5.998,5.998,3.325,4.833)

)