https://github.com/cran/EMCluster
Tip revision: 5404722e21b628cff567deb966a8bf42a8ea0d5c authored by Wei-Chen Chen on 19 October 2015, 18:06:25 UTC
version 0.2-5
version 0.2-5
Tip revision: 5404722
ss_initials.c
/* This file is modified from "initials.c" for semi-supervised clustering.
Required int *lab,
-1 for clusters unknown,
0 to (labK - 1) for data with known "labK" clusters.
Modified: Wei-Chen Chen 2009/03/13.
*/
#include "ss_mb_tool.h"
void ss_assign(int n, int p, int k, double **X, double *pi, double **Mu,
double **LTSigma, int *class, int *nc, int *lab){
int i;
for(i = 0; i < k; i++) nc[i] = 0;
for(i = 0; i < n; i++){
if(lab[i] == -1){
class[i] = classify(X[i], p, k, pi, Mu, LTSigma);
} else{
class[i] = lab[i];
}
nc[class[i]]++;
}
}