The R Project SVN – R – Diff – /trunk/tests/eval-etc-2.R



 
srcdir <- file.path(Sys.getenv("SRCDIR"), "eval-fns.R")
source(if(file.exists(srcdir)) srcdir else "./eval-fns.R", echo = TRUE)
rm("srcdir")
 
require("Matrix", .Library)
D5. <- Diagonal(x = 5:1)
D5N <- D5.; D5N[5,5] <- NA
## a subset/version of example(Matrix) : --------------------------------
 
(Z32 <- Matrix(0, 3, 2))              # 3 by 2 matrix of zeros -> sparse

Rev 80298	Rev 87065
Line 7...	Line 7...
7		7
8	`srcdir <- file.path(Sys.getenv("SRCDIR"), "eval-fns.R")`	8	`srcdir <- file.path(Sys.getenv("SRCDIR"), "eval-fns.R")`
9	`source(if(file.exists(srcdir)) srcdir else "./eval-fns.R", echo = TRUE)`	9	`source(if(file.exists(srcdir)) srcdir else "./eval-fns.R", echo = TRUE)`
10	`rm("srcdir")`	10	`rm("srcdir")`
11		11
12	`require("Matrix")`	12	`require("Matrix", .Library)`
13	`D5. <- Diagonal(x = 5:1)`	13	`D5. <- Diagonal(x = 5:1)`
14	`D5N <- D5.; D5N[5,5] <- NA`	14	`D5N <- D5.; D5N[5,5] <- NA`
15	`## a subset/version of example(Matrix) : --------------------------------`	15	`## a subset/version of example(Matrix) : --------------------------------`
16		16
17	`(Z32 <- Matrix(0, 3, 2)) # 3 by 2 matrix of zeros -> sparse`	17	`(Z32 <- Matrix(0, 3, 2)) # 3 by 2 matrix of zeros -> sparse`

The R Project SVN R

(root)/trunk/tests/eval-etc-2.R – Rev 80298 → 87065