#Charge and prepare example data
data(data.comp,data.ref)
comp<-data.comp[1:20,]
ref<-data.comp[!(1:nrow(data.comp)),]
cont<-0
repeat{
cont<-cont+1
r<-data.ref[data.ref$ID==comp[cont,c("ID")],]
ref<-rbind(ref,r)
if(cont==20){
break
}
}
data.RMSD<-rbind(comp,ref)
#Delete non-interesting objects for this action
rm(cont,r,data.comp,data.ref,comp,ref)
#Execute RMSD.idturtle. Column date in data.RMSD is named in spanish (Fecha)
RMSD<-RMSD.idturtle(data.RMSD,date="Fecha")
#Plot cluster dendrogram
cluster.RMSD(RMSD)
Run the code above in your browser using DataLab