x[,1,1]	x[,2,1]	x[,1,2]	x[,2,2]	x[,1,3]	x[,2,3]
1	1	1	1	1	1
2	2	2	2	2	2
3	3	3	3	3	3
4	4	4	4	4	4
5	5	5	5	5	5
6	1	6	1	6	1
7	2	7	2	7	2
8	3	8	3	8	3
9	4	9	4	9	4
10	5	10	5	10	5
END


list(y=structure(.Data=c( 
355.542, 267.900, 333.607,
237.878, 295.489, 231.482,
354.890, 318.255, 258.319,
285.945, 337.787, 381.049,
284.679, 317.523, 357.673,
261.360, 275.485, 396.351,
282.124, 363.582, 346.388,
418.245, 286.654, 303.055,
353.241, 376.604, 323.067,
321.656, 361.448, 319.218),
.Dim=c(10,3)))


list(mb=c(0,0),preb=structure(.Data=c(.001,-.000001,-.000001,.001),.Dim=c(2,2)))

mb[]   preb[,1]   preb[,2]
0	.001	-.000001
0	-.000001 .001
END