[R-br] Gráfico 3D

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)