Displaying 1 result from an estimated 1 matches for "fev6".
Did you mean:
ev6
2010 Dec 22
1
Seeking feedback on my first attempt at R programming
...104 P 2.24 3.01 105 P 2.25 2.47
107 P 1.65 1.99 111 P 1.95 <NA> 112 P 3.05 3.26
114 P 2.75 2.55 115 P 1.60 2.20 117 P 2.77 2.56
119 P 2.06 2.90 122 P 1.71 <NA> 123 P 3.54 2.92
")
fev <- data.frame(scan(connection,
list(patno = 0, trtgrp = "", fev0 = 0, fev6 = 0), na.strings="<NA>"))
fev <- within(fev,trtgrp <- factor(trtgrp, labels = c("ABC-123","Placebo")))
fev <- within(fev,chg <- fev6 - fev0)
summaryfn <- function(x)
data.frame(n=sum(complete.cases(x)),mean=mean(x),std.dev=sd(x),
t.value=mean(...