Si la quieres rotando... :-)

library(fMultivar)
library(rgl)

x = (-40:40)/10
X = grid2d(x)
z = dnorm2d(X$x, X$y, rho = 0.5)
Z = list(x = x, y = x, z = matrix(z, ncol = length(x)))

open3d()
bg3d("white")
material3d(col="black")
persp3d(Z$x, Z$y, Z$z, aspect=c(1, 1, 0.5), col = "lightblue", xlab = "X",
ylab = "Y", zlab = "Z")
play3d(spin3d(axis=c(0,0,1), rpm=5), duration=20)

Saludos,
Carlos Ortega
www.qualityexcellence.es


El 15 de febrero de 2012 15:28, Carlos Ortega
<cof@qualityexcellence.es>escribió:

> Otra alternativa:
>
> library(fMultivar)
>
> ## Bivariate Normal Density:
>    x = (-40:40)/10
>    X = grid2d(x)
>    z = dnorm2d(X$x, X$y, rho = 0.5)
>    Z = list(x = x, y = x, z = matrix(z, ncol = length(x)))
>    persp(Z, theta = -40, phi = 30, col = "steelblue")
>
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
>
> El 15 de febrero de 2012 12:25, tono ferri vidal <
> tonoferri_vidal@hotmail.com> escribió:
>
>>
>> Hola
>>
>> Alguien me podría decir como hacer una grafica
>> del tipo persp()  de la densidad de una distribucion
>> normal bivariante estandarzada con correlacion 0.5??
>>
>> gracias
>>
>>        [[alternative HTML version deleted]]
>>
>>
>> _______________________________________________
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>



-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]

