cm_code.transform(x2long.obj, overlap.code.list = NULL, combine.code.list = NULL, exclude.code.list = NULL, rm.var = NULL)
cm_range2long
,
cm_time2long
or cm_df2long
.Returns a dataframe with overlapping, combined occurrences, and/or exclusion of supplied overlapping codes added.
Transform co-occurrences and/or combinations of codes into a new code(s).
The code column must be named "code"
and your start and end
columns must be named "start"
and "end"
.
## <strong>Not run</strong>: # foo <- list( # AA = qcv(terms="1:10"), # BB = qcv(terms="1:2, 3:10, 19"), # CC = qcv(terms="1:3, 5:6") # ) # # foo2 <- list( # AA = qcv(terms="4:8"), # BB = qcv(terms="1:4, 10:12"), # CC = qcv(terms="1, 11, 15:20"), # DD = qcv(terms="") # ) # # bar1 <- list( # transcript_time_span = qcv(00:00 - 1:12:00), # A = qcv(terms = "0.00:3.00, 5.01, 6.02:7.00, 9.00"), # B = qcv(terms = "2.40, 3.01:3.02, 5.01, 6.02:7.00, 9.00, # 1.12.00:1.19.01"), # C = qcv(terms = "2.40:3.00, 5.01, 6.02:7.00, 9.00, 16.25:17.01") # ) # # (x <- cm_range2long(foo)) # (z <- cm_range2long(foo, foo2, v.name="time")) # (dat <- cm_time2long(bar1)) # # cm_code.transform(x, # overlap.code.list = list(ABC=qcv(AA, BB, CC)), # combine.code.list = list(oABC=qcv(AA, BB, CC)), # exclude.code.list = list(ABnoC=qcv(AA, BB, CC)) # ) # # cm_code.transform(z, # overlap.code.list = list(ABC=qcv(AA, BB, CC)), # combine.code.list = list(oABC=qcv(AA, BB, CC)), # exclude.code.list = list(ABnoC=qcv(AA, BB, CC)), "time" # ) # # cm_code.transform(dat, # overlap.code.list = list(ABC=qcv(A, B, C)), # combine.code.list = list(oABC=qcv(A, B, C)), # exclude.code.list = list(ABnoC=qcv(A, B, C)) # ) # ## <strong>End(Not run)</strong>
cm_range2long
,
cm_time2long
,
cm_df2long
,
cm_code.blank
,
cm_code.combine
,
cm_code.exclude
,
cm_code.overlap