Back to Build/check report for BioC 3.17:   simplified   long
A[B]CDEFGHIJKLMNOPQRSTUVWXYZ

This page was generated on 2023-02-27 02:34:30 -0000 (Mon, 27 Feb 2023).

HostnameOSArch (*)R versionInstalled pkgs
kunpeng1Linux (Ubuntu 22.04.1 LTS)aarch64R Under development (unstable) (2023-01-14 r83615) -- "Unsuffered Consequences" 4259
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

CHECK results for BOBaFIT on kunpeng1


To the developers/maintainers of the BOBaFIT package:
- Please 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 How and When does the builder pull? When will my changes propagate? for more information.
- Make sure to use the following settings in order to reproduce any error or warning you see on this page.

raw results

Package 214/2169HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
BOBaFIT 1.3.0  (landing page)
Gaia Mazzocchetti
Snapshot Date: 2023-02-23 09:40:21 -0000 (Thu, 23 Feb 2023)
git_url: https://git.bioconductor.org/packages/BOBaFIT
git_branch: master
git_last_commit: ca2ca20
git_last_commit_date: 2022-11-01 15:26:16 -0000 (Tue, 01 Nov 2022)
kunpeng1Linux (Ubuntu 22.04.1 LTS) / aarch64  OK    OK    ERROR  

Summary

Package: BOBaFIT
Version: 1.3.0
Command: /home/biocbuild/bbs-3.17-bioc/R/bin/R CMD check --install=check:BOBaFIT.install-out.txt --library=/home/biocbuild/bbs-3.17-bioc/R/library --timings BOBaFIT_1.3.0.tar.gz
StartedAt: 2023-02-24 08:05:31 -0000 (Fri, 24 Feb 2023)
EndedAt: 2023-02-24 08:17:31 -0000 (Fri, 24 Feb 2023)
EllapsedTime: 720.1 seconds
RetCode: 1
Status:   ERROR  
CheckDir: BOBaFIT.Rcheck
Warnings: NA

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.17-bioc/R/bin/R CMD check --install=check:BOBaFIT.install-out.txt --library=/home/biocbuild/bbs-3.17-bioc/R/library --timings BOBaFIT_1.3.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/home/biocbuild/bbs-3.17-bioc/meat/BOBaFIT.Rcheck’
* using R Under development (unstable) (2023-01-14 r83615)
* using platform: aarch64-unknown-linux-gnu (64-bit)
* R was compiled by
    gcc (Ubuntu 11.3.0-1ubuntu1~22.04) 11.3.0
    GNU Fortran (Ubuntu 11.3.0-1ubuntu1~22.04) 11.3.0
* running under: Ubuntu 22.04.1 LTS
* using session charset: UTF-8
* checking for file ‘BOBaFIT/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘BOBaFIT’ version ‘1.3.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.17-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 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: PlotChrCluster
> ### Title: PlotChrCluster
> ### Aliases: PlotChrCluster
> 
> ### ** Examples
> 
> data(TCGA_BRCA_CN_segments)
> Cluster <- PlotChrCluster(segs=TCGA_BRCA_CN_segments, 
+                          clust_method= "ward.D2", 
+                          plot_output=FALSE)
Warning in matrix(x[cl == i, ], byrow = FALSE, nrow = 1, ncol = ncol(x)) :
  data length differs from size of matrix: [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]
Killed
* 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 ...
  ‘BOBaFIT.Rmd’ using ‘UTF-8’... OK
  ‘Data-Preparation.Rmd’ using ‘UTF-8’... OK
 NONE
* checking re-building of vignette outputs ... OK
* checking PDF version of manual ... OK
* DONE

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

Installation output

BOBaFIT.Rcheck/00install.out

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.17-bioc/R/bin/R CMD INSTALL BOBaFIT
###
##############################################################################
##############################################################################


* installing to library ‘/home/biocbuild/bbs-3.17-bioc/R/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 Under development (unstable) (2023-01-14 r83615) -- "Unsuffered Consequences"
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.356  14.826  55.713

Example timings

BOBaFIT.Rcheck/BOBaFIT-Ex.timings

nameusersystemelapsed
DRrefit31.965 0.92933.246
DRrefit_plot42.841 0.69943.746