[R-br] Erro ao rodar função

[Ari Clecius]

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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130318/96326d74/attachment.html>