# NOT RUN {
data("table7")
ex3 <- classic.to.sym(table7, concept=c("Animal"),variables=c("Height", "Weight")
,variables.types=c("$I", "$I"))
dist.interval(ex3,c(1,2),method="Gowda.Diday",normalize=FALSE)
dist.interval(ex3,c(1,2),gamma=0.5,method="Ichino",normalize=FALSE)
dist.interval(ex3,c(1,2),gamma=0.5,method="Minkowski",normalize=FALSE,q=1)
dist.interval(ex3,c(1,2),gamma=0.5,method="Minkowski",normalize=FALSE,q=2)
dist.interval(ex3,c(1,2),gamma=0.5,method="Hausdorff",normalize=FALSE,
SpanNormalize=FALSE,euclidea=TRUE)
dist.interval(ex3,c(1,2),gamma=0.5,method="Hausdorff",normalize=FALSE,
SpanNormalize=TRUE,euclidea=TRUE)
# }
Run the code above in your browser using DataLab