Get the locus IDs from splice variants IDs (remove the .1, .2 from a list of gene IDs)
get_locus(gene_ids, unique = TRUE)list of gene ids with splice variants information
boolean, weather or not to return unique locus vector
character vector of gene IDs without alternative transcripts information
splice_variants <- rownames(abiotic_stresses$normalized_counts)[1:20]
get_locus(splice_variants)
#> [1] "AT1G01010" "AT1G01020" "AT1G01030" "AT1G01040" "AT1G01050" "AT1G01060"
#> [7] "AT1G01070" "AT1G01080" "AT1G01090" "AT1G01100" "AT1G01110" "AT1G01120"
#> [13] "AT1G01130" "AT1G01140" "AT1G01160" "AT1G01170" "AT1G01180" "AT1G01190"
#> [19] "AT1G01200" "AT1G01210"