gistfile1.txt

xx$band[xx$dav_hue_vector >= (0/12) & xx$dav_hue_vector <= (1/12)] <- "Red"
xx$band[xx$dav_hue_vector > (1/12) & xx$dav_hue_vector <= (2/12)] <- "Red-Orange"
xx$band[xx$dav_hue_vector > (2/12) & xx$dav_hue_vector <= (3/12)] <- "Orange"
xx$band[xx$dav_hue_vector > (3/12) & xx$dav_hue_vector <= (4/12)] <- "Yellow-Orange"
xx$band[xx$dav_hue_vector > (4/12) & xx$dav_hue_vector <= (5/12)] <- "Yellow"
xx$band[xx$dav_hue_vector > (5/12) & xx$dav_hue_vector <= (6/12)] <- "Yellow-Green"
xx$band[xx$dav_hue_vector > (6/12) & xx$dav_hue_vector <= (7/12)] <- "Green"
xx$band[xx$dav_hue_vector > (7/12) & xx$dav_hue_vector <= (8/12)] <- "Blue-Green"
xx$band[xx$dav_hue_vector > (8/12) & xx$dav_hue_vector <= (9/12)] <- "Blue"
xx$band[xx$dav_hue_vector > (9/12) & xx$dav_hue_vector <= (10/12)] <- "Blue-Violet"
xx$band[xx$dav_hue_vector > (10/12) & xx$dav_hue_vector <= (11/12)] <- "Violet"
xx$band[xx$dav_hue_vector > (11/12) & xx$dav_hue_vector <= (12/12)] <- "Red-Violet"