R/genList.r

In laijiangshan/glmm.hp: Hierarchical Partitioning of Marginal R2 for Generalized Mixed-Effect Models

#'Internal function for glmm.hp()
#' @param  ivlist The names of explanatory variable.
#' @param  value  The sequence ID.
#' @return a vector
#' @return \item{newlist}{A vector for variable index.}
#' @keywords internal

genList <-
function(ivlist, value){
numlist  <-  length(ivlist)
newlist <- ivlist
newlist <- 0
for (i in 1:numlist){
	newlist[i] <- abs(ivlist[i])+abs(value)
	if (((ivlist[i]<0) && (value >= 0))|| ((ivlist[i]>=0) && (value <0)))newlist[i]=newlist[i]*-1
}
return(newlist)
}