fix variable_meta assignment

Author: grlloyd

R/DatasetExperiment_class.R

@@ -103,7 +103,7 @@ setMethod(f = "$<-",
         assay(x,1) = value
       } else if (name %in% c('sample_meta')) {
         rowData(x) = S4Vectors::DataFrame(value)
-      } else if (name %in% c('sample_meta')) {
+      } else if (name %in% c('variable_meta')) {
         colData(x) = S4Vectors::DataFrame(value)
       }
       return(x)

R/generics.R

@@ -297,7 +297,7 @@ setGeneric("model_train",function(M,D)standardGeneric("model_train"))
 
 #' Model prediction
 #'
-#' Apply a model using the input dataset_ Assumes the model is trained
+#' Apply a model using the input dataset. Assumes the model is trained
 #' first.
 #' @param M a model object
 #' @param D a dataset object