[R] Make check failure for R-2.4.1

[Adam Witney]

>     Adam> Here is the results:
> 
>>> xB <- c(2000,1e6,1e50,Inf)
>>> for(df in c(0.1, 1, 10))
>     Adam> +        for(ncp in c(0, 1, 10, 100))
>     Adam> +            print(pchisq(xB, df=df, ncp=ncp), digits == 15)
>     Adam> Error in print.default(pchisq(xB, df = df, ncp = ncp), digits == 15)
> :
>     Adam> object "digits" not found
> 
> well, that's a typo - I think - you should have been able to fix
> (I said "something like" ...).
> Just do replace the '==' by '='

Sorry my R is very limited... Here is the output with an '=' instead

>  xB <- c(2000,1e6,1e50,Inf)
>   for(df in c(0.1, 1, 10))
+        for(ncp in c(0, 1, 10, 100))
+            print(pchisq(xB, df=df, ncp=ncp), digits = 15)
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1
[1] 1 1 1 1

Thanks again

Adam