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")
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
