# NOT RUN {
horizons <- layer(data.set = "ctb0025", variable = "morfologia_descricao")
color <- morphology(x = horizons$morfologia_descricao, variable = "color")
structure <- morphology(x = horizons$morfologia_descricao, variable = "structure")
consistence <- morphology(x = horizons$morfologia_descricao, variable = "consistence")
# }
# NOT RUN {
x <- "cinzento rosado (7.5YR 6/2, seco), bruno escuro (7.5YR 3/2, <U+00FA>mido)"
color <- morphology(x = x, variable = "color")
# }
Run the code above in your browser using DataLab