## Data set: raycatch (for description, run ?raycatch)
hist(raycatch$cpue, xlab = "Catch per unit effort")
plot(cpue ~ tide_phase, raycatch, pch = 16,
xlab = "Tide phase", ylab = "Catch per unit effort")
plot(cpue ~ location, raycatch, pch = 16,
xlab = "Location", ylab = "Catch per unit effort")
plot(cpue ~ max_temp, raycatch, pch = 16,
xlab = "Maximum temperature", ylab = "Catch per unit effort")
## Fit a double Box-Cox normal regression model:
fit <- BCSreg(cpue ~ location + tide_phase |
location + tide_phase + max_temp, raycatch)
## Influence measures under case-weights perturbation scheme:
cw <- influence(fit) ## two index plots are shown
str(cw)
Run the code above in your browser using DataLab