[valse.git] / R / vec_bin.R

#' A function needed in initSmallEM
#'
#' @param X vector with integer values
#' @param r integer
#'
#' @return a list with Z (a binary vector of size the size of X) and indices where Z is equal to 1
vec_bin = function(X,r)
{
	Z = rep(0,length(X))
	indice = c()
	j = 1
	for (i in 1:length(X))
	{
		if(X[i] == r)
		{
			Z[i] = 1
			indice[j] = i
			j=j+1
		} else
			Z[i] = 0
	}
	return (list(Z=Z,indice=indice))
}
Commit	Line	Data
d1531659	1	#' A function needed in initSmallEM
	2	#'
	3	#' @param X vector with integer values
	4	#' @param r integer
	5	#'
	6	#' @return a list with Z (a binary vector of size the size of X) and indices where Z is equal to 1
	7	vec_bin = function(X,r)
	8	{
e166ed4e BA	9	Z = rep(0,length(X))
	10	indice = c()
	11	j = 1
	12	for (i in 1:length(X))
	13	{
	14	if(X[i] == r)
	15	{
	16	Z[i] = 1
	17	indice[j] = i
	18	j=j+1
	19	} else
	20	Z[i] = 0
	21	}
	22	return (list(Z=Z,indice=indice))
d1531659	23	}