Fix typo in kmeans clustering

DataScienceSpecialization · May 13, 2015 · c865b64 · c865b64
1 parent 52d8682
commit c865b64
Show file tree

Hide file tree

Showing 3 changed files with 200 additions and 137 deletions.
diff --git a/04_ExploratoryAnalysis/kmeansClustering/index.Rmd b/04_ExploratoryAnalysis/kmeansClustering/index.Rmd
@@ -8,7 +8,7 @@ framework   : io2012        # {io2012, html5slides, shower, dzslides, ...}
 highlighter : highlight.js  # {highlight.js, prettify, highlight}
 hitheme     : tomorrow   # 
 url:
-  lib: ../../libraries
+  lib: ../../librariesNew
   assets: ../../assets
 widgets     : [mathjax]            # {mathjax, quiz, bootstrap}
 mode        : selfcontained # {standalone, draft}
@@ -250,7 +250,7 @@ points(kmeansObj$centers,col=1:3,pch=3,cex=3,lwd=3)
 ```{r, dependson="kmeans",fig.height=4,fig.width=8}
 set.seed(1234)
 dataMatrix <- as.matrix(dataFrame)[sample(1:12),]
-kmeansObj2 <- kmeans(dataMatrix,centers=3)
+kmeansObj <- kmeans(dataMatrix,centers=3)
 par(mfrow=c(1,2), mar = c(2, 4, 0.1, 0.1))
 image(t(dataMatrix)[,nrow(dataMatrix):1],yaxt="n")
 image(t(dataMatrix)[,order(kmeansObj$cluster)],yaxt="n")