[情報] 今天(星期四)的心統考題

[mirabelity (今年要加油!!)]

嗯 我幫大家從椰林找來了....

作者  smartliu (我是可愛的小芋頭)                看板  psycho
標題  心統實習星期四的考題解答
時間  Thu Jan  2 13:21:52 2003


options nodate ;
proc format ;
     value $ place 'N' = ' Taipei'
                       'M' = 'Taichung'
                                   'S' = 'Kaohsiung' ;
data rater1 ;
     input place $ sale1 sale2 sale3 service goods ;
     rater = 'A' ;    * to add the variable "investigator" ;
     total = sale1 + sale2 + sale3 ;    *加入總銷售額的變項;
format place $ place. ;    *使報表易讀的格式;
cards ;
N 1500 440 750 8 10
M 985 350 220 4 5
S 2400 780 690 9 7
;
proc sort ;
     by place rater ;
proc univariate ;
     var total ;

data rater2 ;
     input place $ park $ discount ;
         rater = 'B' ;    * to add the variable "investigator" ;
         format place $ place. ;
cards;
S Y 0.25
M Y 0.15
N N 0.05
;
proc sort ;
     by place rater ;

data all1 ;
     merge rater1 rater2 ;
         by place ;    * for (1) to merge two datasets ;
         proc chart ;
         pie place / sumvar = sale1 ;    * for (3), to plot pie plot ;
         * 一月份銷售額的圓餅圖 ;

data all2  ;
     set rater1 rater2 ;
         by place rater ;    * for (2) to add the variable "investigator" ;

data new ;    *製造一個新變項sale ;
     set rater1 ;
         month = 1 ;
         sale = sale1 ;
         output ;
         month = 2 ;
         sale = sale2 ;
         output ;
         month = 3 ;
         sale = sale3 ;
         output ;
         drop sale1 sale2 sale3 ;
proc sort ;
     by place ;

proc univariate ;    *sale這個變項的描述性統計;
     var sale ;

proc univariate ;
         sale = sale2 ;
         output ;
         month = 3 ;
         sale = sale3 ;
         output ;
         drop sale1 sale2 sale3 ;
proc sort ;
     by place ;

proc univariate ;    *sale這個變項的描述性統計;
     var sale ;

proc univariate ;
     var sale ;
         by place ;    *三個分店的sale的描述性統計;
run ;

--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw) 
◆ From: 140.112.169.232