
Hello,

how is, for example, the Schwarz criterion is defined for kmeans? It should
be something like:

k <- 2
vars <- 4
nobs <- 100

dat <- rbind(matrix(rnorm(nobs, sd = 0.3), ncol = vars),
           matrix(rnorm(nobs, mean = 1, sd = 0.3), ncol = vars))

colnames(dat) <- paste("var",1:4)

(cl <- kmeans(dat, k))

schwarz <- sum(cl$withinss)+ vars*k*log(nobs)

Thanks for your help,
Serguei
________________________________________
Austrian Institute of Economic Research (WIFO)

P.O.Box 91                          Tel.: +43-1-7982601-231
1103 Vienna, Austria        Fax: +43-1-7989386

Mail: Serguei.Kaniovski@wifo.ac.at
http://www.wifo.ac.at/Serguei.Kaniovski
	[[alternative HTML version deleted]]

