Displaying 1 result from an estimated 1 matches for "alessn".
2006 Jul 17
6
Nested functions
...mething like this must be used
in bioinformatics, but I didn't find it implemented in R. Any hints are
welcome ;-) )
Cheers and thanx in advance,
John
CODECODCODECODECODECODECODECODECODECODECODECODECODECODECODECODE
antiphonar <- function(v)
{
a <- 1;
b <- 2;
n <- length(v);
alessn(a, b, n, v, x);
}
alessn <- function(a, b, n, v, x)
{
if(a<n)
{vavb(a, b, n, v, x);}
else{print("That's all, folks ;-)");}
}
vavb <- function(a, b, n, v, x)
{
if(v[a]==v[b])
{
x <- 1;
while( v[a+x] == v[b+x] && b+x<n)
{x <- x+1;}
m <- 0;...