added Return value for 'siarhdrs' function

[PhDMeiwp]

Previous version:

library(siar) # the latest version
...
siarhdrs(model1)

Latest version: (added Return value for 'siarhdrs' function)

• User can get the return value from siarhdrs(model1) for further analysis or visualization:

  Results <- siarhdrs(model1)
  Results$Mean
  Results[1:3,]
  barplot(Results[1:3, 1], main = "Barplot of Mean Source Porportions to Group 1"]

[AndrewLJackson]

Hi PhDMeiwp! thanks again for this pull request which i have accepted. Its great that you are contributing to this package, and its brilliant to see GitHub working as it should for projects like this. Just please dont spend much time updating the code for siar, as the package is very out of date, and we plan on either:

• retiring it completing and moving to our related packages SIBER (which has already superseded the ellipse functions in siar), MixSIAR and simmr, or
• making a major release update for siar v 5.0 that essentially pulls simmr into siar and leaves the ellipse based functions in SIBER.

In any case, the preference is for users to work with MixSIAR for most analyses, and simmr if you want to do something more basic and similar to the original analyses in siar. Essentially simmr is a place where Andrew Parnell is playing with new code and ideas for mixing models, while MixSIAR is our published "do it all" type package for mixing models.

best wishes

Andrew

[PhDMeiwp]

Dear Professor Andrew Jackson

Thank you so much for your suggestions. MixSIAR etc are so powerful and helpful to my research on stable isotopes.
Look forward to your great work in the future.

Best regards，

PhDMeiwp