Added [<- method for FLQuantDistr, FLQuant

flr · Dec 12, 2024 · 02b3f73 · 02b3f73
1 parent 29cff09
commit 02b3f73
Show file tree

Hide file tree

Showing 8 changed files with 37 additions and 37 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: FLCore
 Title: Core Package of FLR, Fisheries Modelling in R
-Version: 2.6.20.9314
+Version: 2.6.20.9315
 Authors@R: c(
   person("Iago", "Mosqueira", email = "iago.mosqueira@wur.nl",
     role = "cre", comment=c(c(ORCID = "0000-0002-3252-0591"))),
@@ -88,4 +88,4 @@ LazyLoad: Yes
 LazyData: No
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
diff --git a/R/FLQuantDistr.R b/R/FLQuantDistr.R
@@ -198,7 +198,8 @@ setMethod("-",
 	}
 ) # }}}
 
-## "["             {{{
+# [ {{{
+
 #' @rdname Extract
 #' @aliases [,FLQuantDistr,ANY,ANY,ANY-method
 setMethod("[", signature(x="FLQuantDistr"),
@@ -247,6 +248,16 @@ setMethod("[", signature(x="FLQuantDistr", i="array", j="missing", drop="missing
 
 # }}}
 
+# [<- {{{
+
+setMethod("[<-", signature(x="FLQuantDistr", value="FLQuant"),
+  function(x, i, j, k, l, m, n, ..., value) {
+    x@.Data[i,j,k,l,m,n] <- value
+    return(x)
+  }
+)
+# }}}
+
 # sums         {{{
 #' @rdname dimSummaries
 setMethod('yearSums', signature(x='FLQuantDistr'), function(x, na.rm=TRUE) {

diff --git a/man/Extract.Rd b/man/Extract.Rd
diff --git a/man/SRModels.Rd b/man/SRModels.Rd
diff --git a/man/mbar.Rd b/man/mbar.Rd
diff --git a/man/show.Rd b/man/show.Rd
diff --git a/man/summary-methods.Rd b/man/summary-methods.Rd
diff --git a/man/survey.Rd b/man/survey.Rd