Boa tarde, rodei o código abaixo, quando tentei gerar o gráfico de cubo pela função cubePlot gerou o erro abaixo. Alguém poderia me ajudar?


Att,
 
Ari Clecius Alves de Lima
Engenheiro Químico
Me. Engenharia Civil
(085)87687786
(085)33669042

library(qualityTools)
exp1 = facDesign( k = 3 , centerCube = 0, replicates=3)
names ( exp1 ) = c ( " Temperatura " , " Concentração" , "Pressão " )
units(exp1)=c("°C", "mg/L", "mmHg")
lows ( exp1 ) = c (60, 1,720)
highs ( exp1 ) = c (80,2,760)
summary( exp1 )
y=c(1.60, 1.85, 1.40, 1.76, 1.70, 1.54, 0.37, 0.40, 0.46, 1.70,   1.80, 1.90, 0.30, 0.35, 1.74, 1.55, 1.80, 1.75, 1.50, 1.55, 0.60, 1.80, 0.55, 1.52)
response(exp1)=data.frame(y)
summary( exp1 )

Erro em `contrasts<-`(`*tmp*`, value = contr.funs[1 + isOF[nn]]) : 
  contrasts can be applied only to factors with 2 or more levels