0.99.20

download data from pwrEWAS_data
stefangraw · Feb 24, 2019 · 5ee5630 · 5ee5630
1 parent 139930c
commit 5ee5630
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 13 deletions.
diff --git a/DESCRIPTION b/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.19
+Version: 0.99.20
 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>

diff --git a/R/functions.R b/R/functions.R
@@ -150,51 +150,51 @@ getK <- function(targetDmCpGs, methPara, detectionLimit, J, CpGonArray, tau){
 loadDataset <- function(tissueType){
   methPara <- NULL
   if(tissueType == "Saliva"){
-    repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Saliva.rdata?raw=True")
+    repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Saliva.rdata?raw=True")
     methPara <- Saliva
   } else 
     if(tissueType == "Sperm"){
-      repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Sperm.rdata?raw=True")
+      repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Sperm.rdata?raw=True")
       methPara <- Sperm
     } else 
       if(tissueType == "Lymphoma"){
-        repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Lymphoma.rdata?raw=True")
+        repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Lymphoma.rdata?raw=True")
         methPara <- Lymphoma
       } else 
         if(tissueType == "Placenta"){
-          repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Placenta.rdata?raw=True")
+          repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Placenta.rdata?raw=True")
           methPara <- Placenta
         } else 
           if(tissueType == "Liver"){
-            repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Liver.rdata?raw=True")
+            repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Liver.rdata?raw=True")
             methPara <- Liver
           } else 
             if(tissueType == "Colon"){
-              repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Colon.rdata?raw=True")
+              repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Colon.rdata?raw=True")
               methPara <- Colon
             } else 
               if(tissueType == "Blood adult"){
-                repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Blood_adult.rdata?raw=True")
+                repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Blood_adult.rdata?raw=True")
                 methPara <- Blood_adult
               } else
                 if(tissueType == "Blood 5 year olds"){
-                  repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Blood_5yrOlds.rdata?raw=True")
+                  repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Blood_5yrOlds.rdata?raw=True")
                   methPara <- Blood_5yrOlds
                 } else 
                   if(tissueType == "Blood newborns"){
-                    repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/BloodNewborns.rdata?raw=True")
+                    repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/BloodNewborns.rdata?raw=True")
                     methPara <- BloodNewborns
                   } else
                     if(tissueType == "Cord-blood (whole blood)"){
-                      repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/CordBlood_wholeBlood.rdata?raw=True")
+                      repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/CordBlood_wholeBlood.rdata?raw=True")
                       methPara <- CordBlood_wholeBlood
                     } else
                       if(tissueType == "Cord-blood (PBMC)"){
-                        repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/CordBlood_PBMC.rdata?raw=True")
+                        repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/CordBlood_PBMC.rdata?raw=True")
                         methPara <- CordBlood_PBMC
                       } else
                         if(tissueType == "Adult (PBMC)"){
-                          repmis::source_data("https://github.com/stefangraw/pwrEWAS/blob/master/data/Adult_PBMC.rdata?raw=True")
+                          repmis::source_data("https://github.com/stefangraw/pwrEWAS_data/blob/master/data/Adult_PBMC.rdata?raw=True")
                           methPara <- Adult_PBMC
                         } else
                           stop("Tissue type not found")