View source: R/profile_pr_by_locus_and_cluster.R
profile_pr_by_locus_and_cluster | R Documentation |
Compute the profile probability for a new profile that was not used in the original fit.
profile_pr_by_locus_and_cluster(x, fit)
x |
DataFrame. Columns should be one character vector for each locus |
fit |
Output from disclapmix2 |
Numeric.
require(disclapmix)
data(danes)
x <- as.data.frame(sapply(danes[rep(seq_len(nrow(danes)), danes$n), -ncol(danes)], as.character))
dlm2_fit <- disclapmix2(x, number_of_clusters = 3)
new_profile <- structure(list(DYS19 = "14", DYS389I = "13", DYS389II = "29",
DYS390 = "22", DYS391 = "9", DYS392 = "15", DYS393 = "13",
DYS437 = "14", DYS438 = "11", DYS439 = "12"),
row.names = 1L, class = "data.frame")
profile_pr_by_locus_and_cluster(x = new_profile, dlm2_fit)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.