The R Project SVN R-packages

Rev

Rev 7646 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7646 Rev 7738
Line 1... Line 1...
1 
 
 1 
 
2 
R Under development (unstable) (2019-02-28 r76174) -- "Unsuffered Consequences"
 2 
R Under development (unstable) (2019-12-19 r77606) -- "Unsuffered Consequences"
3 
Copyright (C) 2019 The R Foundation for Statistical Computing
 3 
Copyright (C) 2019 The R Foundation for Statistical Computing
4 
Platform: x86_64-pc-linux-gnu (64-bit)
 4 
Platform: x86_64-pc-linux-gnu (64-bit)
5 
 
 5 
 
6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
7 
You are welcome to redistribute it under certain conditions.
 7 
You are welcome to redistribute it under certain conditions.
Line 108... Line 108...
108 
> mean.diff <- function(y, w)
 108 
> mean.diff <- function(y, w)
109 
+ {    gp1 <- 1:table(as.numeric(y$series))[1]
 109 
+ {    gp1 <- 1:table(as.numeric(y$series))[1]
110 
+      sum(y[gp1, 1] * w[gp1]) - sum(y[-gp1, 1] * w[-gp1])
 110 
+      sum(y[gp1, 1] * w[gp1]) - sum(y[-gp1, 1] * w[-gp1])
111 
+ }
 111 
+ }
112 
> grav1 <- gravity[as.numeric(gravity[, 2]) >= 7, ]
 112 
> grav1 <- gravity[as.numeric(gravity[, 2]) >= 7, ]
- 
 
 113 
> ## IGNORE_RDIFF_BEGIN
113 
> abc.ci(grav1, mean.diff, strata = grav1$series)
 114 
> abc.ci(grav1, mean.diff, strata = grav1$series)
114 
[1]  0.95000 -6.70758 -0.39394
 115 
[1]  0.95000 -6.70758 -0.39394
- 
 
 116 
> ## IGNORE_RDIFF_END
115 
> ## Don't show:
117 
> ## Don't show:
116 
> options(op)
 118 
> options(op)
117 
> ## End(Don't show)
 119 
> ## End(Don't show)
118 
>
120 
>
119 
>
121 
>
Line 1992... Line 1994...
1992 
> ### * <FOOTER>
 1994 
> ### * <FOOTER>
1993 
> ###
 1995 
> ###
1994 
> cleanEx()
 1996 
> cleanEx()
1995 
> options(digits = 7L)
 1997 
> options(digits = 7L)
1996 
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
 1998 
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
1997 
Time elapsed:  47.887 0.375 118.99 0 0
1999 
Time elapsed:  44.104 0.665 45.086 0 0
1998 
> grDevices::dev.off()
 2000 
> grDevices::dev.off()
1999 
null device
2001 
null device
2000 
          1
2002 
          1
2001 
> ###
 2003 
> ###
2002 
> ### Local variables: ***
 2004 
> ### Local variables: ***