From noreply at r-forge.r-project.org Wed Dec 11 15:34:30 2013 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Wed, 11 Dec 2013 15:34:30 +0100 (CET) Subject: [Prob-commits] r45 - in pkg: . R Message-ID: <20131211143430.AD49F1862EB@r-forge.r-project.org> Author: gkerns Date: 2013-12-11 15:34:30 +0100 (Wed, 11 Dec 2013) New Revision: 45 Modified: pkg/DESCRIPTION pkg/R/characteristicfunctions.r pkg/R/misc.r Log: getting prob ready for CRAN Modified: pkg/DESCRIPTION =================================================================== --- pkg/DESCRIPTION 2013-11-20 20:55:25 UTC (rev 44) +++ pkg/DESCRIPTION 2013-12-11 14:34:30 UTC (rev 45) @@ -14,5 +14,5 @@ large numbers, adding random variables, and finding marginal distributions. Characteristic functions for all base R distributions are included. License: GPL (>= 3) -URL: http://prob.r-forge.r-project.org, http://people.ysu.edu/~gkerns +URL: http://prob.r-forge.r-project.org, http://people.ysu.edu/~gkerns/ Modified: pkg/R/characteristicfunctions.r =================================================================== --- pkg/R/characteristicfunctions.r 2013-11-20 20:55:25 UTC (rev 44) +++ pkg/R/characteristicfunctions.r 2013-12-11 14:34:30 UTC (rev 45) @@ -7,7 +7,7 @@ if (shape1 <=0 || shape2 <=0) stop("shape1, shape2 must be positive") if (identical(all.equal(ncp, 0), TRUE)){ - require(fAsianOptions) + # require(fAsianOptions) kummerM(1i*t, shape1, shape1 + shape2) } else { fr <- function(x) cos(t*x)*dbeta(x, shape1, shape2, ncp) @@ -47,7 +47,7 @@ cff <- function(t, df1, df2, ncp, kmax = 10){ if (df1 <= 0 || df2 <= 0 ) stop("df1 and df2 must be positive") - require(fAsianOptions) + # require(fAsianOptions) if( identical(all.equal(ncp, 0), TRUE) ){ gamma((df1+df2)/2) / gamma(df2/2) * kummerU(-1i*df2*t/df1, df1/2, 1 - df2/2) } else { Modified: pkg/R/misc.r =================================================================== --- pkg/R/misc.r 2013-11-20 20:55:25 UTC (rev 44) +++ pkg/R/misc.r 2013-12-11 14:34:30 UTC (rev 45) @@ -35,7 +35,7 @@ `permsn` <- function (x, m) { - require(combinat) + # require(combinat) if (is.numeric(x) && length(x) == 1 && x > 0 && trunc(x) == x) x <- seq(x) From noreply at r-forge.r-project.org Wed Dec 11 17:59:22 2013 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Wed, 11 Dec 2013 17:59:22 +0100 (CET) Subject: [Prob-commits] r46 - pkg Message-ID: <20131211165922.EC383186A90@r-forge.r-project.org> Author: gkerns Date: 2013-12-11 17:59:22 +0100 (Wed, 11 Dec 2013) New Revision: 46 Modified: pkg/DESCRIPTION Log: added Authors at R field Modified: pkg/DESCRIPTION =================================================================== --- pkg/DESCRIPTION 2013-12-11 14:34:30 UTC (rev 45) +++ pkg/DESCRIPTION 2013-12-11 16:59:22 UTC (rev 46) @@ -2,8 +2,7 @@ Version: 0.9-5 Date: 2013-11-20 Title: Elementary Probability on Finite Sample Spaces -Author: G. Jay Kerns -Maintainer: G. Jay Kerns +Authors at R: person(given = "G. Jay", family = "Kerns", role = c("aut", "cre", "cph"), email = "gkerns at ysu.edu") Depends: combinat, fAsianOptions, hypergeo, VGAM Description: This package provides a framework for performing elementary probability