Differences

This shows you the differences between two versions of the page.

--- johnson_s_hierarchical_clustering [2016/11/21 09:37] – hkimscil
+++ johnson_s_hierarchical_clustering [2016/11/21 12:15] (current) – [E.g. 1] hkimscil
@@ Line 159: / Line 159: @@
 {{hiclus2.gif}}
 {{hiclus4.gif}}
+====== E.g. 1 ======
+<code csv cities2.csv>0	206	429	1504	963	2976	3095	2979	1949
+	0	233	1308	802	2815	2934	2786	1771
+	233	0	1075	671	2684	2799	2631	1616
+	1308	1075	0	1329	3273	3053	2687	2037
+	802	671	1329	0	2013	2142	2054	996
+	2815	2684	3273	2013	0	808	1131	1307
+	2934	2799	3053	2142	808	0	379	1235
+	2786	2631	2687	2054	1131	379	0	1059
+	1771	1616	2037	996	1307	1235	1059	0
+</code>
+# Prepare Data
+setwd("d:/rdata")
+mydata <- read.csv("cities.csv")
+mydata <- na.omit(mydata) # listwise deletion of missing
+mydata <- scale(mydata) # standardize variables