# NOT RUN {
# These are equivalent:
x1 <- div(summary.taf, c("Rec","Rec_lo","Rec_hi",
"TSB","TSB_lo","TSB_hi",
"SSB","SSB_lo","SSB_hi",
"Removals","Removals_lo","Removals_hi"))
x2 <- div(summary.taf, "Rec|TSB|SSB|Removals", grep=TRUE)
x3 <- div(summary.taf, "Year|Fbar", grep=TRUE, invert=TRUE)
# Less reliable in scripts if columns have been added/deleted/reordered:
x4 <- div(summary.taf, 2:13)
# }
Run the code above in your browser using DataLab