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)