Choices with Functions (Making Choices)

The UHURU experiment in Kenya has conducted a survey of Acacia drepanolobium among each of their ungulate exclosure treatments. Data for the survey is available here in a tab delimited ("\t") format. Each of the individuals surveyed were measured for branch circumference (CIRC) and canopy width (AXIS1) and was identified for the associated ant-symbiont species present (ANT).

The following function takes a subset of the data for a given ANT symbiont and evaluates the linear regression (lm()) for a given relationship, returning the symbiont species used for the subset and the r2 of the model.

report_rsquared <- function(data, species, formula){
  subset <- dplyr::filter(data, ANT == species)
  test <- lm(formula, data = subset)
  rsquared <- round(summary(test)$r.squared, 3)
  output <- data.frame(species = species, r2 = rsquared)
  return(output)
}

Execute the function using the UHURU data and specifying species = "CM" and formula = "AXIS1~CIRC".
Modify the function so that it also determines if() the rsquared is significant based on a given threshold. The modified function should return() the species, rsquared and a significance value of "S" for a relationship with an rsquared > threshold or "NS" for an rsquared < threshold.
Execute your modified function for species of "CM", "CS", and "TP" given a threshold = 0.667.

Expected outputs for Choices with Functions: 1