Extracting Linear Equations from Model Output and Selecting a Single Value in Multiple Label Scenarios Using R's `lm()` Function