Dear Gundala,

It's just a starting points. I'm sure it could be better. Try this:

set.seed(123)
x=c(rgamma(30,shape=.2,scale=14),rgamma(30,shape=12,scale=10),rgamma(30,shape=5,scale=6))

plot(density(x[1:30]),col=2,xlim=range(0,max(density(x)$x)),type='l',main="Density
for your vector")
points(density(x[31:60]),col=1,type='l')
points(density(x[61:90]),col=4,type='l')
legend("topright",paste('Type',1:3,sep=""),col=c(2,1,4),lty=1)

HTH,

Jorge




On Sun, Jul 6, 2008 at 11:24 PM, Gundala Viswanath <gundalav@gmail.com>
wrote:

> Hi,
>
> I have the following vector
> which is created from 3 distinct distribution (three components) of gamma:
>
>
> x=c(rgamma(30,shape=.2,scale=14),rgamma(30,shape=12,scale=10),rgamma(30,shape=5,scale=6))
>
> I want to plot the density curve of X, in a way that it shows
> a distinct 3 curves that represent each component.
>
> How can I do that?
>
> I tried this but doesn't work:
>
> lines(density(x))
>
> Please advise.
>
> - Gundala Viswanath
> Jakarta - Indonesia
>
> ______________________________________________
> 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]]

