~ubuntu-branches/ubuntu/wily/r-cran-kernlab/wily

Viewing changes to R/specc.R

Tags: 0.9-22-1

* New upstream release

* debian/control: Set Build-Depends: to current R version

added added

removed removed

188

res <- kmeans(yi, centers, iterations)

189

}

190

191

cent <- matrix(unlist(lapply(1:nc,ll<- function(l){colMeans(x[which(res$cluster==l),])})),ncol=dim(x)[2], byrow=TRUE)

191

cent <- matrix(unlist(lapply(1:nc,ll<- function(l){colMeans(x[which(res$cluster==l), ,drop=FALSE])})),ncol=dim(x)[2], byrow=TRUE)

192

193

withss <- unlist(lapply(1:nc,ll<- function(l){sum((x[which(res$cluster==l),] - cent[l,])^2)}))

193

withss <- unlist(lapply(1:nc,ll<- function(l){sum((x[which(res$cluster==l),, drop=FALSE] - cent[l,])^2)}))

194

names(res$cluster) <- rown

195

return(new("specc", .Data=res$cluster, size = res$size, centers=cent, withinss=withss, kernelf= kernel))

196