https://github.com/cran/EMCluster
Tip revision: 402bcb69315fa9c0ebffd3364b648523abf2b772 authored by Wei-Chen Chen on 05 September 2023, 10:00:02 UTC
version 0.2-15
version 0.2-15
Tip revision: 402bcb6
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]]++;
}
}