Displaying 1 result from an estimated 1 matches for "rvmax".
Did you mean:
rmax
2001 Feb 16
1
Sub_scribe and a question
...", =
timing, "\n"))
remove("b", "j", "k")
flush.console()
# (5)
cumulate <- 0; p <- 0; vt <- 0; vr <- 0; vrt <- 0; rvt <- 0; RV <- 0; j =
<- 0; k <- 0;
x2 <- 0; R <- 0; Rxx <- 0; Ryy <- 0; Rxy <- 0; Ryx <- 0; Rvmax <- 0
# Calculate the trace of a matrix (sum of its diagonal elements)
Trace <- function(y) {sum(c(y)[1 + 0:(min(dim(y)) - 1) * (dim(y)[1] + =
1)], na.rm=3DFALSE)}
for (i in 1:runs) {
x <- abs(rnorm(22*22)); dim(x) <- c(22, 22)
timing <- system.time({
# Calculation of Escoufie...