diff --git a/DESCRIPTION b/DESCRIPTION index 3572825..402f08a 100755 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: logitnorm -Title: Functions for the logitnormal distribution +Title: Functions for the Logitnormal Distribution Version: 0.8.33 -Date: 2015-10-08 +Date: 2016-11-10 Author: Thomas Wutzler Maintainer: Thomas Wutzler Description: Density, distribution, quantile and random generation function for the logitnormal distribution. Estimation of the mode and the first two moments. Estimation of distribution parameters. diff --git a/_genPackage.R b/_genPackage.R deleted file mode 100755 index 681ea9b..0000000 --- a/_genPackage.R +++ /dev/null @@ -1,44 +0,0 @@ -#------------ generating package tw.DEMC -# inlcuding generation of Rd files from inline-docs -# install.packages("inlinedocs") - -.tmp.f <- function(){ - library(twMisc) - source("R/logitnorm.R") - - twUtestF() -} - -.tmp.f <- function(){ - pkg <- "logitnorm" - - library(inlinedocs) - unlink( file.path("man","*.Rd") ) - package.skeleton.dx(".") - - # generate the HTML files - prevWd <- setwd("..") - system( paste("R CMD INSTALL --html ",pkg, sep="") ) - setwd(prevWd) - - # show in Browser - htmlRoot <- file.path( system.file(package = pkg), "html" ) - html_viewer <- function(path) { - browser <- getOption("browser") - if(is.null(browser) && .Platform$OS.type == "windows") - shell.exec(chartr("/", "\\", path)) - else browseURL(paste("file://", URLencode(path), sep="")) - } - html_viewer(file.path(htmlRoot,"00Index.html")) - - updateVersionAndDate() -} - -#R CMD check --no-vignettes --no-latex --no-install logitnorm -#R CMD check --no-vignettes --no-latex --no-codoc logitnorm -#R CMD INSTALL --html logitnorm - -.tmp.f <- function(){ - library(sos) - fres1 <- findFn("logitnormal") -} diff --git a/inst/genData/_genPackage.R b/inst/genData/_genPackage.R new file mode 100755 index 0000000..4f2ff6e --- /dev/null +++ b/inst/genData/_genPackage.R @@ -0,0 +1,19 @@ +#------------ generating package tw.DEMC +# inlcuding generation of Rd files from inline-docs +# install.packages("inlinedocs") + +.tmp.f <- function(){ + library(twMisc) + source("R/logitnorm.R") + twUtestF() +} + +#R CMD build logitnorm +#R CMD check --as-cran logitnorm_XXX | tee tmp.txt | grep -v OK$ +#R CMD check --no-vignettes --no-latex --no-codoc logitnorm +#R CMD INSTALL --html logitnorm + +.tmp.f <- function(){ + library(sos) + fres1 <- findFn("logitnormal") +}