data-raw/DATASET.R

In parhammarstrom/multivariateAnalysisVT2021: Package for excercises in Multivariate Analysis.

## code to prepare `DATASET` dataset goes here

t1.2<-as.data.frame(read.delim("./data-raw/T1-2.dat", header = FALSE, sep=""))
colnames(t1.2)<-c("Density", "MachineDirection", "CrossDirection")
saveRDS(t1.2, file = "./data-raw/t1.2.RDS") 
usethis::use_data(t1.2, overwrite = TRUE)

t1.3<-as.data.frame(read.delim("./data-raw/T1-3.dat", header = FALSE, sep=""))
colnames(t1.3)<-c("Mass", "SVL", "HLS")
saveRDS(t1.3, file = "./data-raw/t1.3.RDS") 
usethis::use_data(t1.3, overwrite = TRUE)

t1.5<-as.data.frame(read.delim("./data-raw/T1-5.dat", header = FALSE, sep=""))
colnames(t1.5)<-c("Wind", "SolarRadiation", "CO", "NO", "NO_2", "O_3", "HC")
saveRDS(t1.5, file = "./data-raw/t1.5.RDS") 
usethis::use_data(t1.5, overwrite = TRUE)

t1.6<-as.data.frame(read.delim("./data-raw/T1-6.dat", header = FALSE, sep=""))
colnames(t1.6)<-c("Age", "(S1L+S1R)", "|S1L-S1R|", "(S2L+S2R)", "|S2L-S2R|", "MultipleSclerosisGroup")
saveRDS(t1.6, file = "./data-raw/t1.6.RDS") 
usethis::use_data(t1.6, overwrite = TRUE)

t1.7<-as.data.frame(read.delim("./data-raw/T1-7.dat", header = FALSE, sep=""))
colnames(t1.7)<-c("Symptoms", "Activity", "Sleep", "Eat", "Appetite", "SkinReaction")
saveRDS(t1.7, file = "./data-raw/t1.7.RDS") 
usethis::use_data(t1.7, overwrite = TRUE)

t1.8<-as.data.frame(read.delim("./data-raw/T1-8.dat", header = FALSE, sep=""))
colnames(t1.8)<-c("DominantRadius", "Radius", "DominantHumerus", "Humerus", "DominantUlna", "Ulna")
saveRDS(t1.8, file = "./data-raw/t1.8.RDS") 
usethis::use_data(t1.8, overwrite = TRUE)

t1.9<-as.data.frame(read.delim("./data-raw/T1-9.dat", header = FALSE, sep=""))
colnames(t1.9)<-c("Country", "100m(s)", "200m(s)", "400m(s)", "800m(min)", "1500m(min)", "3000m(min)", "Marathon(min)")
saveRDS(t1.9, file = "./data-raw/t1.9.RDS") 
usethis::use_data(t1.9, overwrite = TRUE)

t1.10<-as.data.frame(read.delim("./data-raw/T1-10.dat", header = FALSE, sep=""))
colnames(t1.10)<-c("Breed", "SalePr", "YrHgt", "FtFrBody", "PrctFFB", "Frame", "BkFat", "SaleHt", "SaleWt")
saveRDS(t1.10, file = "./data-raw/t1.10.RDS") 
usethis::use_data(t1.10, overwrite = TRUE)

t4.1<-as.data.frame(read.delim("./data-raw/T4-1.dat", header = FALSE, sep=""))
colnames(t4.1)<-c("Radiation")
saveRDS(t4.1, file = "./data-raw/t4.1.RDS") 
usethis::use_data(t4.1, overwrite = TRUE)

t4.3<-as.data.frame(read.delim("./data-raw/T4-3.dat", header = FALSE, sep=""))
colnames(t4.3)<-c("x1", "x2", "x3", "x4", "d^2")
saveRDS(t4.3, file = "./data-raw/t4.3.RDS") 
usethis::use_data(t4.3, overwrite = TRUE)

t5.1<-as.data.frame(read.delim("./data-raw/T5-1.dat", header = FALSE, sep=""))
colnames(t5.1)<-c("SweatRate", "Sodium", "Potassium")
saveRDS(t5.1, file = "./data-raw/t5.1.RDS") 
usethis::use_data(t5.1, overwrite = TRUE)

t5.2<-as.data.frame(read.delim("./data-raw/T5-2.dat", header = FALSE, sep=""))
colnames(t5.2)<-c("SocialScienceAndHistory", "Verbal", "Science")
saveRDS(t5.2, file = "./data-raw/t5.2.RDS") 
usethis::use_data(t5.2, overwrite = TRUE)

t5.11<-as.data.frame(read.delim("./data-raw/T5-11.dat", header = FALSE, sep=""))
colnames(t5.11)<-c("Stiffness", "BendingStrength")
saveRDS(t5.11, file = "./data-raw/t5.11.RDS") 
usethis::use_data(t5.11, overwrite = TRUE)

t5.12<-as.data.frame(read.delim("./data-raw/T5-12.dat", header = FALSE, sep=""))
colnames(t5.12)<-c("TailLength", "WingLength")
saveRDS(t5.12, file = "./data-raw/t5.12.RDS") 
usethis::use_data(t5.12, overwrite = TRUE)

#20210302: added three more datasets:

t1.4<-as.data.frame(read.delim("./data-raw/T1-4.dat", header = FALSE, sep=""))
colnames(t1.4)<-c("Wt2", "Wt3", "Wt4", "Wt5", "Lngth2", "Lngth3", "Lngth4", "Lngth5")
saveRDS(t1.4, file = "./data-raw/t1.4.RDS") 
usethis::use_data(t1.4, overwrite = TRUE)

t6.10<-as.data.frame(read.delim("./data-raw/T6-10.dat", header = FALSE, sep=""))
colnames(t6.10)<-c("FuelCost", "RepairCost", "CapitalCost", "FuelType")
saveRDS(t6.10, file = "./data-raw/t6.10.RDS") 
usethis::use_data(t6.10, overwrite = TRUE)

t6.13<-as.data.frame(read.delim("./data-raw/T6-13.dat", header = FALSE, sep=""))
colnames(t6.13)<-c("MaxBreath", "BasHeight", "BasLength", "NasHeight", "TimePeriod")
saveRDS(t6.13, file = "./data-raw/t6.13.RDS") 
usethis::use_data(t6.13, overwrite = TRUE)