0.99.7

example had wrong vale: NcntPer = 10

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pwrEWAS
 Title: A user-friendly tool for comprehensive power estimation for epigenome wide association studies (EWAS) 
-Version: 0.99.6
+Version: 0.99.7
 Description: pwrEWAS is a user-friendly tool to assists researchers in the design and planning of EWAS to help circumvent under- and overpowered studies.
 Author: Stefan Graw
 Maintainer: Stefan Graw <sgraw@kumc.edu>
@@ -16,12 +16,12 @@ Imports:
 	parallel,
 	shinyWidgets,
 	BiocManager,
+	doSNOW,
 	limma,
 	genefilter
 Depends: 
 	shinyBS,
-	foreach,
-	doSNOW
+	foreach
 Suggests:
     knitr,
     rmarkdown

R/plotFunction_v1.4.R

@@ -34,7 +34,7 @@ pwrEWAS_powerPlot <- function(data, sd = FALSE){
   for(j in 1:dim(data)[3]){
     U <- NULL
     L <- NULL
-    if(class(data[,,j]) == "matrix"){
+    if(is(data[,,j], "matrix")){
       dataSlice <- data[,,j]
     } else  dataSlice <- matrix(data[,,j])
 

R/pwrEWAS_v1.7.R

@@ -27,7 +27,7 @@
 #' pwrEWAS(minTotSampleSize = 10,
 #'                    maxTotSampleSize = 50,
 #'                    SampleSizeSteps = 10,
-#'                    NcntPer = 10,
+#'                    NcntPer = 0.5,
 #'                    targetDelta = c(0.2, 0.5),
 #'                    J = 100000,
 #'                    targetDmCpGs = 100,
@@ -41,7 +41,7 @@
 #' pwrEWAS(minTotSampleSize = 10,
 #'                    maxTotSampleSize = 50,
 #'                    SampleSizeSteps = 10,
-#'                    NcntPer = 10,
+#'                    NcntPer = 0.5,
 #'                    deltaSD = c(0.02, 0.03),
 #'                    J = 100000,
 #'                    targetDmCpGs = 100,