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(41structure(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")