require(permute)
q()
n
require(permute)
set.seed(2)
factor(rep(c(1,3,4,2), 5), levels = 1:4)
set.seed(2)
shuffle(n, CTRL)
out1
class(out1)
set.seed(2)
all.equal(result, out1)
identical(result, out1)
class(result)
class(out1)
class(result)
class(out1)
identical(result, out1)
block[result]
class(block[result])
identical(block[result], out2)
identical(block[result], out2)
class(block[result])
class(out2)
?identical
attributes(blocks[result])
attributes(block[result])
attributes(out2)
all.equal(block[result], out2)
out2
block(result)
block[result]
all.equal(block[result], out2)
identical(block[result], out2)
q()
n
