Displaying 1 result from an estimated 1 matches for "mydatasnc".
Did you mean:
mydataset
2012 Jun 27
1
Error: figure margins too large
...ge.
d <- file.choose()
d <- read.csv(d,header=TRUE)
mydataS <- scale(d, center = TRUE, scale=TRUE)
#Converts mydataS from a matrix to a data frame
mydataS2 <- as.data.frame(mydataS)
#removes "coden" variable
myvars <- names(mydataS2) %in% c("coden")
mydataSNc <- mydataS2[!myvars]
#Determine number of clusters
wss <- (nrow(mydataSNc)-1)*sum(apply(mydataSNc,2,var))
for (i in 2:15)
wss[i] <- sum(kmeans(mydataSNc, centers=i)$withinss)
plot(1:15, wss, type="b", xlab="Number of Clusters",ylab="Within groups sum of sq...