# NOT RUN {
probs <- polytope(davis)
# }
# NOT RUN {
P <- davis %*% t(davis)
# }
# NOT RUN {
prob.mat <- matrix(probs, nrow = nrow(davis), ncol = ncol(davis))
# }
# NOT RUN {
prob.imat <- sweep(prob.mat, MARGIN = 2, prob.mat[1,], `*`)
# }
# NOT RUN {
mapply(backbone:::rna, kk= as.data.frame(t(P[1,])), pp = as.data.frame(t(prob.imat)))
# }
Run the code above in your browser using DataLab