DetSlope.RdYou choose a slope for terminal half-life.
DetSlope(x, y, SubTitle="", sel.1=0, sel.2=0)Sometimes BestSlope cannot find terminal slope satisfactorily. Then you can use this function to choose manually. It returns the same format result with BestSlope with an attribute indicating used points.
R-squared
adjusted R-squared
number of points used for the slope
negative of the slope, lambda_z
intercept of the regression line
correlation of log(y) and x
earliest x for lambda_z
last x for lambda_z
predicted y value at the last point, predicted concentration for the last time point
DetSlope(Theoph[Theoph$Subject==1, "Time"], Theoph[Theoph$Subject==1, "conc"])
#> R2 R2ADJ LAMZNPT LAMZ b0 CORRXY LAMZLL LAMZUL CLSTP
#> NA NA 0 NA NA NA NA NA NA
#> attr(,"UsedPoints")
#> integer(0)
DetSlope(Indometh[Indometh$Subject==2, "time"], Indometh[Indometh$Subject==2, "conc"])
#> R2 R2ADJ LAMZNPT LAMZ b0 CORRXY LAMZLL LAMZUL CLSTP
#> NA NA 0 NA NA NA NA NA NA
#> attr(,"UsedPoints")
#> integer(0)