R/p.ext.R

Defines functions p.ext

Documented in p.ext

p.ext <-
function(x, y)
{
#----------------------------------------------
#  x matrix IxS
#  y matrix JxS
#  resultant matrix (IxJ),S
#  with elements xis * yis
#-----------------------------------------------
	x <- as.matrix(x)
	y <- as.matrix(y)
	xr <- rep(1:nrow(x), nrow(y))
	yr <- rep(1:nrow(y), rep(nrow(x), nrow(y)))
	z <- as.matrix(x[xr,  ] * y[yr,  ])
}

Try the CA3variants package in your browser

Any scripts or data that you put into this service are public.

CA3variants documentation built on Aug. 1, 2019, 5:06 p.m.