diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2016-11-17 18:14:32 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2016-11-17 18:23:31 +0100 |
| commit | f3f415520c89f9d8526bf6fadc862ebd44be220d (patch) | |
| tree | e80d26e3b4f56ebe872888bed8f01a21d49b7ff4 /R/ilr.R | |
| parent | f52fffd9eab13b7902bf767dd9cd7f0e7abf8069 (diff) | |
Remove trailing whitespace, clean headers
Also ignore test.R in the top level directory, as it is not meant to
be public
Diffstat (limited to 'R/ilr.R')
| -rw-r--r-- | R/ilr.R | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -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) |