Skip to content

Commit

Permalink
fixed reference in DESCRIPTION and removed unnecessary cat() in utili…
Browse files Browse the repository at this point in the history
…ty.R
  • Loading branch information
Martin Happ authored and Martin Happ committed Feb 18, 2025
1 parent bfc57af commit cb7a027
Show file tree
Hide file tree
Showing 4 changed files with 4 additions and 8 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ Description: Calculates the minimal sample size for the Wilcoxon-Mann-Whitney te
that is needed for a given power and two sided type I error rate. The method works for metric data with and without
ties, count data, ordered categorical data, and even dichotomous data.
But data is needed for the reference group to generate synthetic data for the treatment group based on a relevant effect.
For details, see Brunner, E., Bathke A. C. and Konietschke, F: Rank- and Pseudo-Rank Procedures in Factorial Designs - Using R and SAS, Springer Verlag, to appear.
See Happ et al. (2019, <doi:10.1002/sim.7983>) for details.
Depends: R (>= 3.4.0)
License: GPL-3
URL: https://github.com/happma/WMWssp
Expand Down
4 changes: 2 additions & 2 deletions NEWS.md
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
# WMWssp 0.5.2
* Removed lazydata and updated citation file
# WMWssp 0.5.3
* Removed lazydata and updated citation and description file

# WMWssp 0.4.0
* Added option to use optimal allocation rate for the function 'WMWssp' by using the argument t = "min"
Expand Down
4 changes: 0 additions & 4 deletions R/utility.R
Original file line number Diff line number Diff line change
Expand Up @@ -32,16 +32,12 @@ sim_power <- function(x1,x2,nsim,n1,n2) {
cat("Simulation:\n")

for(i in 1:nsim){
if(i%%1000==0){
cat(paste(i, "/", nsim, "\n"))
}
z1 <- sample(x1, size = ceiling(n1), prob = NULL, replace = TRUE)
z2 <- sample(x2, size = ceiling(n2), prob = NULL, replace = TRUE)
if(asymptotic_wilcox_test(z1,z2) <= 0.05) {
simpower <- simpower + 1
}
}
cat("\n")
return (simpower)
}

Expand Down
2 changes: 1 addition & 1 deletion README.md
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
# WMWssp 0.5.2
# WMWssp 0.5.3

[![CRANstatus](https://www.r-pkg.org/badges/version/WMWssp)](https://cran.r-project.org/package=WMWssp)
[![](https://cranlogs.r-pkg.org/badges/WMWssp)](https://cran.r-project.org/package=WMWssp)
Expand Down

0 comments on commit cb7a027

Please sign in to comment.