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