De forma rápida e simples, além de que disponibilizo também os comandos que elaborei: rd <- read.csv(file.name <- choose.files(), sep=";", header=TRUE) rd require (drc) rd.m1 <- drm(conc ~ dead, data = rd, fct = LL.4(names = c("Slope", "Lower Limit", "Upper Limit", "LC50"))) summary(rd.m1) drm(formula = dead ~ conc, data = rd, fct = LL.2()) mod <- drm(dead ~ conc, data = rd, fct = LL.2()) summary (mod) ED(mod, 50, interval = "delta") plot(mod, type="all", ylab = "Death rate", xlab = "LC50") Galera só um detalhe, aqui na descrição o Youtube não permite os símbolos menor e maior que. Então prestem atenção junto ao vídeo nos comandos para os cálculos.
https://www.youtube.com/watch?v=jj8mg_7Pt_4&t=77s
Nenhum comentário:
Postar um comentário