Zp <- array(0, dim = c(10, 10, 2))
Zp[ , ,1][10, 1:4] <- 1
Zp[ , ,1][1:4, 10] <- 2
Zp[ , ,2][9, 1:5] <- 3
Zp[ , ,2][1:6, 9] <- 4
labelmoments <- labelmoments(Zp, cmax = 4, Sigma = 1.0)
labelmoments
set.seed(3)
mergelabels <- mergelabels(list(labelmoments$A), w = 1.0, k = 2, nstart = 5)
Zp
mergelabels
Run the code above in your browser using DataLab