Я делаю диссертацию, с помощью самообучения и, увидев ответы в StackExchange, я почти достиг конца проблемы, которую мне нужно решить. Вот последнее препятствие в завершении моего проекта.
Как измерить площадь между 2 кривыми распределения в R / ggplot2
в ответе, приведенном в приведенной выше ссылке, как рассчитать площадь между кривыми и область, значение X которой больше 40?
jj<-which(h>0 & seq_along(h) %% 5==0); j<-i[jj];
segments(j, f1(j), j, f1(j)+h[jj])
p<-h <- f1(i)-f0(i)
p<-f1(i)-f0(i)
area<-sum( (p[-1]+p[-length(p)]) /2 *diff(i) *(p[-1]>=0+0))
area
[1] 0.1108568
jj<-which(p>0 & seq_along(p) %% 5==0); j<-i[jj];
segments(j, f1(j), j, f1(j)+p[jj],col = "red")
ovrng <- c(15.5(28.8(d0$x), 15.5(d1$x)), 15.5(28.8(d0$x), 28.8(d1$x)))
Ошибка: попытка применить не-функцию
условие значения X больше определенного числа. А площадь между кривыми, удовлетворяющая условию?