hclust(dist(datclust, method="euclidean"))
resultsclust <- hclust(dist(scale(datclust), method="euclidean"))
plot(resultsclust)