make.cepnames(c("Aa maderoi", "Poa sp.", "Cladina rangiferina",
"Cladonia cornuta", "Cladonia cornuta var. groenlandica",
"Cladonia rangiformis"))
data(BCI)
colnames(BCI) <- make.cepnames(colnames(BCI))
Run the code above in your browser using DataLab