Skip to content

GitLab

Commit 41abec0e authored by Walmes Marques Zeviani's avatar Walmes Marques Zeviani
Browse files

Usa proporção no lugar de contagem.

parent 9a183ebd
Pipeline #8768 failed with stage
in 3 minutes and 36 seconds
Hide whitespace changes
Inline Side-by-side
vignettes/sensitivity_ake_b.Rmd
View file @ 41abec0e
...@@ -291,8 +291,9 @@ get_ec50 <- function(x, y, interval = c(0, max(sen$doz))) { ...@@ -291,8 +291,9 @@ get_ec50 <- function(x, y, interval = c(0, max(sen$doz))) {
ec <- ddply(res, .(ue), .fun = function(x) get_ec50(x$xfit, x$yfit)) ec <- ddply(res, .(ue), .fun = function(x) get_ec50(x$xfit, x$yfit))
str(ec) str(ec)
# Number of not estimated EC50 and AUC. # Proportion of not estimated EC50 and AUC.
cbind(AUC = sum(is.na(ec$auc)), EC50 = sum(is.na(ec$ev50))) cbind(AUC = sum(is.na(ec$auc)),
EC50 = sum(is.na(ec$ev50)))/nrow(ec)
# Scatter plot matrix of estimated values. # Scatter plot matrix of estimated values.
splom(ec[, -1], type = c("p", "smooth"), col.line = 2) splom(ec[, -1], type = c("p", "smooth"), col.line = 2)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment