# Load "Car.dxi"
CarDxi <- system.file("extdata", "Car.dxi", package = "DEXiR")
Car <- read_dexi(CarDxi)
# For example, consider the scale of attribute PRICE
scl <- Car$attrib("PRICE")$scale
# Print fields and basic properties of scl
scl$verify()
scl$values
scl$quality
scl$descriptions
scl$nvals
scl$count()
scl$is_discrete()
scl$is_continuous()
scl$to_string()
scl$full_range()
# Find value indices
scl$value_index("medium")
scl$value_index("med")
# Is scl equal to the scale of BUY.PRICE?
scl$equal(Car$attrib("PRICE")$scale)
Run the code above in your browser using DataLab