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 é<br>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<br>
<br>GPD<-rep(100,66)<br>FDN<-rep(15:80,each=1,1)<br><span class="Apple-style-span" style="border-collapse:separate;color:rgb(255,255,255);font-family:DotumChe;font-size:13px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:15px;text-indent:0px;text-transform:none;white-space:pre-wrap;word-spacing:0px;background-color:rgb(0,34,64)"><pre tabindex="0" class="GDXA2EVBEAB" style="font-family:DotumChe;font-size:10pt!important;outline-style:none;border-style:none;white-space:pre-wrap!important;margin:0px;line-height:1.2">
<span class="GDXA2EVBL5 ace_keyword" style="color:rgb(255,157,0)">dput(GRAF)<br></span>

</pre></span><p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">CMSPM<- structure(c(41.4342238231054, 43.9158002951626,
46.3314684686358, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">48.6812283435249, 50.9650799198301, 53.1830231975512,
55.3350581766883, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">57.4211848572414, 59.4414032392104, 61.3957133225955,
63.2841151073965, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">65.1066085936135, 66.8631937812465, 68.5538706702954,
70.1786392607604, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">71.7374995526413, 73.2304515459382, 74.6574952406511,
76.01863063678, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">77.3138577343248, 78.5431765332856, 79.7065870336625,
80.8040892354552, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">81.835683138664, 82.8013687432888, 83.7011460493295,
84.5350150567862, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">85.3029757656589, 86.0050281759476, 86.6411722876522,
87.2114081007729, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">87.7157356153095, 88.1541548312621, 88.5266657486306,
88.8332683674152, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">89.0739626876157, 89.2487487092323, 89.3576264322648,
89.4005958567133, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">89.3776569825777, 89.2888098098582, 89.1340543385546,
88.913390568667, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">88.6268185001954, 88.2743381331398, 87.8559494675001,
87.3716525032764, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">86.8214472404687, 86.205333679077, 85.5233118191013,
84.7753816605415, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">83.9615432033978, 83.08179644767, 82.1361413933581,
81.1245780404623, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">80.0471063889825, 78.9037264389186, 77.6944381902707,
76.4192416430388, </span></p>

<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif"" lang="EN-US">75.0781367972229, 73.671123652823, 72.198202209839,
70.659372468271, </span></p>

<span style="font-size:12.0pt;line-height:115%;font-family:"Times New Roman","serif"" lang="EN-US">69.054634428119,
67.383988089383, 65.647433452063), label = "Predicted values")<br><br>data<-data.frame(CMSPM=CMSPM,GPD=GPD,FDN=FDN)<br>wireframe(CMSPM~FDN*GPD,data=data)<br><br></span><span class="Apple-style-span" style="border-collapse:separate;color:rgb(255,255,255);font-family:DotumChe;font-size:13px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:15px;text-align:-webkit-left;text-indent:0px;text-transform:none;white-space:pre-wrap;word-spacing:0px;background-color:rgb(0,34,64)"><pre tabindex="0" class="GDXA2EVBEAB" style="font-family:DotumChe;font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px;line-height:1.2">
<span class="GDXA2EVBL5 ace_keyword" style="color:rgb(255,157,0)"> </span>structure(c(41<span class="Apple-style-span" style="border-collapse:separate;color:rgb(255,255,255);font-family:DotumChe;font-size:13px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:15px;text-align:-webkit-left;text-indent:0px;text-transform:none;white-space:pre-wrap;word-spacing:0px;background-color:rgb(0,34,64)"><pre tabindex="0" class="GDXA2EVBEAB" style="font-family:DotumChe;font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px;line-height:1.2">
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")</pre></span>.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")</pre></span><br><br><br>