From c5b31fd1c3eea75663a2da1bcb56acf9e9d3fd18 Mon Sep 17 00:00:00 2001
From: Lucille Delisle <lucille.delisle@epfl.ch>
Date: Fri, 15 Mar 2019 10:47:48 +0100
Subject: [PATCH] corrected parenthesis momentum_routines.R

There was a problem in parenthesis position in pca.velocity.plot when size.norm=T
---
 R/momentum_routines.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/momentum_routines.R b/R/momentum_routines.R
index ac9abc3..ee4bf04 100644
--- a/R/momentum_routines.R
+++ b/R/momentum_routines.R
@@ -703,7 +703,7 @@ pca.velocity.plot <- function(vel,nPcs=4,cell.colors=NULL,scale='log',plot.cols=
     cat("rescaling ... ")
     sz <- Matrix::colSums(x0);
     x0 <- t(t(x0)/sz)*mean(sz)
-    x1 <- t(t(x1/Matrix::colSums(x1)))*mean(sz);
+    x1 <- t(t(x1)/Matrix::colSums(x1))*mean(sz);
   }
   # transform
   if(scale=='log') {