[R] tikzDevice compiling problem

[cuass]

Hi guys.
The tex file which compile the following graphic has many problems. I don't
know what's happening. Any input would be really appreciated.  

# Cargo el prgrama que produce el código en Latex
require(tikzDevice)

# Establezco directorio del programa
setwd('/Users/fabiangarcia/Documents/R') 

# El siguiente programa produce el archivo tex
tikz('CobbGRAF.tex', standAlone = TRUE, width=5, height=5)

# La gráfica de la función de utilidad
f = function(x, y) ((y)^1*(x)^1)
x = seq(0,5,len=40)
y = seq(0,5,len=40)
z = outer(x, y, f)
 showsurface = function(x, y, z) 
 persp3d(x,y,z, col="blue", alpha=0.3, axes=
 F)+{ 
 contours = contourLines(x,y,z)
 for (i in 1:length(contours)) {
  with(contours[[i]], lines3d(x, y, level, col="darkred"))
 }
 }
 open3d()
 showsurface(x,y,z)
 
 # Cierro el device
dev.off()

# Compilo el archivo tex
tools::texi2dvi('CobbGRAF.tex',pdf=F)
-- 
View this message in context: http://r.789695.n4.nabble.com/tikzDevice-compiling-problem-tp3309028p3309028.html
Sent from the R help mailing list archive at Nabble.com.