included data dxDat.rda

Author: LiYanStat

R/cmbd.R

@@ -18,8 +18,10 @@
 ##' @keywords manipulation
 ##' @examples
 ##'
-##' data(icd9sample)
-##' output <- cmbd(icd9sample)
+##' data(dxDat)
+##' drg <- dxDat$drg
+##' icd <- dxDat[, 2:ncol(dxDat)]
+##' output <- cmbd(icd, drg=drg)
 ##' @importFrom stringr str_trim
 ##' @export cmbd
 cmbd <- function(icd, drg=NULL, needClean=TRUE, needPrep=TRUE) {

R/data.R

@@ -0,0 +1,20 @@
+##' a data frame of diagnosis code with variates named
+##' \code{drg} and \code{dx1}, \code{dx2}, ..., \code{dx10}, 
+##' where 
+##' \itemize{
+##'     \item \code{drg}: drg code for comorbidity;
+##'     \item \code{dx1-dx10}: icd-9 code for 10 diagnosises.
+##' }
+##' 
+##' @docType data
+##' @name dxDat
+##' @usage data(dxDat)
+##' @format  A data frame with 1000 rows and 11 variables.
+##' @keywords datasets
+##' @references
+##' @source ../data/
+##' @examples
+##' data(dxDat)
+##' drg <- dxDat$drg
+##' icd <- dxDat[, 2:ncol(dxDat)]
+"dxDat"