Removed iterMedians(FLStock), bad idea, added it for FLQuants

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: FLCore
 Title: Core Package of FLR, Fisheries Modelling in R
-Version: 2.6.20.9309
+Version: 2.6.20.9310
 Authors@R: c(
   person("Iago", "Mosqueira", email = "iago.mosqueira@wur.nl",
     role = "cre", comment=c(c(ORCID = "0000-0002-3252-0591"))),

R/FLQuants.R

@@ -319,3 +319,13 @@ setMethod("merge", signature(x="FLQuants", y="FLQuants"),
 )
 
 # }}}
+
+# iterMedians {{{
+setMethod("iterMedians", signature(x="FLQuants"),
+  function(x) {
+
+  res <- lapply(x, iterMedians)
+
+  return(res)
+})
+# }}}

R/FLS.R

@@ -11,8 +11,8 @@
 #' computeLandings,FLStockLen-method
 setMethod("computeLandings", signature(object="FLS"),
   function(object, na.rm=TRUE) {
-        res        <- quantSums(landings.n(object) * landings.wt(object), na.rm=na.rm)
-        return(res)
+    res <- quantSums(landings.n(object) * landings.wt(object), na.rm=na.rm)
+    return(res)
    } 
 )  # }}}
 

R/FLStock.R

@@ -2350,21 +2350,6 @@ setMethod("ageopt", signature(object="FLStock"),
 )
 # }}}
 
-# iterMedians {{{
-setMethod("iterMedians", signature(x="FLStock"),
-  function(x) {
-
-  res <- qapply(x, iterMedians)
-
-  landings(res) <- iterMedians(landings(x))
-  discards(res) <- iterMedians(discards(x))
-  catch(res) <- iterMedians(catch(x))
-  stock(res) <- iterMedians(stock(x))
-
-  return(res)
-})
-# }}}
-
 # update(FLStock, ...) {{{
 
 setMethod("update", signature(object="FLStock"),

R/FLStockR.R

@@ -208,18 +208,6 @@ setAs('FLStockR', 'FLStock',
   })
 # }}}
 
-# iterMedians {{{
-setMethod("iterMedians", signature(x="FLStockR"),
-  function(x) {
-
-  res <- callNextMethod()
-
-  refpts(res) <- iterMedians(refpts(x))
-
-  return(res)
-})
-# }}}
-
 # depletion {{{
 
 setMethod("depletion", signature(x="FLStockR"),