If possible I would like to apply a function, that contains a "reduce"
statement, across the rows of 2d array. This code works for me right up
until the last. Can it be done or is there a better way? My next challenge
is to pass it a vector of starting values, i.e. each row will have a
different initial value.

func1 <- function (x,y) {x * 0.6}
Reduce(func1, x = seq_len(10), accumulate = TRUE, init = 3)

totalfunc <- function (x) {Reduce(func1, x = seq_len(10),
       accumulate = TRUE, init = 3)
                       }

totalfunc(0)

startarray <- t(array(1:100, c(10,10)))

newarray <- apply(x = startarray, margin = 1, fun = totalfunc)


Thanks

J

-- 
Jim Maas

	[[alternative HTML version deleted]]

