1 |
X |
|
rf |
|
cutoff |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (X, rf, cutoff = 0.2)
{
info = X[, colnames(X) %in% c("chr", "pos", "par_allele",
"mut_allele")]
X = X[, !colnames(X) %in% c("chr", "pos", "par_allele", "mut_allele")]
info$prd = predict(rf, X, type = "prob")[, 1]
info = info[info$prd >= cutoff, ]
return(info)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.