R version 2.7.2 (2008-08-25)
Copyright (C) 2008 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(1190.8,728.8,995.6,1260.3,994,957.3,975.6,884.9,908.4,1022.8,958.6,825.1,1116.6,724.2,1004.5,1058.9,854.7,943.4,792.4,873.2,1101.4,987.1,1038.8,1060.7,1047.7,840,1044,1097.4,987.5,934,977,881.1,1083.3,1074.7,1182.2,1117.5,1117.4,936.2,1246.3,1175.1,1177.7,1035.8,1091.6,998.7,1247.9,1034.7,1287.7,994.0,1122.8,1017.3,1106.0,1191.8,1030.1,989.4,979.6,1088.0,1389.2,1043.9,1182.1,1109.6,1463.3,1276.2,1082.4,1360.4,1130.2,1019.6,1077.0,958.8,959.6,907.2,880.8,759.6,1137.2),dim=c(1,73),dimnames=list(c('Cons','Inc','Price'),1:73))
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted