R version 2.12.1 (2010-12-16)
Copyright (C) 2010 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i486-pc-linux-gnu (32-bit)

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(3163,3163,4488,4566,4566,4709,4787,4859,4930,5008,5079,5300,5450,5671,5671,5813,5813,5892,6112,6184,6255,6255,6333,6333,6333,6404,6476,6697,6917,6917,6996,6996,7067,7509,7730,7879,8022,8905,9568,10159,10380,10451,10601,10601,10750,10750,11854,11926,12367,13322,14355,14647,14725,15388,15388,15680,15751,15830,16563,16855,17076,17226,17375,17668,17668,17668,17817,17960,18180,18180,18480,18622,19064,19363,19363,19363,19363,19506,19506,19584,19584,19726,19726,19805,19805,20026,20097,20168,20246,20246,20467,20467,20467,20467,20610,20759,20831,20909,20909,20980,21051,21051,21130,21272,21272,21422,21493,21571,21571,21571,21643,21643,21643,21643,21792,21864,21935,22455,22676,22747),dim=c(1,120),dimnames=list(c('Cons','Inc','Price'),1:120))
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted