Back to Multiple platform build/check report for BioC 3.18:   simplified   long
A[B]CDEFGHIJKLMNOPQRSTUVWXYZ

This page was generated on 2023-11-02 11:40:28 -0400 (Thu, 02 Nov 2023).

HostnameOSArch (*)R versionInstalled pkgs
nebbiolo2Linux (Ubuntu 22.04.2 LTS)x86_644.3.1 (2023-06-16) -- "Beagle Scouts" 4729
palomino4Windows Server 2022 Datacenterx644.3.1 (2023-06-16 ucrt) -- "Beagle Scouts" 4463
lconwaymacOS 12.6.5 Montereyx86_644.3.1 Patched (2023-06-17 r84564) -- "Beagle Scouts" 4478
kunpeng2Linux (openEuler 22.03 LTS-SP1)aarch644.3.1 (2023-06-16) -- "Beagle Scouts" 4464
Click on any hostname to see more info about the system (e.g. compilers)      (*) as reported by 'uname -p', except on Windows and Mac OS X

Package 231/2266HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
BOBaFIT 1.6.0  (landing page)
Gaia Mazzocchetti
Snapshot Date: 2023-11-01 14:05:06 -0400 (Wed, 01 Nov 2023)
git_url: https://git.bioconductor.org/packages/BOBaFIT
git_branch: RELEASE_3_18
git_last_commit: 2bac67f
git_last_commit_date: 2023-10-24 11:38:56 -0400 (Tue, 24 Oct 2023)
nebbiolo2Linux (Ubuntu 22.04.2 LTS) / x86_64  OK    OK    WARNINGS  UNNEEDED, same version is already published
palomino4Windows Server 2022 Datacenter / x64  OK    OK    WARNINGS    OK  UNNEEDED, same version is already published
lconwaymacOS 12.6.5 Monterey / x86_64  OK    OK    WARNINGS    OK  UNNEEDED, same version is already published
kjohnson1macOS 13.6.1 Ventura / arm64see weekly results here
kunpeng2Linux (openEuler 22.03 LTS-SP1) / aarch64  OK    OK    ERROR  

CHECK results for BOBaFIT on kunpeng2


To the developers/maintainers of the BOBaFIT package:
- Allow up to 24 hours (and sometimes 48 hours) for your latest push to git@git.bioconductor.org:packages/BOBaFIT.git to reflect on this report. See Troubleshooting Build Report for more information.
- Use the following Renviron settings to reproduce errors and warnings.
- If 'R CMD check' started to fail recently on the Linux builder(s) over a missing dependency, add the missing dependency to 'Suggests:' in your DESCRIPTION file. See Renviron.bioc for more information.
- See Martin Grigorov's blog post for how to debug Linux ARM64 related issues on a x86_64 host.

raw results


Summary

Package: BOBaFIT
Version: 1.6.0
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
StartedAt: 2023-11-02 08:50:51 -0000 (Thu, 02 Nov 2023)
EndedAt: 2023-11-02 08:59:09 -0000 (Thu, 02 Nov 2023)
EllapsedTime: 497.8 seconds
RetCode: 1
Status:   ERROR  
CheckDir: BOBaFIT.Rcheck
Warnings: NA

Command output

##############################################################################
##############################################################################
###
### 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.


Installation output

BOBaFIT.Rcheck/00install.out

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/R/R-4.3.1/bin/R CMD INSTALL BOBaFIT
###
##############################################################################
##############################################################################


* installing to library ‘/home/biocbuild/R/R-4.3.1/site-library’
* installing *source* package ‘BOBaFIT’ ...
** using staged installation
** R
** data
*** moving datasets to lazyload DB
** byte-compile and prepare package for lazy loading
Warning: replacing previous import 'ggplot2::geom_segment' by 'ggbio::geom_segment' when loading 'BOBaFIT'
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
Warning: replacing previous import 'ggplot2::geom_segment' by 'ggbio::geom_segment' when loading 'BOBaFIT'
** testing if installed package can be loaded from final location
Warning: replacing previous import 'ggplot2::geom_segment' by 'ggbio::geom_segment' when loading 'BOBaFIT'
** testing if installed package keeps a record of temporary installation path
* DONE (BOBaFIT)

Tests output

BOBaFIT.Rcheck/tests/testthat.Rout


R version 4.3.1 (2023-06-16) -- "Beagle Scouts"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: aarch64-unknown-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(BOBaFIT)
Warning message:
replacing previous import 'ggplot2::geom_segment' by 'ggbio::geom_segment' when loading 'BOBaFIT' 
> 
> test_check("BOBaFIT")
[ FAIL 0 | WARN 0 | SKIP 0 | PASS 1 ]
> 
> 
> proc.time()
   user  system elapsed 
 20.601   1.148  23.032 

Example timings

BOBaFIT.Rcheck/BOBaFIT-Ex.timings

nameusersystemelapsed