"cluster2keys" <- 
function(c) {
if (class(c)[1] == "kmeans") {c <- c$cluster
	p <- max(c)
	v <- length(c)
	keys <- matrix(rep(0,p*v),ncol=p)
	for (i in 1:v) {keys[i,c[i]] <- 1}  
	} else {if(length(class(c)) >1) {if (class(c)[2]=="iclust") {keys <- factor2cluster(c)}
}}
return(keys) }