2.8 Enunciate exception columns

Create a vector that enunciate which ordinal variables have “none” as a exceptional value when calculating the distance between values.

excep_cols <- c("INCLUS_DISTRIB","INCLUS_ORIENT","COAR_ROUNDNESS",
                "COAR_FORM","COAR_SPACING","COAR_SORTING","FINE_FORM")

In order to understand this “exceptional value” feature, compare the levels of regular and exceptional variables. However, to do that at this point you must re-assure the order of petrographic variables (i.e. format factors levels):

cleanAmphorae <- order_petro(cleanAmphorae)

This step is not necessary for applying the protocols because the apply_ordination function already does it internally, before calculating distances.

Variable	Values
INCLUS_DISTRIB	poorly, poorly to moderately, moderately, moderately to well, well, none
TEMP	unfired, 700-800oC, 800-900oC, 900-1000oC, 1000-1100oC
COAR_FREQ	none, very few, few, common, abundant, very abundant
COAR_ROUNDNESS	angular, angular to subangular, subangular, subangular to subrounded, subrounded, subrounded to rounded, rounded, none
COAR_R_CALS	none, few, common, frequent, dominant, predominant
FINE_FORM	elongate, elongate to equidimensional, equidimensional, equidimensional to laminar, laminar, none
FINE_C_QTZ	none, few, frequent, predominant