avoiding a loop in Splus

["Leeds, Mark" <mleeds@mlp.com>]

does anyone know if it's possible

to modify the function below to

avoid the loop ? i think

i am pretty good at avoiding

loops in Splus but i can't

figure this one out.

 

=================================

 

constructLt<-function(invector) {

 

outvector_as.vector(length(invector))

outvector_invector

 

for ( i in 2:length(invector) ) {

 

if ( invector[i] < 1 )  {

outvector[i]_invector[i]*outvector[i-1]

}

}

 

return(outvector)

 

} 

 

==================================