Fixed syntax
This commit is contained in:
parent
e68dc6599c
commit
f3c7e8092b
1 changed files with 2 additions and 2 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue