Hi Steve That is exactly what I want. Many thanks.
Ed -----Original Message----- From: Steven McKinney [mailto:[EMAIL PROTECTED] Sent: Thursday, August 28, 2008 11:48 PM To: Eduardo M. A. M.Mendes; r-help@r-project.org Subject: RE: [R] Newbie: Examples on functions callling a library etc. Hi Ed, Here's a simple example showing your needs: myfun <- function(n1, n2, n3) { mat1 <- matrix(rep(1), nrow = n1, ncol = 3) mat2 <- matrix(rep(2), nrow = n2, ncol = 4) mat3 <- matrix(rep(3), nrow = n3, ncol = 5) require("survival") ## make sure the package you need is loaded mypkgfun <- survival::is.Surv ## Use the '::' and ':::' extractors to get visible and hidden functions respectively from the package list(mat1 = mat1, mat2 = mat2, mat3 = mat3, mypkgfun = mypkgfun) ## Return the items in a list } ## Now invoke the function foo <- myfun(n1 = 1, n2 = 1, n3 = 5) ## and look at the returned results foo > myfun <- function(n1, n2, n3) { + mat1 <- matrix(rep(1), nrow = n1, ncol = 3) + mat2 <- matrix(rep(2), nrow = n2, ncol = 4) + mat3 <- matrix(rep(3), nrow = n3, ncol = 5) + + require("survival") + mypkgfun <- survival::is.Surv + + list(mat1 = mat1, mat2 = mat2, mat3 = mat3, mypkgfun = mypkgfun) + } > > foo <- myfun(n1 = 1, n2 = 1, n3 = 5) > > foo $mat1 [,1] [,2] [,3] [1,] 1 1 1 $mat2 [,1] [,2] [,3] [,4] [1,] 2 2 2 2 $mat3 [,1] [,2] [,3] [,4] [,5] [1,] 3 3 3 3 3 [2,] 3 3 3 3 3 [3,] 3 3 3 3 3 [4,] 3 3 3 3 3 [5,] 3 3 3 3 3 $mypkgfun function (x) inherits(x, "Surv") <environment: namespace:survival> > HTH Steve McKinney -----Original Message----- From: [EMAIL PROTECTED] on behalf of Eduardo M. A. M.Mendes Sent: Thu 8/28/2008 5:43 PM To: r-help@r-project.org Subject: [R] Newbie: Examples on functions callling a library etc. Hello R is pretty new to me. I need to write a function that returns three matrices of different dimensions. In addition, I need to call a function from a contributed package with the function. I have browsed several manuals and docs but the examples on them are either very simple or extremely hard to follow. Many thanks Ed [[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. ______________________________________________ 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.
