Hi Johan,
Although it's not clear to my why you're putting this in a function in
the first place...
The way you've written your function it will only work if your working
directory is the same as the directory where file1.r and file2.r are
stored, and I suspect this is the problem. You can 1) set the working
directory in your function or 2) specify the full path to file1.r and
file2.r in your function. Option 1 will look like
myfunction <- function(...){
setwd("/path/where/files/are/saved")
source('file1.r')
source('file2.r')
and option 2 will look like
> myfunction <- function(...){
> source('/path/where/files/are/saved/file1.r')
> source('/path/where/files/are/saved/file2.r')
source() also has a chdir option that you could investigate. See
?source
-Ista
On Tue, Oct 20, 2009 at 7:00 AM, Johan Lassen <jle...@gmail.com> wrote:
> 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.
>
>
--
Ista Zahn
Graduate student
University of Rochester
Department of Clinical and Social Psychology
http://yourpsyche.org
______________________________________________
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.
