Displaying 1 result from an estimated 1 matches for "computetakens".
2009 Sep 22
0
snowfall: sfExport apparently harmless error
...SE)
library('snowfall', verbose=FALSE)
# Initialize cluster
sfInit(parallel=TRUE, cpus=3, type="MPI")
for(i in 1:2) {
# Prepare fake data
n <- 46000
x <- runif(n, 0.02, 0.54)
logx <- log(x)
sfExport("logx")
# Compute fake function
computeTakens <- function(r0idx) {
if(r0idx == 1) return(NA)
return(1/(logx[r0idx] - sum(logx[1:(r0idx-1)])/(r0idx-1)))
}
res <- sfClusterApplyLB(n:1, computeTakens)
}
sfStop()
--
Ing. Mario Valle
Data Analysis and Visualization Group | http://www.cscs.ch/~mvalle
Swiss...