name<-c("Frank","Bob","Sally", "Susan","Joan", "Bill", "Richard","Jane", "Jill", "John")
Age<- c(34,28,19,28,30,47,24,34,32,64)
BMI<- c(24.2,18.3,15.4,22.7,29.2,32.4,21,40.4,24.8,34.4)
FactorA<- c(-1,-1,-1,-1,-1,1,1,1,1,1)
FactorB<- c(1,-1,1,-1,1,-1,1,-1,1,-1)
dat<-data.frame(name,Age,BMI,FactorA,FactorB)
FactorAB <- FactorA*FactorB
FactorAB
## [1] -1 1 -1 1 -1 -1 1 -1 1 -1
Create a new column Factor C that looks as follows
(-1,-1,1,1,-1,-1,1,1,-1,-1)
dat$FactorC<-c(-1,-1,1,1,-1,-1,1,1,-1,-1)
dat$FactorABC <- dat$FactorA*dat$FactorB*dat$FactorC
dat$FactorA<-as.factor(dat$FactorA)
dat$FactorB<-as.factor(dat$FactorB)
dat$FactorC<-as.factor(dat$FactorC)
dat$FactorAB<-as.factor(dat$FactorAB)
dat$FactorABC<-as.factor(dat$FactorABC)
dat$Smoking<-c("Yes","No","No", "Yes","Yes","No","Yes", "Yes","No","Yes")
dat$Smoking<-as.factor(dat$Smoking)
dat$BMI[dat$BMI == 21]<- NA
dat$LogBMI<- log(BMI)
dat2<-data.frame(dat$LogBMI, dat$FactorA,dat$FactorB, dat$FactorAB)
dat3<-dat2[1:5,]