mix-runs-c.r

# DO THE MIXTURE MODEL EXPERIMENTAL RUNS - SET C.

source("methods.r")
source("scans.r")
source("mix.r")
source("plot.r")

rtype <- "c"

meth <- list (UNAM=trans_UNAM,
              ZDNAM=trans_ZDNAM,
              ST=trans_ST,
              UDST=trans_UDST,
              FSS=trans_FSS,
              ZFSS=trans_ZFSS
        )

scan <- list (Random=scan_random,
              `Shuffled Sequential`=scan_shuffled_sequential,
              `Random order`=scan_random_order,
              `Random order x4`=scan_random_order_x4
        )

source("mix-runs-tail.r")