Please help me figure out how to fit it correctly.
IndependentVariableA <- data.frame(Mydata[c("Item1", "Item2" , "Item3" , "Item4")])
IndependentVariableB <- data.frame(Mydata[c("Item5" , "Item6" , "Item7")])
IndependentVariableC <- data.frame(Mydata[c("Item8" , "Item9" , "Item10")])
IntermediateVariable <- data.frame(Mydata[c("Item11" , "Item12" , "Item13" , "Item14")])
DependentVariableA <- data.frame(Mydata[c("Item15" , "Item16")])
DependentVariableB <- data.frame(Mydata[c("Item17" , "Item18", "Item19")])
ModeratingVariable <- data.frame(Mydata[c("Item20" , "Item21" , "Item22" , "Item23")])
# Linear Regression
regressionmodel1 <- lm(IntermediateVariable ~
IndependentVariableA + IndependentVariableB + IndependentVariableC, data = Mydata)
regressionmodel2 <- lm(DependentVariableA ~
IntermediateVariable +
IndependentVariableA + IndependentVariableB + IndependentVariableC +
ModeratingVariable, data = Mydata)
regressionmodel3 <- lm(
DependentVariableB ~
IntermediateVariable + IndependentVariableA + IndependentVariableB + IndependentVariableC + ModeratingVariable, data = Mydata)
# VIF
vif(regressionmodel1)
vif(regressionmodel2)