Skip to content

GitLab

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

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
    Showing with 3 additions and 2 deletions
    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