TTT method for lambda_z estimation [🇷 for BE/BA]

posted by Aceto81 – Belgium, 2008-10-01 16:18 (6460 d 02:33 ago) – Posting: # 2460
Views: 88,965

❝ Genius. It works well too. Much, much better algorithm than ours. We learn a lot.


We all learn I think.

A suggestion to implement the number of points used: let the user choose which method to go for (I like d_labes suggestion of the combination), but it shouldn't be to hard to implement all of them by the use of some simple if statements:
method.chosen <- c("WNL","TTT","combination")
if (method.chosen=="WNL") {
 n_lambda <- function.Ace(dat)
 }
if (method.chosen=="TTT") {
 n_lambda <- sum(dat$time>=dat$time[which.max(dat$conc)]*2)
 }
if(method.chosen=="combination" {
 n_lambda <- function.Ace(dat[(dat$time>=dat$time[which.max(dat$conc)]*2),])
 }
summary(lm(log(conc)~time,dat[(nrow(dat)-n_lambda+1):nrow(dat),]))

This can only work when you make a function of my previous code which returns the number of points used (function.Ace)

Ace
Thread locked

Complete thread:

UA Flag
Activity
 Admin contact
23,653 posts in 4,991 threads, 1,570 registered users;
153 visitors (0 registered, 153 guests [including 42 identified bots]).
Forum time: 18:52 CEST (Europe/Vienna)

The epistemological value of probability theory is based on the fact
that chance phenomena, considered collectively and on a grand scale,
create non-random regularity.    Andrey Kolmogorov

The Bioequivalence and Bioavailability Forum is hosted by
BEBAC Ing. Helmut Schütz
HTML5