Does not fail if the phenotype is not present.
phemat_remove_phenotype(name, phenotype_matrix)
phenotype names
A phenotype matrix structure
a phenotype matrix object
if (FALSE) {
phenotype_mat <- get_phenotype_matrix()
phenotype_mat <- phemat_add_phenotypes(name=list("PT1", "PT2"), phenotype_matrix = phenotype_mat)
phenotype_mat <- phemat_remove_phenotype(name= "PT1", phenotype_matrix = phenotype_mat)
}