data(datangkor)
#network stratigraphic data (Network)
network <- datangkor$stratigraphy
#contingency table
cont <- datangkor$contingency
#obtain the dissimilarities matrices
distance <- CAdist(cont, nPC = 11)
constraint <- adjacency(network)
#You can also run hclustcompro with the dist matrix directly
perioclust(D1 = distance, D2 = constraint, alpha = 0.7, k = 4, method = "ward.D2")
Run the code above in your browser using DataLab