Tremor-Untersuchunge.. - Jochen Fahrenberg

- 100 -
if ph_nr = 3 then condi="Halte-Tremor ";
if ph_nr = 4 then condi="Halte-Tremor, Ablnkg";
if ph_nr = 5 then condi="Zieltremor, linke H.";
if ph_nr = 6 then condi="Zieltremor, rechte H";
if ph_nr = 7 then condi="Sitzen ";
if ph_nr = 8 then condi="Sitzen, rueckg. 45 G";
if ph_nr = 9 then condi="Sitzen, vorgeb. 20 G";
if ph_nr = 10 then condi="Stehen ";
if ph_nr = 11 then condi="Liegen ";
if ph_nr = 12 then condi="Liegen, links ";
if ph_nr = 13 then condi="Liegen, rechts ";
if ph_nr = 14 then condi="Schlafstellung ";
if ph_nr = 15 then condi="Ruhestellung ";
if ph_nr = 16 then condi="Gehen ";
if ph_nr = 17 then condi="M o n i t o r i n g ";
run;
/* Grundstatistiken */
title "L A B O R";
proc means data=zwifi;
where ph_nr le 16;
run;
title "P O S I T I O N";
proc print data=zwifi label double noobs;
/* where ph_nr ge 7 and ph_nr le 16; */
where ph_nr le 16;
format _numeric_ 10.2 ph_nr 5.0;
var ph_nr condi st_v__dc st_q__dc st_h__dc ob_r__dc
ha_r__dc ha_l__dc;
run;
title "M O T I O N";
proc print data=zwifi label double noobs;
/* where ph_nr ge 7 and ph_nr le 16; */
where ph_nr le 16;
format _numeric_ 10.3 ph_nr 5.0;
var ph_nr condi st_v__ac st_q__ac st_h__ac ob_r__ac
ha_r__ac ha_l__ac;
run;
/*
title "G E S A M T";
proc print data=zwifi label double noobs;
/* where ph_nr ge 7 and ph_nr le 16; * /
where ph_nr le 16;
format _numeric_ 10.2 ph_nr 5.0;
var ph_nr condi st_v_g st_q_g st_h_g ob_r_g
ha_r_g ha_l_g ;
run;
*/
title "S C H R I T T - F R E Q U E N Z E N";
proc print data=zwifi label double noobs;
/* where ph_nr ge 7 and ph_nr le 16; */
where ph_nr le 16;
format _numeric_ 10.2 ph_nr 5.0;
var ph_nr condi st_vf_fr st_vf_am st_hf_fr st_hf_am;
run;
title "H E R Z - F R E Q U E N Z E N";
proc print data=zwifi label double noobs;
/* where ph_nr ge 7 and ph_nr le 16; */
where ph_nr le 16;
format _numeric_ 10.2 ph_nr 5.0;