Displaying 1 result from an estimated 1 matches for "antiphonar".
2006 Jul 17
6
Nested functions
...n how to make it suitable for R, or
about alternative approaches (I guess something 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;
whil...