simplifying code

Hello,

Try the following.

cp <- sapply(1:4, function(n) output0*exp(-0.3*TIME1[n]))
plot(TIME1, cp)

Hope this helps,

Rui Barradas
Em 17-12-2012 13:04, Andras Farkas escreveu:

Dear All,

I was wondering if you could help me with the following:
I have the code:

tin <-0.5
tau <-24
output0 <-10
TIMELOW <-tin
TIMEHIGH <-1*tau
TIME1 <-c(seq(TIMELOW,TIMEHIGH, by = sign(TIMEHIGH-TIMELOW)*(tau- 
tin)/3))

then I would like to calculate:

cp1 <-output0*exp(-0.3*TIME1[1])
cp2 <-output0*exp(-0.3*TIME1[2])
cp3 <-output0*exp(-0.3*TIME1[3])
cp4 <-output0*exp(-0.3*TIME1[4])

then
plot(TIME1,c(cp1,cp2,cp3,cp4))

is there a way to rewrite the equations for calculating the cp(1 to  
n) in a "single line" so that the run of the code will produce the  
vector  c(cp1,cp2,cp3,cp4)? At the end, I would like to have those  
values calculated "at once" as opposed to using a new command line  
to incorporate the different values for TIME1...

thanks,

Andras
	[[alternative HTML version deleted]]

	[[alternative HTML version deleted]]