R help es - Dec 2012 - muestreo de importancia

Hola, como es que utilizando muestreo de importancia para calcular lo
siguiente:

Estimar theta = P(X > 4) a partir de Y ~ N(mu; sd2). mu =media y  sd2
desviacion estandar.

Si tengo el siguiente codigo  y la funcion de deistribucion acumulada
siguiente:

1 -exp(-(x/b)^a)  distribucion acumulada de Weibull:

m<-1000
 theta.hat<-se<-numeric(4)
 g<-function(x){
   1 -exp(-(2/3)^2)*(x>4)
 }


 x<-rnorm(m)    # f0
 fg0<-g(x)
 theta.hat[1]<-mean(fg0)
 se[1]<-sd(fg0)

# Grafica

x <- seq(1000,2,3)
w <- 2
f0 <-exp(-(2/3)^2)

que le falta a este codigo? alguna sugerencia?

Gracias,

Tania

	[[alternative HTML version deleted]]