[R-br] Gráfico 3D

[Mauro Sznelwar]

Como faço gráfico 3D desta função?
f=rmultinom(30,3,prob=c(0.5,0.3,0.8))*dmultinom(x=1:3,prob=c(0.5,0.3,0.8))
round(f,1)
contour(f)

Mas nâo vai funcionar com estes comandos e 
x<-seq(-10,10,length= 30)
y<-x
z<-c(x, y, f)
persp(z)

Nem com estes
require(lattice)
wireframe(z)



-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120117/79f1b6f6/attachment.html>