fixed problem with the kepner-robinson-test

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: pseudorank
 Title: Pseudo-Ranks
-Version: 1.0.0
-Date: 2020-10-01
+Version: 1.0.2
+Date: 2021-12-21
 Authors@R: c(person("Martin Happ", role = c("aut", "cre"),
                       email = "[email protected]",
                       comment = c(ORCID = "0000-0003-0009-2665")),
@@ -17,7 +17,7 @@ Depends: R (>= 3.4.0)
 Imports: Rcpp (>= 0.12.16), doBy
 LinkingTo: Rcpp
 SystemRequirements: C++11
-URL: http://github.com/happma/pseudorank
-BugReports: http://github.com/happma/pseudorank/issues
+URL: https://github.com/happma/pseudorank/
+BugReports: https://github.com/happma/pseudorank/issues/
 RoxygenNote: 7.1.1
 Suggests: testthat

NAMESPACE

@@ -1,5 +1,5 @@
 useDynLib(pseudorank, .registration=TRUE)
-export(psrank, pseudorank, hettmansperger_norton_test, kruskal_wallis_test)
+export(psrank, pseudorank, hettmansperger_norton_test, kruskal_wallis_test, kepner_robinson_test)
 S3method(pseudorank, numeric)
 S3method(pseudorank, formula)
 S3method(print, pseudorank)

NEWS.md

@@ -1,3 +1,6 @@
+# pseudorank 1.0.2
+* Fixed problem with the Kepner-Robinson-test
+
 # pseudorank 0.3.7
 * Changed function name ''psrank'' to ''pseudorank'' and set ''psrank'' as deprecated.
 * Added a data set which can be used to show paradoxical results from rank tests.

R/S3method.R

@@ -162,7 +162,7 @@ kruskal_wallis_test.formula <- function(formula, data, na.rm = FALSE, pseudorank
 #' @param distribution either 'Chisq' or 'F' approximation
 #' @param ... further arguments are ignored
 #' @return Returns an object of class 'pseudorank'
-#' @example R/example_3.txt
+#' @example R/example_4.txt
 #' @references James L. Kepner & David H. Robinson (1988) Nonparametric Methods for Detecting Treatment Effects in Repeated-Measures Designs, Journal of the American Statistical Association, 83:402, 456-461.
 #' @keywords internal
 kepner_robinson_test <- function(x, ...) {

R/kepner_robinson.R

@@ -9,7 +9,7 @@
 #' @param trend custom numeric vector indicating the trend for the custom alternative, only used if alternative = "custom"
 #' @param ... further arguments are ignored
 #' @return Returns a data.frame with the results
-#' @example R/example_3.txt
+#' @example R/example_4.txt
 #' @references Kepner, J. L., & Robinson, D. H. (1988). Nonparametric methods for detecting treatment effects in repeated-measures designs. Journal of the American Statistical Association, 83(402), 456-461.
 #' @keywords internal
 kepner_robinson_test_internal <- function(data, time, subject, distribution, na.rm, formula = NULL, ...) {

README.md

@@ -1,11 +1,9 @@
-# pseudorank 1.0.0
-
-[![CRANstatus](https://www.r-pkg.org/badges/version/pseudorank)](https://cran.r-project.org/package=pseudorank)
-[![](https://cranlogs.r-pkg.org/badges/pseudorank)](https://cran.r-project.org/package=pseudorank)
-[![Travis-CI Build Status](https://travis-ci.org/happma/pseudorank.svg?branch=master)](https://travis-ci.org/happma/pseudorank)
-[![Build status](https://ci.appveyor.com/api/projects/status/queq8aa7cpct3j16?svg=true)](https://ci.appveyor.com/project/happma/pseudorank)
-[![codecov](https://codecov.io/gh/happma/pseudorank/branch/master/graph/badge.svg)](https://codecov.io/gh/happma/pseudorank)
-[![Codacy Badge](https://api.codacy.com/project/badge/Grade/014857185eaf4387ad83f5d7509d059a)](https://www.codacy.com/project/happma/pseudorank/dashboard?utm_source=github.com&utm_medium=referral&utm_content=happma/pseudorank&utm_campaign=Badge_Grade_Dashboard)
+# pseudorank 1.0.2
+
+[![CRANstatus](https://www.r-pkg.org/badges/version/pseudorank)](https://cran.r-project.org/package=pseudorank/)
+[![](https://cranlogs.r-pkg.org/badges/pseudorank)](https://cran.r-project.org/package=pseudorank/)
+[![Travis-CI Build Status](https://travis-ci.org/happma/pseudorank.svg?branch=master)](https://travis-ci.org/happma/pseudorank/)
+[![Build status](https://ci.appveyor.com/api/projects/status/queq8aa7cpct3j16?svg=true)](https://ci.appveyor.com/project/happma/pseudorank/)
 
 This R package provides a function written in C++ to calculate pseudo-ranks in R and some rank statistics which can opionally use pseudo-ranks instead of ranks.
 For a definition and discussion of pseudo-ranks, see for example