我想在观察数据的直方图上绘制从一组观察结果中得出的伽马密度函数。我能够为伽马拟合生成直方图和参数估计。这是针对来自主数据集的多个数据子集完成的。如何在此循环中创建的每个直方图上绘制伽马密度函数?
我目前有:
library(MASS)
species <- c('acesac', 'acesac', 'acesac', 'acesac', 'acesac', 'acesac',
'polbif', 'polbif', 'polbif', 'polbif', 'polbif', 'polbif')
tmean <- c(2,3,5,6,6,7,5,6,6,6,8,9)
Data <- data.frame(species, tmean)
for (i in unique(Data$species)){
subdata <- subset(Data, species ==i)
hist(subdata$tmean, main = i)
dist <- fitdistr(subdata$tmean, "gamma")
}
我在想我应该使用lines()
,但是,不确定如何指定这个?