fork download
copy 
  1. ### 1
  2. df <- dat
  3. d <- dist(df, method = "euclidean")
  4. res.hc <- hclust(d, method = "ward.D2" )
  5. cluster::coef.hclust(res.hc)
  6. #0.9812443
  7. res.agnes <- cluster::agnes(d, method = "ward")
  8. res.agnes$ac
  9. #0.9803578
  10.  
  11. ### 2
  12. df <- scale(dat)
  13. d <- dist(df, method = "euclidean")
  14. res.hc <- hclust(d, method = "ward.D2" )
  15. cluster::coef.hclust(res.hc)
  16. #0.9812493
  17. res.agnes <- cluster::agnes(d, method = "ward")
  18. res.agnes$ac
  19. #0.9812493
Success #stdin #stdout #stderr 0.16s 175424KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: object 'dat' not found
Execution halted
https://ideone.com/gctN10
language:
R (R 3.5.2)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!