The R Project SVN R

Rev

Rev 62673 | Rev 67869 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 62673 Rev 63113
Line 130... Line 130...
130 
## adapted from adaptsmoFMRI
 130 
## adapted from adaptsmoFMRI
131 
library(Matrix)
 131 
library(Matrix)
132 
x <- matrix(c(1,2,3,4))
 132 
x <- matrix(c(1,2,3,4))
133 
median(x)
 133 
median(x)
134 
median(as(x, "dgeMatrix"))
 134 
median(as(x, "dgeMatrix"))
- 
 
 135 
 
- 
 
 136 
## Various arguments were not duplicated:  PR#15352 to 15354
- 
 
 137 
x <- 5
- 
 
 138 
y <- 2
- 
 
 139 
f <- function (y) x
- 
 
 140 
numericDeriv(f(y),"y")
- 
 
 141 
x
- 
 
 142 
 
- 
 
 143 
a<-list(1,2)
- 
 
 144 
b<-rep.int(a,c(2,2))
- 
 
 145 
b[[1]][1]<-9
- 
 
 146 
a[[1]]
- 
 
 147 
 
- 
 
 148 
a <- numeric(1)
- 
 
 149 
x <- mget("a",as.environment(1))
- 
 
 150 
x
- 
 
 151 
a[1] <- 9
- 
 
 152 
x
- 
 
 153 
 
- 
 
 154