讀取檔案,刪除第31個變項
library(data.table)
w1 <- fread("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1/1w.dat")[,-31]
w2 <- fread("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1/2w.dat")[,-31]
w3 <- fread("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1/3w.dat")[,-31]
w4 <- fread("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1/4w.dat")[,-31]