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]]
>
>
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.


	[[alternative HTML version deleted]]


