# \donttest{
dat <- filter_segregation(tetra.solcap, inter = FALSE)
seq_dat <- make_seq_mappoly(dat)
seq_chr <- make_seq_mappoly(seq_dat, arg = seq_dat$seq.mrk.names[which(seq_dat$chrom=="1")])
tpt <- est_pairwise_rf(seq_chr)
seq.filt <- rf_snp_filter(tpt, probs = c(0.05, 0.95))
mat <- rf_list_to_matrix(tpt)
mat2 <- make_mat_mappoly(mat, seq.filt)
seq_test_mds <- mds_mappoly(mat2)
seq_mds <- make_seq_mappoly(seq_test_mds)
edit_seq <- edit_order(input.seq = seq_mds)
# }
Run the code above in your browser using DataLab