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

posted by Aceto81 – Belgium, 2008-10-01 16:18 (5657 d 06:56 ago) – Posting: # 2460
Views: 55,371

❝ 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
22,957 posts in 4,819 threads, 1,636 registered users;
86 visitors (0 registered, 86 guests [including 11 identified bots]).
Forum time: 22:14 CET (Europe/Vienna)

Nothing shows a lack of mathematical education more
than an overly precise calculation.    Carl Friedrich Gauß

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