From f3c7e8092be507c4e88cd24cd2874dc85bda2999 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Thu, 19 Nov 2020 08:22:38 +0100
Subject: [PATCH] Fixed syntax

---
 R/cluster_own.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/cluster_own.R b/R/cluster_own.R
index 0d64102..306fbbf 100644
--- a/R/cluster_own.R
+++ b/R/cluster_own.R
@@ -1,6 +1,6 @@
 cluster_own <- function(Z, nclust) {
-	true <- logical(1)
-	false <- logical(0)
+	true <- TRUE
+	false <- FALSE
 	maxclust <- nclust
 	# % Start of algorithm
 	m <- size(Z, 1) + 1