mrks.chi.filt <- filter_segregation(input.obj = tetra.solcap,
chisq.pval.thres = 0.05/tetra.solcap$n.mrk,
inter = TRUE)
seq.init <- make_seq_mappoly(mrks.chi.filt)
Run the code above in your browser using DataLab