ICD10 mapping data update

.Rhistory

@@ -1,9 +1,3 @@
-ctrlN <- sum(grepl("non",groupedDataWide$Group))
-caseDataLong <- groupedDataLong[!grepl("non|[*]",groupedDataLong$Group),][,Percentage := round((N/caseN)*100,2)]
-ctrlDataLong <- groupedDataLong[grepl("non",groupedDataLong$Group),][,Percentage := round((N/ctrlN)*100,2)]
-for(cat in 1:nrow(caseDataLong)){
-if(caseDataLong$Percentage[cat] >= limitFreq | ctrlDataLong$Percentage[cat] >= limitFreq){
-Table <- matrix(c(caseDataLong$N[cat], ctrlDataLong$N[cat],
 caseN - caseDataLong$N[cat], ctrlN - ctrlDataLong$N[cat]), 2)
 if(sum(Table < 5) < 1 && sum((chisq.test(Table, simulate.p.value = TRUE)$expected) < 5) < 1){
 Test_pvalue[length(Test_pvalue)+1] <- chisq.test(Table, correct = FALSE)$p.value < pvalue
@@ -510,3 +504,9 @@ library(roxygen2)
 roxygenise()
 library(pkgdown)
 build_site()
+load("~/Documents/GitHub/dxpr/data/ICD10DxwithTwoFormat.rda")
+View(ICD10DxwithTwoFormat)
+ICD10DxwithTwoFormat<-unique(ICD10DxwithTwoFormat)
+save(ICD10DxwithTwoFormat,file="ICD10DxwithTwoFormat.rda")
+load("~/Documents/GitHub/dxpr/data/ICD10DxwithTwoFormat.rda")
+View(ICD10DxwithTwoFormat)

.gitignore

@@ -2,3 +2,4 @@ inst/doc
 doc
 Meta
 .Rproj.user
+.Rhistory

dxpr.Rproj

@@ -1,20 +1,20 @@
-Version: 1.0
-
-RestoreWorkspace: Default
-SaveWorkspace: Default
-AlwaysSaveHistory: Default
-
-EnableCodeIndexing: Yes
-UseSpacesForTab: Yes
-NumSpacesForTab: 2
-Encoding: UTF-8
-
-RnwWeave: Sweave
-LaTeX: pdfLaTeX
-
-AutoAppendNewline: Yes
-StripTrailingWhitespace: Yes
-
-BuildType: Package
-PackageUseDevtools: Yes
-PackageInstallArgs: --no-multiarch --with-keep.source
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source