Skip to content

Commit 19c8cd2

Browse files
author
Raphael Sonabend
committed
solaris patch
Branch: master
1 parent ce413b7 commit 19c8cd2

File tree

4 files changed

+11
-3
lines changed

4 files changed

+11
-3
lines changed

DESCRIPTION

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
Package: distr6
22
Title: The Complete R6 Probability Distributions Interface
3-
Version: 1.4.5
3+
Version: 1.4.6
44
Authors@R:
55
c(person(given = "Raphael",
66
family = "Sonabend",

NEWS.md

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,7 @@
1+
# distr6 1.4.6
2+
3+
* Patch for solaris
4+
15
# distr6 1.4.5
26

37
* Added `cdfSquared2Norm` analytic methods to most kernels

cran-comments.md

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,7 @@
1+
## Reason for resubmission
2+
3+
Patch for solaris
4+
15
## Test Results
26

37
No new NOTEs, WARNINGs, or ERRORs.

src/Kernels.cpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -250,9 +250,9 @@ NumericVector C_SilvermanKernelCdf(NumericVector x, bool lower, bool logp) {
250250

251251
for (int i = 0; i < x.size(); i++){
252252
if (x[i] <= 0) {
253-
ret[i] = 0.5 * exp(x[i]/sqrt(2)) * cos(x[i]/sqrt(2));
253+
ret[i] = 0.5 * exp(x[i]/sqrt(2.0)) * cos(x[i]/sqrt(2.0));
254254
} else {
255-
ret[i] = 1 - (0.5 * exp(-x[i]/sqrt(2)) * cos(x[i]/sqrt(2)));
255+
ret[i] = 1 - (0.5 * exp(-x[i]/sqrt(2.0)) * cos(x[i]/sqrt(2.0)));
256256
}
257257

258258
if (!lower) {

0 commit comments

Comments
 (0)