R version 2.9.0 (2009-04-17)
Copyright (C) 2009 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(2953,2635,2404,2413,2136,1565,1451,2037,2477,2785,2994,2681,3098,2708,2517,2445,2087,1801,1216,2173,2286,3121,3458,3511,3524,2767,2744,2603,2527,1846,1066,2327,3066,3048,3806,4042,3583,3438,2957,2885,2744,1837,1447,2504,3248,3098,4318,3561,3316,3379,2717,2354,2445,1542,1606,2590,3588,3202,4704,4005,3810,3488,2781,2944,2817,1960,1937,2903,3357,3552,4581,3905,4581,4037,3345,3175,2808,2050,1719,3143,3756,4776,4540,4309,4563,3506,3665,3361,3094,2440,1633,2935,4159,4159,4894,4921,4577,4155,3851,3429,3370,2726),dim=c(1,102),dimnames=list(c('Productie','chocolade'),1:102))
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted