## Test de notre fonction h_clust_Ward
MatrixTest<-function(n1,n2){
a <- matrix (rep(rnorm(n1*n2), n1*n2),n1, n2)
return(a)
}
X<-MatrixTest(13,25)
h_clust_Ward(X,6)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.