O risco é dado por <latex>\theta(x)=\frac{\lambda(x)}{\pi(x)}</latex>
O codigo para analise no R é:
x <- rnorm(45) mean(x) summary(x)