From f3f415520c89f9d8526bf6fadc862ebd44be220d Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 17 Nov 2016 18:14:32 +0100
Subject: Remove trailing whitespace, clean headers

Also ignore test.R in the top level directory, as it is not meant to
be public
---
 R/ilr.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'R/ilr.R')

diff --git a/R/ilr.R b/R/ilr.R
index 389653e7..620afc49 100644
--- a/R/ilr.R
+++ b/R/ilr.R
@@ -1,5 +1,3 @@
-# $Id$
-
 # Copyright (C) 2012 René Lehmann, Johannes Ranke
 # Contact: jranke@uni-bremen.de
 
@@ -44,7 +42,7 @@ invilr<-function(x) {
   # Work around a numerical problem with NaN values returned by the above
   # Only works if there is only one NaN value: replace it with 1
   # if the sum of the other components is < 1e-10
-  if (sum(is.na(z)) == 1 && sum(z[!is.na(z)]) < 1e-10) 
+  if (sum(is.na(z)) == 1 && sum(z[!is.na(z)]) < 1e-10)
     z = ifelse(is.na(z), 1, z)
 
   return(z)
-- 
cgit v1.2.1