R/ComplPos.R

In IndTestPP: Tests of Independence and Analysis of Dependence Between Point Processes in Time

Defines functions ComplPos

Documented in ComplPos

ComplPos <-
function(pos, T, type='Pos')
{
	if (max(pos)>T) stop('All the positions in pos must be lower  or equal than T')
	Npos<-rep(0,T)
	if (type=='Pos') Npos[pos]<-pos
	if (type=='Bin') Npos[pos]<-1
	return(Npos)
}

Try the IndTestPP package in your browser