2020-04-13-Homework-3

讀取檔案

library(MASS)
dta <- MASS::nlschools[,-c(1,5,6)]
unique(dta$GS)

##  [1] 29 19 25 31 35 28 21 32 22 14 16 11 18 15 27 26 30 23 17 24 34 33 20 39 36
## [26] 10 37 13

挑選五個人數超過三十的班級，合併

dta.1 <- subset(dta, dta$class == 1280)
dta.2 <- subset(dta, dta$class == 3880)
dta.3 <- subset(dta, dta$class == 5780)
dta.4 <- subset(dta, dta$class == 10780)
dta.5 <- subset(dta, dta$class == 11580)
dat <- rbind(dta.5,rbind(dta.4,rbind(dta.3,rbind(dta.1, dta.2))))

很奇怪，合併之後無法切割，以下指令跑不出來

dat.2 <- split(dat, dat&class)

##　繪圖

hist(x=dat$IQ, main="IQ", xlab="IQ", ylab="Frequency")