Marcio
Define two functions, e.g.
f1<-function(i,j) i+j
f2<-function(i,j) i-j
then call them based on the probability e.g. 0.7
f <- if(runif(1)>0.7) f1 else f2
f(1,1)

or more compact
(if(runif(1)>0.7) f1 else f2)(1,1)

HTH
Schalk Heunis


On Thu, Sep 17, 2009 at 5:10 PM, Marcio Resende <mresendeufv@yahoo.com.br>wrote:

>
> Good Mourning,
> I have a function to generate a matrix as I show part of it;
>
> g[j,i]<-if (gen[j,i]==0) al1[i,1]+al1[i,1] else ...
>
> However i would like that this function occurred with a probability P and
> that another function (another formula to generate g matrix) with
> probability P-1
>
> That“s it, if P is .7, i would like that in 70% of the times (for random i
> and j) the matrix g was generated according to the formula above and in 30%
> of the times with a different formula which i did not write
>
> could anyone help me?
> Thank you very much
> Mįrcio
>
> --
> View this message in context:
> http://www.nabble.com/How-to-separate-a-function-by-2-probabilities-tp25491943p25491943.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> 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]]


