import mclust::estep()

lgatto · Jun 16, 2024 · c1a22cc · c1a22cc
1 parent 69cdf26
commit c1a22cc
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: pRoloc
 Type: Package
 Title: A unifying bioinformatics framework for spatial proteomics
-Version: 1.45.0
+Version: 1.45.1
 Authors@R: c(person(given = "Laurent", family = "Gatto",
                     email = "[email protected]",
                     role = c("aut","cre")),
@@ -15,7 +15,7 @@ Authors@R: c(person(given = "Laurent", family = "Gatto",
                     email = "[email protected]",
                     role = "ctb"),
              person(given = "Oliver", family ="Crook",
-                    email = "omc25@cam.ac.uk",
+                    email = "[email protected].ac.uk",
                     role = "aut"))
 Author: Laurent Gatto, Oliver Crook and Lisa M. Breckels with
     contributions from Thomas Burger and Samuel Wieczorek

diff --git a/NAMESPACE b/NAMESPACE
@@ -51,8 +51,7 @@ importFrom(ggplot2, ggplot, geom_point, theme, scale_size_continuous,
            coord_fixed, geom_contour, scale_alpha, theme_minimal,
            element_rect, geom_density2d, xlim, stat)
 
-importFrom("mclust", "Mclust", "mclust.options", "mclustBIC")
-
+importFrom("mclust", "Mclust", "mclust.options", "mclustBIC", "estep")
 
 ## Importing to avoid 'no visible global function definition for' NOTES
 import(Biobase)

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,13 @@
+# pRoloc 1.45
+
+## Changes in version 1.45.1
+
+- Import mclust::estep().
+
+## Changes in version 1.45.0
+
+- New devel version
+
 # pRoloc 1.43
 
 ## Changes in version 1.43.2

diff --git a/R/phenodisco.R b/R/phenodisco.R
@@ -199,7 +199,7 @@ gmmOutlier <- function(L, X, N = 500, p=0.05) {
             ## Generate the test statistic, W, for round N
             ## (build up a distribution of W over N rounds)
         }
-                                        # Can plot to check normal using: plot(density(W))
+        ## Can plot to check normal using: plot(density(W))
     }
     ## Test unlabelled
     ## Test for G>1
@@ -447,7 +447,7 @@ phenoDisco <- function(object,
         object <- filterNA(object, pNA = 0)
     }
 
-        ## Remove duplicated rows (i.e. identical profiles and add back later)
+    ## Remove duplicated rows (i.e. identical profiles and add back later)
     duplicatedRows <- FALSE
     if (anyDuplicated(exprs(object))>0) {
         duplicatedRows <- TRUE