R/Sequences.ind.R

Defines functions Sequences.ind

Documented in Sequences.ind

Sequences.ind <-
function(path,namstatesnew)
{  if (!is.character(path)) stop ("Sequences.ind: the argument <path> is not a character vector")
	namstates <- StateSpace (path)$namstates
	if (missing(namstatesnew))  if (exists ("namstates")) namstatesnew <- namstates else stop ("Sequences.ind: namstates is missing")
  # In case of Error in path.num[i, k] <- grep(str_char[k], namstatesnew)
  # run Parameters and get namstatesnew 
  path <- as.character(path)
  nsample<-length(path)
  maxns <- max(nchar(path))
  path.num <- array(NA,c(nsample,maxns))
  str_char <- array(" ",c(maxns))
  for (i in 1:nsample)
   { str_char <- stringf(path[i])
        for (k in 1:length(str_char))
        { path.num[i,k] <- grep(str_char[k],namstatesnew)
        }
   }
  return (seq.ind=path.num)
}

Try the Biograph package in your browser

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

Biograph documentation built on May 1, 2019, 8:48 p.m.