ze = 78 pagesize = 40 obs = max nodate;
data item1 item2 item3 item4 item5 item6;
set allcity;
array x{112:591} x112-x591;
if x1 < 2000 then city = 1;
else if x1 < 3000 then city = 2;
else if x1 < 4000 then city = 3;
else if x1 < 5000 then city = 4;
else if x1 < 6000 then city = 5;
if x6 < 32874 then year2 = 89;
else if x6 < 33239 then year2 = 90;
else if x6 < 33604 then year2 = 91;
else if x6 < 33970 then year2 = 92;
else if x6 < 34335 then year2 = 93;
else if x6 < 34670 then year2 = 94;
n=111;
do activity = 1 to 16 by 1;
do item = 1 to 6 by 1;
temp=.;
do year = 94 to 90 by -1;
n+1;
score=x{n};
if (1 <= item <= 2 or item = 4)
and score > 5 then score = .;
if item = 3 and score > 4 then score = .;
if year < year2 and year^=90
then do;
if score^=. and temp=.
then temp=score;
score=.;
end;
if year=90 and temp^=. then score=temp;
keep city activity item year score;
if item = 1 then output item1;
else if item = 2 then output item2;
else if item = 3 then output item3;
else if item = 4 then output item4;
else if item = 5 then output item5;
else output item6;
end;
end;
end;
run;
proc tabulate data = item1;
class city activity year;
var score;
format city frm_city.;
format activity frm_act.;
table activity, city, year*score*mean*f=7.2;
run;
proc tabulate data = item1;
class city activity year score;
format city frm_city.;
format activity frm_act.;
table activity, city*(year ALL), score*(n*f=4. pctn*f=6.2);
run;
proc tabulate data = item2;
class city activity year;
var score;
format city frm_city.;
format activity frm_act.;
table activity, city, year*score*mean*f=7.2;
run;
proc tabulate data = item2;
class city activity year score;
format city frm_city.;
format activity frm_act.;
table activity, city*(year ALL), score*(n*f=4. pctn*f=6.2);
run;
proc tabulate data = item5;
class city activity year;
var score;
format city frm_city.;
format activity frm_act.;
table activity, city, year*score*mean*f=7.2;
run;
proc tabulate data = item6;
class city activity year;
var score;
format city frm_city.;
format activity frm_act.;
table activity, city, year*score*mean*f=7.2;
run;
proc tabulate data = item3;
class city activity year score;
format city frm_city.;
format activity frm_act.;
format item frm_item.;
table activity, city*(year ALL), score*(n*f=4. pctn*f=6.2);
run;
proc tabulate data = item4;
class city activity year score;
format city frm_city.;
format activity frm_act.;
format item frm_item.;
table activity, city*(year ALL), score*(n*f=4. pctn*f=6.2);
run;
data item5; set item5;
score5=score;
drop score;
run;
data item6; set item6;
score6=score;
drop score;
run;
data ttime; merge item5 item6;
score=score5*score6;
file 'd:\user_id\skier.84\survey\t_time.dat';
put (city activity year score) (8.);
run;
proc tabulate data = ttime;
class city activity year;
var score;
format city frm_city.;
format activity frm_act.;
format item frm_item.;
table activity, city, year*score*mean*f=7.2;
run;
附錄 C: 開發面積 再配分에 關한 基礎資料 및 分析結果