Displaying 1 result from an estimated 1 matches for "vavb".
Did you mean:
avb
2006 Jul 17
6
Nested functions
...mented 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;
for(k in 0:(x-1))
{m <- v[a+k]*10^(x-1-k)+m;}
p <- c(x, a, b, m);...