# ------- # # Young, T., Fuller, E. C., Provost, M. M., Coleman, K. E., St. Martin, K., McCay, B. J., and Pinsky, M. L. # 2018 # Adaptation strategies of coastal fishing communities as species shift poleward. # ICES Journal of Marine Science # doi:10.1093/icesjms/fsy140. # ---------------- # # Latitudinal shift model ---- # By: Emma Fuller, modified by Talia Young # Last update: Nov 2016 # ---------------- # library(MuMIn) library(ggplot2) # load data ---- dat_gf <- readRDS("/nfs/fish-fishers-data/delta_gf.RDS") options(na.action = "na.fail") #(so that the coefficient in the final model is for big vessels not for small vessels, which is what it is by default on the factor size) dat_gf$size_num <- ifelse(dat_gf$size=="small", 0, ifelse(dat_gf$size=="large", 1, NA)) # global model for change in latitude using lat shift ---- fm1_nolog <- lm(lat_coef ~ depth.slope + port_lat + size_num + species_comp + sw_mean + depth.slope*port_lat + port_lat*size_num + size_num*sw_mean + species_comp*sw_mean, data = dat_gf) dd_nolog <- dredge(fm1_nolog, extra = c("R^2", "adjR^2")) #subset(dd_nolog, delta <= 3) #write.csv(dd_nolog, "~/fish_shift/community_analysis/manuscript/02_tables/model_fit_lat_nolog.csv", # row.names = FALSE)