##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/R/R-4.3.1/bin/R CMD check --install=check:BOBaFIT.install-out.txt --library=/home/biocbuild/R/R-4.3.1/site-library --no-vignettes --timings BOBaFIT_1.6.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/home/biocbuild/bbs-3.18-bioc/meat/BOBaFIT.Rcheck’
* using R version 4.3.1 (2023-06-16)
* using platform: aarch64-unknown-linux-gnu (64-bit)
* R was compiled by
    gcc (GCC) 10.3.1
    GNU Fortran (GCC) 10.3.1
* running under: openEuler 22.03 (LTS-SP1)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘BOBaFIT/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘BOBaFIT’ version ‘1.6.0’
* package encoding: UTF-8
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘BOBaFIT’ can be installed ... WARNING
Found the following significant warnings:
  Warning: replacing previous import 'ggplot2::geom_segment' by 'ggbio::geom_segment' when loading 'BOBaFIT'
See ‘/home/biocbuild/bbs-3.18-bioc/meat/BOBaFIT.Rcheck/00install.out’ for details.
* checking installed package size ... OK
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... NOTE
Packages listed in more than one of Depends, Imports, Suggests, Enhances:
  ‘utils’ ‘testthat’
A package should be listed in only one of these fields.
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking dependencies in R code ... NOTE
There are ::: calls to the package's namespace in its code. A package
  almost never needs to use ::: for its own objects:
  'chrtab'
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking LazyData ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking R/sysdata.rda ... OK
* checking files in ‘vignettes’ ... NOTE
The following directory looks like a leftover from 'knitr':
  ‘figure’
Please remove from your package.
* checking examples ... ERROR
Running examples in ‘BOBaFIT-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: DRrefit
> ### Title: DRrefit
> ### Aliases: DRrefit
> 
> ### ** Examples
> 
> data("TCGA_BRCA_CN_segments")
> 
> chr_list <- c("10q","11p","12p","19q","1p","21q","2q","3p","4p","4q","6p","6q","7p" )
> 
> results <- DRrefit(segments_chort = TCGA_BRCA_CN_segments, 
+                    chrlist = chr_list)
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in sqrt(zvargss$varbgss/zvargss$vartss) : NaNs produced
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in sqrt(zvargss$varbgss/zvargss$vartss) : NaNs produced
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in sqrt(zvargss$varbgss/zvargss$vartss) : NaNs produced
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in sqrt(zvargss$varbgss/zvargss$vartss) : NaNs produced
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in sqrt(zvargss$varbgss/zvargss$vartss) : NaNs produced
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [25 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in sqrt(zvargss$varbgss/zvargss$vartss) : NaNs produced
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [21 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [33 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [27 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [34 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [18 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [20 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [8 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [36 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [29 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [13 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in sqrt(zvargss$varbgss/zvargss$vartss) : NaNs produced
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [38 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [26 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [32 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [22 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [31 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in sqrt(zvargss$varbgss/zvargss$vartss) : NaNs produced
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [24 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [15 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [6 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [35 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [28 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [17 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [30 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [19 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [11 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [5 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [4 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [10 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
Warning in matrix(c(results), nrow = 2, ncol = 26) :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(c(results), nrow = 2, ncol = 26, dimnames = list(c("Number_clusters",  :
  data length [51] is not a sub-multiple or multiple of the number of rows [2]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [39 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [37 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [14 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [12 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [23 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [16 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [9 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [3 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [7 != 1 x 1]
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [2 != 1 x 1]
Warning in max(DiffLev[, 5], na.rm = TRUE) :
  no non-missing arguments to max; returning -Inf
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘testthat.R’
 OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in ‘inst/doc’ ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE

Status: 1 ERROR, 1 WARNING, 3 NOTEs
See
  ‘/home/biocbuild/bbs-3.18-bioc/meat/BOBaFIT.Rcheck/00check.log’
for details.