以下是我用来重新编码数据的代码:
results$Taxis<-as.factor(results$Taxis)
results$ShiftType<-as.factor(results$ShiftType)
results$Sharing<-as.factor(results$Sharing)
results$Mode<-as.factor(results$Mode)
plot(results)
anova<-aov(Service.Level~Taxis+ShiftType+Sharing+Mode,data = results)
summary(anova)
results.coded<-coded.data(results,x1~(Taxis-4500)/3000,x3~(Sharing-50)/50,x4~(Mode-0.5)/0.5)
results.coded
它给我序列号作为代码(1,2,3,4,5..)如果我更改公式,这些代码不会改变。它们保持原样。看起来像一些默认编码。请在这件事上给予我帮助!