R version 2.6.0 (2007-10-03)
Copyright (C) 2007 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- array(list(21,6,160,110,3.9,2.62,16.46,21,6,160,110,3.9,2.875,17.02,22.8,4,108,93,3.85,2.32,18.61,21.4,6,258,110,3.08,3.215,19.44,18.7,8,360,175,3.15,3.44,17.02,18.1,6,225,105,2.76,3.46,20.22,14.3,8,360,245,3.21,3.57,15.84,24.4,4,146.7,62,3.69,3.19,20,22.8,4,140.8,95,3.92,3.15,22.9,19.2,6,167.6,123,3.92,3.44,18.3,17.8,6,167.6,123,3.92,3.44,18.9,16.4,8,275.8,180,3.07,4.07,17.4,17.3,8,275.8,180,3.07,3.73,17.6,15.2,8,275.8,180,3.07,3.78,18,10.4,8,472,205,2.93,5.25,17.98,10.4,8,460,215,3,5.424,17.82),dim=c(7,16),dimnames=list(c('Cons','Inc','Price'),1:16))
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted