x <- c("PROPN", "SCONJ", "ADJ", "NOUN", "VERB", "INTJ", "DET", "VERB",
"PROPN", "AUX", "NUM", "NUM", "X", "SCONJ", "PRON", "PUNCT", "ADP",
"X", "PUNCT", "AUX", "PROPN", "ADP", "X", "PROPN", "ADP", "DET",
"CCONJ", "INTJ", "NOUN", "PROPN")
as_phrasemachine(x)
Run the code above in your browser using DataLab