Skip to content
Snippets Groups Projects
Commit b395beaa authored by Arnaud Duvermy's avatar Arnaud Duvermy
Browse files

fix error in example

Former-commit-id: af0856c97657091b243762d05080d02dba735025
Former-commit-id: 42eab06c1e57b45f0cb92570d3fb75ced49f3a48
Former-commit-id: 555acccdb1e61309fff721f4fc9dd2079e566714
parent c2ac944e
No related branches found
No related tags found
No related merge requests found
......@@ -437,7 +437,7 @@ replicateRows <- function(df, n) {
#' @export
#' @examples
#' list_var <- init_variable()
#' replicationMatrix <- generateReplicationMatrix(list_var, 3)
#' replicationMatrix <- generateReplicationMatrix(list_var, 3, 3)
#' getSampleMetadata(list_var, replicationMatrix)
getSampleMetadata <- function(list_var, replicationMatrix) {
l_sampleIDs = getSampleID(list_var)
......
......@@ -1959,7 +1959,7 @@ replicateRows <- function(df, n) {
#' @export
#' @examples
#' list_var <- init_variable()
#' replicationMatrix <- generateReplicationMatrix(list_var, 3)
#' replicationMatrix <- generateReplicationMatrix(list_var, 3, 3)
#' getSampleMetadata(list_var, replicationMatrix)
getSampleMetadata <- function(list_var, replicationMatrix) {
l_sampleIDs = getSampleID(list_var)
......@@ -3744,7 +3744,7 @@ get_mad_user_message <- function(var, x , left_threshold, keep) {
```
```{r test-update_fittedmodel}
```{r test-filtering_fit}
# Tests for identifyTopFit function
test_that("identifyTopFit correctly identifies top-fitting objects", {
......
......@@ -21,6 +21,6 @@ Generates sample metadata based on the input variables, replication matrix, and
}
\examples{
list_var <- init_variable()
replicationMatrix <- generateReplicationMatrix(list_var, 3)
replicationMatrix <- generateReplicationMatrix(list_var, 3, 3)
getSampleMetadata(list_var, replicationMatrix)
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment