REAL alpha ~ continuous_uniform(-1, 1)

ENTITY square, "tests/model_proto_spat/squares.txt", "tests/model_proto_spat/adjacency.txt"
{
	INTEGER northerness(1)
}

ENTITY bird, ""
{
}

ENTITY squarebird, "tests/model_proto_spat/observations.txt", combines(square, bird)
{
	INTEGER q = SUM(&x)
	REAL p = EXP(alpha * northerness + q) / (1 + EXP(alpha * northerness + q))
	INTEGER x ~ user_bernoulli(p)
	INTEGER obs(*) ~ user_defined_points(x)
}