R> MCPrice <- function(x = 1, t = 0,T=1,r=1,sigma = 1,
M = 1000,
+f){ + h <- function(m) {
+ u <- rnorm(m/2)
+ tmp <- c(x * exp((r - 0.5 * sigma^2) * (T - t) + sigma *
+ sqrt(T - t) * u), x * exp((r - 0.5 * sigma^2) * (T -+ t) + sigma * sqrt(T - t) * (-u)))
+ mean(sapply(tmp, function(xx) f(xx)))
+} + p <- h(M)
+ p * exp(-r * (T - t))
+}

这里的function(xx) f(xx)))是什么意思啊