# Calculates similarity as Euclidean distance 
# between observations
dist_matrix <- dist(x)

# Returns hierarchical clustering model
hclust(d = dist_matrix)

Call:
hclust(d = s)

Cluster method   : complete 
Distance         : euclidean 
Number of objects: 50