@@ -30,6 +30,7 @@ export(.get_poplinData_names)

 export(.get_poplinReducedData_data_character)

 export(.get_poplinReducedData_data_integer)

 export(.get_poplinReducedData_data_missing)

+export(.poplin_annotate)

 export(.poplin_history)

 export(.set_poplinData_data_character)

 export(.set_poplinData_data_integer)

@@ -74,6 +75,7 @@ export(poplin_normalize_vast)

 export(poplin_normalize_vsn)

 export(poplin_reduce)

 export(poplin_reduce_pca)

+export(poplin_reduce_plsda)

 export(poplin_reduce_tsne)

 export(poplin_reduced)

 export(poplin_reduced_list)

@@ -151,6 +153,9 @@ importFrom(heatmaply,heatmaply)

 importFrom(heatmaply,is.na10)

 importFrom(methods,as)

 importFrom(methods,new)

+importFrom(stats,cutree)

+importFrom(stats,dist)

+importFrom(stats,hclust)

 importFrom(stats,lm.wfit)

 importFrom(stats,loess)

 importFrom(stats,mad)

@@ -269,3 +269,9 @@ setGeneric(

   "poplin_reduce_tsne",

   function(x, ...) standardGeneric("poplin_reduce_tsne")

 )

+

+##' @export

+setGeneric(

+  "poplin_reduce_plsda",

+  function(x, ...) standardGeneric("poplin_reduce_plsda")

+)

@@ -7,7 +7,7 @@

     method,

     pca = .poplin_reduce_pca(x, ncomp = ncomp, ...),

     tsne = .poplin_reduce_tsne(x, ncomp = ncomp, ...),

-    plsda = .poplin_reduce_tsne(x, y = y, ncomp = ncomp, ...)

+    plsda = .poplin_reduce_plsda(x, y = y, ncomp = ncomp, ...)

   )

 }

@@ -50,5 +50,23 @@ setMethod(

   }

 )

+setMethod(

+  "poplin_reduce_plsda",

+  "matrix",

+  function(x, ...) {

+    .poplin_impute_plsda(x, ...)

+  }

+)

+

+setMethod(

+  "poplin_reduce_plsda",

+  "poplin",

+  function(x, poplin_in, poplin_out, ...) {

+    .reduced_extract_and_assign(x, .poplin_reduce_plsda,

+                                poplin_in, poplin_out)

+  }

+)

+

+