Fixed syntax

This commit is contained in:
Waldir Leoncio 2020-11-19 08:22:38 +01:00
parent e68dc6599c
commit f3c7e8092b

View file

@ -1,6 +1,6 @@
cluster_own <- function(Z, nclust) { cluster_own <- function(Z, nclust) {
true <- logical(1) true <- TRUE
false <- logical(0) false <- FALSE
maxclust <- nclust maxclust <- nclust
# % Start of algorithm # % Start of algorithm
m <- size(Z, 1) + 1 m <- size(Z, 1) + 1