# Arrays

# Create age 1 observations matrix

obs1<-matrix(c(8.4, 73.9, 8.2,72.5,8.8, 74.2, 7.9, 71.7), ncol=2, byrow=T)

# Display obs1

obs1

# Create age 2 observations matrix

obs2<-matrix(c(10.1, 81.6, 10.1, 80.1, 9.9, 80.2, 9.9, 81.3), ncol=2, byrow=T)

# Display obs2

obs2

# Combine the two matrices into an array obs_array

obs_array<-array(data=c(obs1,obs2),dim=c(4,2,2))

# Display array

obs_array