Интегрировать и построить функцию плотности - PullRequest
Новая
       22

Интегрировать и построить функцию плотности

0 голосов
/ 08 мая 2019

Я пытаюсь интегрировать и затем построить интеграл от функции плотности.

Я пробовал integrate.xy, но все, что я получаю, это одна точка при построении графика, а не вся интегрированная функция. Подойдет ли ecdf (G_40_TmK_Alle_VP) и, если да, как я могу получить одну плавную линию, а не типичные точки, которые вы получаете при построении ECDF?

Большое спасибо! 

#Kernel Density 
G_40_TmK_Alle_VP_Kerndichte <- density(G_40_TmK_Alle_VP) 
plot(G_40_TmK_Alle_VP_Kerndichte,xlab ='Bedienzeit in s', ylab = 'f(x) in 1/s', main = 'Dichtefunktion, 40°C, TmK \n Gesamte Stichprobe ')
#45 Sekunden Grenze
abline(v=45, lty = "dashed")
text(47.5,0.05, "Bedienlimit")
G_40_TmK_Alle_VP_Kerndichte_x <- G_40_TmK_Alle_VP_Kerndichte$x
G_40_TmK_Alle_VP_Kerndichte_y <- G_40_TmK_Alle_VP_Kerndichte$y
#Bandwith
G_40_TmK_Alle_VP_Kerndichte_bw <- G_40_TmK_Alle_VP_Kerndichte$bw
#Now I would like to integrate and plot the function but I don't know how
ECDF <- ecdf(G_40_TmK_Alle_VP)
plot(ECDF)
#how could I get one smooth line and not the dots?
...