R/LinearRegression.R

In awatt008/R_Package_Wattler: Analysis of Survey Data

#I want to look at the weight with the species as a function. I expect my output to be weight as predictor 
#of species with a line of linear regression.
#'
#'
#'@param . is a piped surveys.csv file with weight and hindfoot length selected and grouped
#'@param weight is weight column from surveys.csv
#'@param hindfoot_length is a hindfoot_length column from surveys.csv
#'@return Returns a linear regression model of weight and hindfoot length, with weight in
#'x axis, and hindfoot_length in y axis
#'@export
hindfoot_weight_regression <- function(., weight, hindfoot_length){
  if(!is.data.frame(surveys)){
    return("This is not a dataframe")
  }
  plt_regression <- ggplot(., aes(x = weight, y = hindfoot_length)) +
    geom_point(size = .25) + 
    geom_smooth(method = "lm",     
                color = "blue",    
                size = .5,        
                fill = "black")        
  return(plt_regression)
}
#'