x <- "I want to be a yield table!" # strange object
is_fe_yield_table(x) # sorry
is_fe_yield_table(ytable_pine_wiedemann_moderate_1943_raw) # Nope
is_fe_yield_table(fe_ytable_pine_wiedemann_moderate_1943) # That's better
Run the code above in your browser using DataLab