# NOT RUN {
data(BreedsDogs)
BD.act <- BreedsDogs[-7] # active variables
BD.function <- subset(BreedsDogs,select=7)
cluster.carac(BD.act,BD.function,"ca",2.0) # nominal variables
data(iris)
iris.act <- Fac.Num(iris)$numeric
class <- Fac.Num(iris)$factor
cluster.carac(iris.act,class,"co",2.0) # continuous variables
# frequency variables
data(BreedsDogs)
attach(BreedsDogs)
weig<-table(FUNC,WEIG)
weig<-data.frame(weig[,1],weig[,2],weig[,3])
cluster.carac(weig, row.names(weig), "fr", 2) # frequency variables
detach(BreedsDogs)
# }
Run the code above in your browser using DataLab