tests/oops.R

 library(rcdd)

 load("oops.RData")

 out <- try(scdd(oops))
 inherits(out, "try-error")

 qux <- d2q(oops)

 out <- try(scdd(qux))
 inherits(out, "try-error")

 foo <- out$output

 dim(oops)
 dim(foo)

 attributes(foo)

 bar <- foo[ , 1]
 all(is.element(bar, 0:1))
 sum(bar == 0)
 sum(bar == 1)
 
 bar <- foo[ , 2]
 all(is.element(bar, 0:1))
 sum(bar == 0)
 sum(bar == 1)
 

Try the rcdd package in your browser

Any scripts or data that you put into this service are public.

rcdd documentation built on May 29, 2024, 2:21 a.m.