Hi there,
I'm trying to do something like a migration of an R program. I've got a
function and some variables
in an interactive-session:
r <- .5
## estimatePi references r
estimatePi <- function(seed) {
set.seed(seed)
numDraws <- 1e+05
x <- runif(numDraws, min = -r, max = r)
y <- runif(numDraws, min = -r, max = r)
inCircle <- ifelse((x^2 + y^2)^0.5 < r, 1, 0)
sum(inCircle)/length(inCircle) * 4
}
At some point later (in C) I package all this up and send it somewhere else,
where deserialize it (with care):
> ls(env)
[1] "echoBack" "estimatePi" "r"
> env$estimatePi
function (seed)
{
set.seed(seed)
numDraws <- 1e+05
x <- runif(numDraws, min = -r, max = r)
y <- runif(numDraws, min = -r, max = r)
inCircle <- ifelse((x^2 + y^2)^0.5 < r, 1, 0)
sum(inCircle)/length(inCircle) * 4
}
> env$r
[1] 0.5
Ok? So now i want to call estimatePi(10):
> env$estimatePi(10)
Error in runif(numDraws, min = -r, max = r) : object 'r' not found
I've tried several different things and I'm stumped.
My understanding of R function calls and environments is limited - but I'm
not convinced that what I'm trying to do is
completely out of reach. Any thoughts? ;)
Thanks,
Tyler
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
