作者duncan30236 (林峰)
看板SOCI_YAGYU
標題[路人] 借放
時間Thu Dec 9 17:22:20 2010
data data1;set data;keep c6_a c6_b e1;
label c6_a = "請問您上題的總費用中包含「雜費(在臺)」大約多少元？"c6_b = "幣制
"
e1="國籍";run;
proc format;
value e1lb 1="亞洲地區" 2="美洲地區" 3="歐洲地區" 4="其他地區";
data data1;SET data1;
if e1<=7 and 16 then e1lb=1;
if 8 <=e1<=9 then e1lb=2;
if 10<=e1<=13 then e1lb=3;
if 14<=e1<=15 then e1lb=4;
format e1 e1lb.;
proc print data=data1;
var e1 e1lb;run;
data data1;set data1;
if c6_b=1 then NT=0.36*c6_a;
if c6_b=2 then NT=4.6*c6_a;
if c6_b=3 then NT=3.9*c6_a;
if c6_b=4 then NT=23.2*c6_a;
if c6_b=5 then NT=0.03*c6_a;
if c6_b=6 then NT=9.6*c6_a;
if c6_b=7 then NT=1.04*c6_a;
if c6_b=8 then NT=30.2*c6_a;
if c6_b=9 then NT=29.9*c6_a;
if c6_b=10 then NT=48*c6_a;
if c6_b=11 then NT=40.3*c6_a;
if c6_b=14 then NT=29.8*c6_a;
if c6_b=16 then NT=1*c6_a;
if c6_b=17 then NT=0.003*c6_a;
if c6_b=18 then NT=0.69*c6_a;
proc print data=data1;run;
proc glm data=data1;class e1lb;model NT=e1lb;
contrast '1v.s.2' e1lb 1-1 0 0 ;
contrast '1v.s.3' e1lb 1 0 -1 0 ;
contrast '1v.s.4' e1lb 1 0 0 -1;
contrast '2v.s.3' e1lb 0 1 -1 0 ;
contrast '2v.s.4' e1lb 0 1 0 -1;
contrast '3v.s.4' e1lb 0 0 1 -1;run;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.119.207.136
※ 編輯: duncan30236 來自: 140.119.156.38 (12/13 21:53)