R version 2.10.1 (2009-12-14)
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(20,25,15,15,25,25,25,21,30,25,20,40,13,30,25,20,25,20,25,20,20,15,15,12,20,5,20,15,25,22,20,22,25,20,20,35,30,25,20,20,20,25,25,15,20,35,25,25,30,23,10,22,20,30,20,30,50,19,20,28,20,25,35,25,25,15,16,20,20,25,30,20,25,25,25,20,20,25,25,30,22,20,25,25,18,18,20,25,25,30,25,20,25,20,20,20,22,18,22,20,15,25,25,20,25,25,25,25,40,40,25,25,20,25,25,22,25,30,25,25,30,25,25,30,25,25,20,22,22,20,25,22,25,22,40,25,25,25,22,20,35,20,35,25,22,25,25,25,25,25,40,25,30,25,20,25),dim=c(1,156),dimnames=list(c('max','prijs'),1:156))
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted