row and column moment reordering

An iterative row and column reordering procedure based on the barycenter heuristic.

barysort(x, vs = 1)

Arguments

x	The data matrix.
vs	version. no effect.

Value

The reordered matrix.

Examples

# a good and quick solution:
a <- arsim(2000,c(24,24),6, noise=0.4)
fluctile(a2<-barysort(a))
#> viewport[base] 
BCI(a2)
#> [1] 0.3524207

# which is near
a3 <- optile(a, iter=100)
BCI(a3)
#> [1] 0.2727591


# NOT RUN {
a <- arsim(64000,c(256,256),16, noise=0.4)
s1 <- system.time( bci1 <- BCI(a1<-optile(a, fun = "barysort",
foreign=".Call", iter = 1)) )[[3]]

s2 <- system.time( bci2 <- BCI(a2<-optile(a, iter=1)) )[[3]]
s3 <- system.time( bci3 <- BCI(a3<-optile(a, fun="IBCC",iter=1)) )[[3]]
# }