Mean MUST be a number. Try again!\n"); } if (!($sd_p =~ /[\d\.]/)) { &CgiDie("Clinical S.D. as read from your input = $sd_p\n

S.D. MUST be a positive number. Try again!\n"); } if ($sd_p <= 0) { &CgiDie("Clinical S.D. as read from your input = $sd_p\n

S.D. MUST be more than zero. Try again!\n"); } if ($b_n_c) { if (!($mean_n =~ /[\d\.]/)) { &CgiDie("Normative mean as read from your input = $mean_n\n

Mean MUST be a number. Try again!\n"); } if (!($sd_n =~ /[\d\.]/)) { &CgiDie("Normative S.D. as read from your input = $sd_n\n

S.D. MUST be a positive number. Try again!\n"); } if ($sd_n <= 0) { &CgiDie("Normative S.D. as read from your input = $sd_n\n

S.D. MUST be more than zero. Try again!\n"); } if ($mean_n == $mean_p) { &CgiDie("Clinical mean as read = $mean_p, normative mean as read = $mean_n. They're the same, something wrong here. Try again!\n"); } if ($pos) { if ($mean_n < $mean_p) { &CgiDie("Clinical mean ($mean_p) higher than normative ($mean_n) but you've said measure is positively tuned. That's wrong! Try again!\n"); } } else { if ($mean_n > $mean_p) { &CgiDie("Clinical mean ($mean_p) lower than normative ($mean_n) but you've said measure is negatively tuned. That's wrong! Try again!\n"); } } } if ($b_n_c) { print "Since you have given both clinical and normative distribution parameters "; print "there are three possible criteria.

"; } else { print "Since you have only given clinical distribution parameters"; print "there is only one criterion of clinically significant change,"; print "Jacobson, Follette & Revenstorf's 1984 criterion C

"; } # calculate reliable change criterion A if ($pos) { $crit_a = $mean_p + 2*$sd_p; } else { $crit_a = $mean_p - 2*$sd_p; } print "

\n",$crit_a; if ($pos) { print "Change to this level or above is regarded as clinically significant by criterion A"; } else { print "Change to this level or below it is regarded as clinically significant by criterion A"; } if ($b_n_c) { # calculate reliable change criterion B if ($pos) { $crit_b = $mean_n - 2*$sd_n; } else { $crit_b = $mean_n + 2*$sd_n; } print "

\n",$crit_b; if ($pos) { print "Change to this level or above is regarded as clinically significant by criterion B"; } else { print "Change to this level or below it is regarded as clinically significant by criterion B"; } # calculate reliable change criterion C $crit_c = ($sd_p*$mean_n + $sd_n*$mean_p)/($sd_n + $sd_p); print "

\n",$crit_c; if ($pos) { print "Change to this level or above is regarded as clinically significant by criterion C"; } else { print "Change to this level or below it is regarded as clinically significant by criterion C"; } } print "\n

\n

- \n";
print "
- other statistical info. at this site\n"; print "
- reliable and clinical change info.\n"; print "
- tools and measures page\n"; print "
- grids and PCP pages\n"; print "
- main site intro. page\n