Displaying 2 results from an estimated 2 matches for "s_csmh".
Did you mean:
y_csmh
2005 Apr 07
2
about mantelhaen.test (PR#7779)
...0) %x% t(1:J)
A_CSMH <- t(1:I) %x% t(1:J)
Y_GMH <- matrix(0, nc = 1, nr = df_GMH)
Y_SMH <- matrix(0, nc = 1, nr = df_SMH)
Y_CSMH <- matrix(0, nc = 1, nr = df_CSMH)
S_GMH <- matrix(0, nc = df_GMH, nr = df_GMH)
S_SMH <- matrix(0, nc = df_SMH, nr = df_SMH)
S_CSMH <- matrix(0, nc = df_CSMH, nr = df_CSMH)
for(k in 1:K) {
V <- NULL
f <- x[, , k]
ntot <- sum(f)
p_ip <- apply(f, 1, sum) / ntot
p_pj <- apply(f, 2, sum) / ntot
m <- p_ip %x% p_pj * ntot
V <- ntot^2 * ((diag(p_ip) -...
2006 Oct 31
0
about mantelhaen.test (PR#7779)
...ow_scores) %x% t(col_scores)
Y_GMH <- matrix(0, nc =3D 1, nr =3D df_GMH)
Y_SMH <- matrix(0, nc =3D 1, nr =3D df_SMH)
Y_CSMH <- matrix(0, nc =3D 1, nr =3D df_CSMH)
S_GMH <- matrix(0, nc =3D df_GMH, nr =3D df_GMH)
S_SMH <- matrix(0, nc =3D df_SMH, nr =3D df_SMH)
S_CSMH <- matrix(0, nc =3D df_CSMH, nr =3D df_CSMH)
for(k in 1:K) {
V <- NULL
f <- x[, , k]
ntot <- sum(f)
p_ip <- apply(f, 1, sum) / ntot
p_pj <- apply(f, 2, sum) / ntot
m <- p_ip %x% p_pj * ntot
V <- ntot^2 * ((diag(p_ip...