Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.