CVs (R, T) from pooled CV [RSABE / ABEL]

posted by d_labes  – Berlin, Germany, 2015-07-02 11:09 (3211 d 17:18 ago) – Posting: # 15014
Views: 28,102

Dear Helmut!

library(PowerTOST)

CV <- 0.07

sep2s <- function(CV, ratio=1) { # split CV to s-ratio

  sp  <- CV2mse(CV) # pooled s²

  # (1) (s²T + s²R)/2 = s²

  # (2) sT/sR = ratio

  # solve (1+2) for sT, sR

  swt <- sqrt(2)*sqrt(sp)*ratio/sqrt(ratio^2+1)

  swr <- sqrt(2)*sqrt(sp)/sqrt(ratio^2+1)

  r   <- se2CV(c(swt, swr))

  return(r)

} ...


Sometimes it would be helpful to RTFM :-D.
Try
library(PowerTOST)
?CVp2CV
.

Note that the ratio is here the ratio of variances.

Regards,

Detlew

Complete thread:

UA Flag
Activity
 Admin contact
22,984 posts in 4,822 threads, 1,654 registered users;
58 visitors (0 registered, 58 guests [including 7 identified bots]).
Forum time: 04:27 CEST (Europe/Vienna)

Complex, statistically improbable things are by their nature
more difficult to explain than
simple, statistically probable things.    Richard Dawkins

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