Displaying 1 result from an estimated 1 matches for "ryy".
Did you mean:
ray
2001 Feb 16
1
Sub_scribe and a question
...Toeplitz matrix (loops)_______ (sec): ", =
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 <- sy...