Function to access labels in siamcat@label
get.label(siamcat)
an object of class siamcat-class
an object of class label-class
Access label object in siamcat@label
data(siamcat_example) label <- get.label(siamcat_example)