library(Rcoclust);
#load data
data(data_cstr);
#library(Matrix);
#A = sparseMatrix(i=A_ijx[,1]+1,j=A_ijx[,2]+1,
# x=A_ijx[,3]);
envrdata = get_envrdata(A_ijx,lbs,name,1);
#retrieve matrix size and number of classes
n=envrdata$n;
d=envrdata$d;
g=length(unique(envrdata$lbs));
Run the code above in your browser using DataLab