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

posted by d_labes  – Berlin, Germany, 2015-07-02 11:09 (3998 d 12:29 ago) – Posting: # 15014
Views: 35,948

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
23,653 posts in 4,991 threads, 1,571 registered users;
244 visitors (0 registered, 244 guests [including 156 identified bots]).
Forum time: 23:39 CEST (Europe/Vienna)

Outside his own ever-narrowing field of specialization,
a scientist is a layman.
What members of an academy of science have in common
is a certain form of semiparasitic living.    Erwin Chargaff

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