Skip to content

Commit

Permalink
remove system.time
Browse files Browse the repository at this point in the history
  • Loading branch information
ManosPapadakis95 committed Jul 10, 2023
1 parent 87b573f commit cec9c9d
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 5 deletions.
5 changes: 2 additions & 3 deletions man/boot.student2.Rd
Original file line number Diff line number Diff line change
Expand Up @@ -64,8 +64,7 @@ R implementation and documentation: Michail Tsagris \email{mtsagris@uoc.gr}.
\examples{
x <- rexp(40, 4)
y <- rbeta(50, 2.5, 7.5)
system.time(t.test(x, y, var.equal = TRUE) )
system.time( a <- boot.student2(x, y, 9999) )
a
t.test(x, y, var.equal = TRUE)
boot.student2(x, y, 9999)
}

4 changes: 2 additions & 2 deletions man/stud.ttests.Rd
Original file line number Diff line number Diff line change
Expand Up @@ -67,10 +67,10 @@ R implementation and documentation: Michail Tsagris \email{mtsagris@uoc.gr}.
x = matrix( rnorm(100 * 20), ncol = 20)
## 100 observations in total
ina = rbinom(100, 1, 0.6) + 1 ## independent samples t-test
system.time( stud.ttests(x, ina = ina) )
stud.ttests(x, ina = ina)
x1 = x[ina == 1, ]
x2 = x[ina == 2, ]
system.time( stud.ttests(x1, x2) )
stud.ttests(x1, x2)
x <- NULL
}

Expand Down

0 comments on commit cec9c9d

Please sign in to comment.