Dear R community,
You may have the solution to how to construct a function using the function
"source()" to build the function; i.e.
myfunction <- function(...){
source('file1.r')
source('file2.r')
}
After compiling and installing the "myfunction" in R, then calling the
"myfunction" gives an error because the content of 'file1.r' and 'file2.r'
seems to be missing.
Anyone has the trick to overcome this problem?
Thanks in advance!
best wishes, Johan
PS: My function is:
run_accumm_value <- function(ind_noder_0,
ind_loc_val,ind_retention,downstream){
## Preprocessing of looping calculations:
koersel_uden_ret <- length(unique(ind_noder_0$oplid))
opsaml_b_0_2 <- numeric(koersel_uden_ret)
opsaml_b_0_2_1 <- numeric(koersel_uden_ret)
opsaml_b_0_2_2 <- seq(1:koersel_uden_ret)
## Preprocessing of topology and local values to be summed:
source('preproces_topology.r', local = T)
source('preproces_loc_val.r', local = T)
# Loop for each grouping factor (column in ind_noder_0: "oplid"):
for(j in 1:koersel_uden_ret){
source('matrix_0.r', local = T)
source('matrix.r', local = T)
source('local_value.r', local = T)
source('fordeling.r', local = T)
source('fordeling_manuel.r', local = T)
source('local_ret.r', local = T)
source('Ax=b.r', local = T)
source('opsamling_x_0_acc.r', local = T)
}
source('opsamling_b_1.r', local = T)
opsaml_b_2
}
--
Johan Lassen
Environment Center Nykøbing F
Denmark
[[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.
