Hi All,

These are the code that i used to plot the kmeans clustering.

 DataSetS01022<-rbind(matrix(rnorm(50),ncol=2),
+ matrix(rnorm(50),ncol=2))
> colnames(DataSetS01022) <-c("timeslot","em")
> (cl <-kmeans(DataSetS01022,2))
>plot (DataSetS01022, col=cl$cluster)
> points(cl$centers, col = 1:2, pch = 8, cex=2)

Now, i would like to do *the same process for 5 times*, so that i can view
the clusters in data
have been moving and the center changes with various results.
(Animation-like)

My main concern here, is how to put this in a *loop form* or any other
methods are available?

I tried with:* clarax$clusinfo I thought of doing it to activate Device (1)
& (2)*
**
*Really need anyones help!*
**
*JJ*
*---*



--
Lecturer J. Joshua Thomas
KDU College Penang Campus
Research Student,
University Sains Malaysia

	[[alternative HTML version deleted]]


