наиболее подходящая кривая из графика в R

У меня есть функция плотности вероятности на графике, называемом ph, который я получил из двух выборок данных, с помощью пользователя stackoverflow, таким образом

 few <-read.table('outcome.dat',head=TRUE)
 many<-read.table('alldata.dat',head=TRUE)
 mh <- hist(many$G,breaks=seq(0,1.,by=0.03), plot=FALSE)
 fh <- hist(few$G, breaks=mh$breaks, plot=FALSE)
 ph <- fh
 ph$density <- fh$counts/(mh$counts+0.001)
 plot(ph,freq=FALSE,col="blue")

Я хотел бы соответствовать лучшей кривой графика ph, но я не могу найти рабочий метод. Как я могу это сделать? Я должен извлечь vaule из ph, а затем работает на них? или есть та же функция, которая работает на

 plot(ph,freq=FALSE,col="blue")

напрямую?