~ Functions: affectIndiv & affectIndivC ~
Given some longitudinal data (trajectories) and k clusters' centers,
affectIndiv
and affectIndivC
affect each individual to the cluster whose centre is the closest.
affectIndiv(traj, clustersCenter, distance = function(x,y){dist(rbind(x, y))}) affectIndivC(traj, clustersCenter)
traj |
|
clustersCenter |
|
distance |
|
Given a matrix of clusters center clustersCenter
(each line is
a cluster center), the function affectIndiv
affect each
individual of the matrix traj
to the closest clusters
(according to distance
). affectIndivC
does the same but
assume that the distance is the Euclidean
distance. affectIndivC
is writen in C (and is therefor much faster).
affectIndiv
used with calculTrajMean
simulates one k-means step.
Object of classPartition
.
####################### ### affectIndiv ### Some trajectories traj <- gald()["traj"] ### 4 clusters centers center <- traj[runif(4,1,nrow(traj)),] ### Affectation of each individual system.time(part <- affectIndiv(traj,center)) system.time(part <- affectIndivC(traj,center))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.