SCM

SCM Repository

[inlinedocs] View of /pkg/inlinedocs/inst/testfiles/description-before.R
ViewVC logotype

View of /pkg/inlinedocs/inst/testfiles/description-before.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 259 - (download) (annotate)
Sun May 1 19:15:09 2011 UTC (5 years, 11 months ago) by tdhock
File size: 1361 byte(s)
definition/news
### A multi-line comment before a data item goes into the description
### section of its Rd file. The items of this list are all norms,
### which are functions that take a vector of N elements and return a
### non-negative real number.
norms <-
  structure(list(l0=function(x)sum(x!=0),
                 l1=function(x)sum(abs(x)),
                 l2=function(x)sqrt(sum(x^2)),
                 linfty=function(x)max(abs(x))),
            ex=function(){
              m <- replicate(2,rnorm(10))
              cbind(m,sapply(norms,function(norm)apply(m,1,norm)))
            })
.result <- 
 list(norms = list(definition = "norms <-\n  structure(list(l0=function(x)sum(x!=0),\n                 l1=function(x)sum(abs(x)),\n                 l2=function(x)sqrt(sum(x^2)),\n                 linfty=function(x)max(abs(x))),\n            ex=function(){\n              m <- replicate(2,rnorm(10))\n              cbind(m,sapply(norms,function(norm)apply(m,1,norm)))\n            })",  
     description = "A multi-line comment before a data item goes into the description\nsection of its Rd file. The items of this list are all norms,\nwhich are functions that take a vector of N elements and return a\nnon-negative real number.",  
     format = "", title = "norms", examples = "\nm <- replicate(2,rnorm(10))\ncbind(m,sapply(norms,function(norm)apply(m,1,norm)))\n")) 

R-Forge@R-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge