Caros colegas, estou com dificuldades em utilizar a funçao wireframe para contruir um gráfico 3D. A função fica me retornando que não é permitido utilizar vetores de comprimento negativo. Entretanto não há (nem existe) vetores de comprimento negativo. Caso tenha experiência no uso desta função agradeço desde ja a ajuda GPD<-rep(100,66) FDN<-rep(15:80,each=1,1) dput(GRAF) CMSPM<- structure(c(41.4342238231054, 43.9158002951626, 46.3314684686358, 48.6812283435249, 50.9650799198301, 53.1830231975512, 55.3350581766883, 57.4211848572414, 59.4414032392104, 61.3957133225955, 63.2841151073965, 65.1066085936135, 66.8631937812465, 68.5538706702954, 70.1786392607604, 71.7374995526413, 73.2304515459382, 74.6574952406511, 76.01863063678, 77.3138577343248, 78.5431765332856, 79.7065870336625, 80.8040892354552, 81.835683138664, 82.8013687432888, 83.7011460493295, 84.5350150567862, 85.3029757656589, 86.0050281759476, 86.6411722876522, 87.2114081007729, 87.7157356153095, 88.1541548312621, 88.5266657486306, 88.8332683674152, 89.0739626876157, 89.2487487092323, 89.3576264322648, 89.4005958567133, 89.3776569825777, 89.2888098098582, 89.1340543385546, 88.913390568667, 88.6268185001954, 88.2743381331398, 87.8559494675001, 87.3716525032764, 86.8214472404687, 86.205333679077, 85.5233118191013, 84.7753816605415, 83.9615432033978, 83.08179644767, 82.1361413933581, 81.1245780404623, 80.0471063889825, 78.9037264389186, 77.6944381902707, 76.4192416430388, 75.0781367972229, 73.671123652823, 72.198202209839, 70.659372468271, 69.054634428119, 67.383988089383, 65.647433452063), label = "Predicted values") data<-data.frame(CMSPM=CMSPM,GPD=GPD,FDN=FDN) wireframe(CMSPM~FDN*GPD,data=data) structure(c(41 structure(c(41.4342238231054, 43.9158002951626, 46.3314684686358, 48.6812283435249, 50.9650799198301, 53.1830231975512, 55.3350581766883, 57.4211848572414, 59.4414032392104, 61.3957133225955, 63.2841151073965, 65.1066085936135, 66.8631937812465, 68.5538706702954, 70.1786392607604, 71.7374995526413, 73.2304515459382, 74.6574952406511, 76.01863063678, 77.3138577343248, 78.5431765332856, 79.7065870336625, 80.8040892354552, 81.835683138664, 82.8013687432888, 83.7011460493295, 84.5350150567862, 85.3029757656589, 86.0050281759476, 86.6411722876522, 87.2114081007729, 87.7157356153095, 88.1541548312621, 88.5266657486306, 88.8332683674152, 89.0739626876157, 89.2487487092323, 89.3576264322648, 89.4005958567133, 89.3776569825777, 89.2888098098582, 89.1340543385546, 88.913390568667, 88.6268185001954, 88.2743381331398, 87.8559494675001, 87.3716525032764, 86.8214472404687, 86.205333679077, 85.5233118191013, 84.7753816605415, 83.9615432033978, 83.08179644767, 82.1361413933581, 81.1245780404623, 80.0471063889825, 78.9037264389186, 77.6944381902707, 76.4192416430388, 75.0781367972229, 73.671123652823, 72.198202209839, 70.659372468271, 69.054634428119, 67.383988089383, 65.647433452063), label = "Predicted values") .4342238231054, 43.9158002951626, 46.3314684686358, 48.6812283435249, 50.9650799198301, 53.1830231975512, 55.3350581766883, 57.4211848572414, 59.4414032392104, 61.3957133225955, 63.2841151073965, 65.1066085936135, 66.8631937812465, 68.5538706702954, 70.1786392607604, 71.7374995526413, 73.2304515459382, 74.6574952406511, 76.01863063678, 77.3138577343248, 78.5431765332856, 79.7065870336625, 80.8040892354552, 81.835683138664, 82.8013687432888, 83.7011460493295, 84.5350150567862, 85.3029757656589, 86.0050281759476, 86.6411722876522, 87.2114081007729, 87.7157356153095, 88.1541548312621, 88.5266657486306, 88.8332683674152, 89.0739626876157, 89.2487487092323, 89.3576264322648, 89.4005958567133, 89.3776569825777, 89.2888098098582, 89.1340543385546, 88.913390568667, 88.6268185001954, 88.2743381331398, 87.8559494675001, 87.3716525032764, 86.8214472404687, 86.205333679077, 85.5233118191013, 84.7753816605415, 83.9615432033978, 83.08179644767, 82.1361413933581, 81.1245780404623, 80.0471063889825, 78.9037264389186, 77.6944381902707, 76.4192416430388, 75.0781367972229, 73.671123652823, 72.198202209839, 70.659372468271, 69.054634428119, 67.383988089383, 65.647433452063), label = "Predicted values")