[R] R-2.7.0 make check failure

[Gregory Ruchti]

Hello,

I am fairly new to using R and am trying to install it on my Linux  
machine, running Scientific Linux.  I get through running 'configure'  
and 'make' OK, but when I run 'make check', I get the following error:

  make check
make[1]: Entering directory `/home/gruchti/Programs/R-2.7.0/tests'
make[2]: Entering directory `/home/gruchti/Programs/R-2.7.0/tests'
make[3]: Entering directory `/home/gruchti/Programs/R-2.7.0/tests/ 
Examples'
make[4]: Entering directory `/home/gruchti/Programs/R-2.7.0/tests/ 
Examples'
make[4]: `Makedeps' is up to date.
make[4]: Leaving directory `/home/gruchti/Programs/R-2.7.0/tests/ 
Examples'
make[4]: Entering directory `/home/gruchti/Programs/R-2.7.0/tests/ 
Examples'
running code in 'base-Ex.R' .../bin/sh: line 1:  4233 Segmentation  
fault      ../../bin/R --vanilla <base-Ex.R >base-Ex.Rout 2>&1
make[4]: *** [base-Ex.Rout] Error 1
make[4]: Leaving directory `/home/gruchti/Programs/R-2.7.0/tests/ 
Examples'
make[3]: *** [test-Examples-Base] Error 2
make[3]: Leaving directory `/home/gruchti/Programs/R-2.7.0/tests/ 
Examples'
make[2]: *** [test-Examples] Error 2
make[2]: Leaving directory `/home/gruchti/Programs/R-2.7.0/tests'
make[1]: *** [test-all-basics] Error 1
make[1]: Leaving directory `/home/gruchti/Programs/R-2.7.0/tests'
make: *** [check] Error 2

I took a look at the 'base-Ex.Rout.fail' file to see where the problem  
occured and get the following at the end of the file:

 > ## R code version of choose()  [simplistic; warning for k < 0]:
 > mychoose <- function(r,k)
+     ifelse(k <= 0, (k==0),
+            sapply(k, function(k) prod(r:(r-k+1))) / factorial(k))
 > k <- -1:6
 > cbind(k=k, choose(1/2, k), mychoose(1/2, k))

  *** caught segfault ***
address 0x200, cause 'memory not mapped'

Traceback:
  1: doWithOneRestart(return(expr), restart)
  2: withOneRestart(expr, restarts[[1]])
  3: withRestarts({    .Internal(.signalCondition(simpleWarning(msg,  
call), msg,         call))    .Internal(.dfltWarn(msg, call))},  
muffleWarning = function() NULL)
  4: .signalSimpleWarning("NaNs produced", quote(gamma(x + 1)))
  5: factorial(k)
  6: ifelse(k <= 0, (k == 0), sapply(k, function(k) prod(r:(r - k  
+     1)))/factorial(k))
  7: mychoose(1/2, k)
  8: cbind(k = k, choose(1/2, k), mychoose(1/2, k))
aborting ...


I really am not sure how to interpret this, or how to fix it.  Any  
help would be greatly appreciated!

Regards,
Greg

----------
Gregory Ruchti
Bloomberg Center for Physics and Astronomy
Johns Hopkins University