Displaying 3 results from an estimated 3 matches for "out_summary".
2008 Aug 26
1
Dramatic slowdown of R 2.7.2?
...###########################
The following code has been executed (with both R 2.7.1 and R 2.7.2):
Rprof(tmp <- tempfile())
sample_size=10
f1=function(k) {solve(matrix(rnorm(4*k^2),2*k,2*k))}
out=vector(,sample_size)
for (i in 1:sample_size) {out[i]=system.time(f1(10^3))[[3]]}
summaryRprof(tmp)
out_summary=matrix(,1,6,dimnames=list("value",c("dim","min","mean","med","sd","max")))
out_summary[1,1]=sample_size
out_summary[1,2]=min(out)
out_summary[1,3]=mean(out)
out_summary[1,4]=median(out)
out_summary[1,5]=sd(out)
out_summary[1,6]=m...
2023 Jul 06
1
printCoefmat() and zap.ind
...behavior of printCoefmat() that looks strange to me,
but I am not sure whether this is an intended behavior:
``` r
set.seed(5689417)
n <- 10000
x1 <- rnorm(n)
x2 <- rnorm(n)
y <- .5 * x1 + .6 * x2 + rnorm(n, -0.0002366, .2)
dat <- data.frame(x1, x2, y)
out <- lm(y ~ x1 + x2, dat)
out_summary <- summary(out)
printCoefmat(out_summary$coefficients)
#> Estimate Std. Error t value Pr(>|t|)
#> (Intercept) 1.7228e-08 1.9908e-03 0.00 1
#> x1 5.0212e-01 1.9715e-03 254.70 <2e-16 ***
#> x2 6.0016e-01 1.9924e-03 301.23 <2e-16...
2023 Jul 07
1
printCoefmat() and zap.ind
...is is an intended behavior:
> ``` r
> set.seed(5689417)
> n <- 10000
> x1 <- rnorm(n)
> x2 <- rnorm(n)
> y <- .5 * x1 + .6 * x2 + rnorm(n, -0.0002366, .2)
> dat <- data.frame(x1, x2, y)
> out <- lm(y ~ x1 + x2, dat)
> out_summary <- summary(out)
> printCoefmat(out_summary$coefficients)
> #> Estimate Std. Error t value Pr(>|t|)
> #> (Intercept) 1.7228e-08 1.9908e-03 0.00 1
> #> x1 5.0212e-01 1.9715e-03 254.70 <2e-16 ***
> #> x2...