R code quest [Regulatives / Guidelines]

posted by d_labes  – Berlin, Germany, 2010-02-25 17:34 (5969 d 14:18 ago) – Posting: # 4819
Views: 6,772

Dear ElMaestro,

❝ Lund <- function (Linmo, alpha, Verbose)

❝ {

❝ ...

❝ q=qr(model.matrix(Linmo))$rank

❝ n=length(residuals(Linmo))

❝ ...

why did you use this here? :ponder:
Is there any hidden secret behind?

I would do:
   summary(Linmo)$df[2]  # error degrees of freedom

   ...
   t <- qt((1-alpha/n/2),df-1)   
   isr2 <- df*(t^2)/(t^2+df-1) 
   ... 

Regards,

Detlew

Complete thread:

UA Flag
Activity
 Admin contact
23,656 posts in 4,994 threads, 1,571 registered users;
200 visitors (0 registered, 200 guests [including 16 identified bots]).
Forum time: 08:52 CEST (Europe/Vienna)

Try to learn something about everything
and everything about something.    Thomas Henry Huxley

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