The R Project SVN R

(root)/trunk/tests/reg-plot.R @ 28362 – Rev 26717 → 27668



## legend with call
lo <- legend(2,2, substitute(hat(theta) == that, list(that= pi)))
stopifnot(length(lo$text$x) == 1)
## length() was 3 till 1.7.x
 
 
plot(ecdf(c(1:4,8,12)), ylab = "ECDF", main=NULL)
## ylab didn't work till 1.8.0

Rev 26717	Rev 27668
Line 82...	Line 82...
82	`## legend with call`	82	`## legend with call`
83	`lo <- legend(2,2, substitute(hat(theta) == that, list(that= pi)))`	83	`lo <- legend(2,2, substitute(hat(theta) == that, list(that= pi)))`
84	`stopifnot(length(lo$text$x) == 1)`	84	`stopifnot(length(lo$text$x) == 1)`
85	`## length() was 3 till 1.7.x`	85	`## length() was 3 till 1.7.x`
86		86
87	`library(stepfun)`	-
88	`plot(ecdf(c(1:4,8,12)), ylab = "ECDF", main=NULL)`	87	`plot(ecdf(c(1:4,8,12)), ylab = "ECDF", main=NULL)`
89	`## ylab didn't work till 1.8.0`	88	`## ylab didn't work till 1.8.0`