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 <mresende...@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]]
______________________________________________ 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.
