# Generate synthetic data
data <- gendata(seed = 42, T = 100, N = c(50, 50, 50, 50))
# Build correlation-based tree
result <- COR(data$X, data$Y, control = list(R = 99, alpha = 0.05))
# Examine results
print(result)
plot(result)
table(result$membership, data$group)
Run the code above in your browser using DataLab