Paul.Family<-c(name,wife,no.kids,kids.age)
name
wife
no.kids
kids.age
#第三題
#(1)
TaipeP<-c(24.8,29.6,-4.8,-16.2)
#(2)
TaipeJ<-c(29729,23599,6130,26)
#(3)
TajonP<-c(14.6,14.5,0.1,0.7)
#(4)
TajonJ<-c(57435,16811,40624,241.7)
#(5)
ChinaP<-c(16.7,18.3,-1.6,-8.7)
#(6)
ChinaJ<-c(2044,304,1740,572.4)
#(7)
date<-c("4/13","4/14","4/15","4/16","4/17","4/18")
#(8)
demin<-c("台北二","台中市","高雄市")
#(9)
JG<-c(TaipeP,TajonP,ChinaP)
matrix(JG,nrow=3,ncol=4,byrow=T)
JE<-c(TaipeJ,TajonJ,ChinaJ)
matrix(JE,nrow=3,ncol=4,byrow=T)
series.name<-c("台北二","台中市","高雄市")
Merger<-c(date,demin)
matrix(Merger,nrow=3,ncol=6,byrow=T)
