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(106.8,0,113.7,0,102.5,0,96.6,0,92.1,0,95.6,0,102.3,0,98.6,0,98.2,0,104.5,0,84,0,73.8,0,103.9,0,106,0,97.2,0,102.6,0,89,0,93.8,0,116.7,0,106.8,0,98.5,0,118.7,0,90,0,91.9,0,113.3,0,113.1,1,104.1,1,108.7,1,96.7,1,101,1,116.9,1,105.8,1,99,1,129.4,1,83,1,88.9,1,115.9,1,104.2,1,113.4,1,112.2,1,100.8,1,107.3,1,126.6,1,102.9,1,117.9,1,128.8,1,87.5,1,93.8,1,122.7,1,126.2,1,124.6,1,116.7,1,115.2,1,111.1,1,129.9,1,113.3,1,118.5,1,133.5,1,102.1,1,102.4,1),dim=c(2,60),dimnames=list(c('totaal','metaal','ramp
'),1:60))
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted