?daisy #Cette fonction peut gérer la présence de NA dans les données
(dat2.dg<-daisy(dat2, metric="gower"))
coldiss(dat2.dg)