Publications by 張修語
0503 note
data("HolzingerSwineford1939") dta <- HolzingerSwineford1939 head(dta) ## id sex ageyr agemo school grade x1 x2 x3 x4 x5 x6 ## 1 1 1 13 1 Pasteur 7 3.333333 7.75 0.375 2.333333 5.75 1.2857143 ## 2 2 2 13 7 Pasteur 7 5.333333 5.25 2.125 1.666667 3.00 1.2857143 ## 3 3 2 13 1 Pas...
648 sym R (7473 sym/41 pcs) 5 img 4 tbl
0517 HW
data("fortune") head(fortune) ## wealth age region ## 1 37.0 50 M ## 2 24.0 88 U ## 3 14.0 64 A ## 4 13.0 63 U ## 5 13.0 66 U ## 6 11.7 72 E str(fortune) ## 'data.frame': 232 obs. of 3 variables: ## $ wealth: num 37 24 14 13 13 11.7 10 8.2 8.1 7.2 ... ## $ age : int 50 88 64 63 6...
157 sym R (2538 sym/18 pcs) 5 img
0419 HW
#檢視資料 dta <- read.csv("mydata.csv", h = T) head(dta) ## date phone ipad workday class class.workshop.hour free.hour ## 1 330 6.2 1.7 Y Y 5 10 ## 2 331 2.7 4.6 Y Y 6 9 ## 3 401 5.0 0.0 Y N 0 12 ## 4 402 7.8 0.0 ...
672 sym R (2632 sym/16 pcs) 3 img
0412HW
DATE <- c("401","402", "403", "404", "405", "406", "407", "408", "409", "410") Domestic <- c(104, 160, 183, 133, 216, 281, 382, 384, 442,431) Oversea <- c(132, 244, 97, 142, 65, 78, 149, 123, 136, 144) visitor <- c(6082, 2260, 1839, 842, 1463, 2088, 2135, 2560, 1897, 2516) cvdta <- data.frame(DATE, Domestic, Oversea, visitor) 本土案例跟海�...
381 sym R (2113 sym/17 pcs) 4 img