Displaying 1 result from an estimated 1 matches for "neuropsychologia".
2006 Mar 30
1
warning message in hand-made function
...stimate the rarity of the difference observed between patient
and controls and computing confidence intervals
The function was the following:
crawford.t.test <- function(patient, controls, mean.c=0, sd.c=0, n=0,
na.rm=F) {
#from Crawford et al. (1998, Clinical Neuropsychologist ; 2002,
Neuropsychologia)
na<-na.rm
#if no summaries are entered, they are computed
if(missing(n)) {
n <- length(controls)
mean.c <- mean(controls, na.rm=na)
sd.c <- sd(controls, na.rm=na)
}
dl <- n-1 #degrees of freedom of the test
#t.test computation
t.obs <- (patient-mean.c) / (sd.c...