R sql connect and query (solution)

Exercise
Output solution
[1] "plots"                         "species"                      
[3] "sqlite_stat1"                  "sqlite_stat4"                 
[5] "surveys"                       "target_species_weight_by_year"
[1] "record_id"       "month"           "day"             "year"           
[5] "plot_id"         "species_id"      "sex"             "hindfoot_length"
[9] "weight"         
[1] "plot_id"   "plot_type"
  AVG(s.hindfoot_length) AVG(s.weight)
1               50.04674      120.3318
  AVG(s.hindfoot_length) AVG(s.weight)
1               50.52039      123.3665
  AVG(s.hindfoot_length) AVG(s.weight)
1               49.54717      117.0033