Мне было интересно, есть ли у кого-нибудь идея о том, как рассчитать синюю область внутри моего доверительного эллипса. Любые предложения или места, чтобы посмотреть с благодарностью. Кроме того, я надеюсь найти общую формулу, поскольку эллипс не обязательно должен лежать в этой области в приложении (то есть эллипс мог бы быть больше). Вот мой код для моей картинки, если это поможет:

library(car)

x = c(7,4,1)
y = c(4,6,7)

plot(x,y,xlim=c(0,10),ylim=c(0,10))
rect(x,y,max(x)+100000,max(y)+100000,col="lightblue",border=NA)
points(x,y,col="red",pch=19)

ellipse(center=c(3.5,5),shape=matrix(c(1,.5,.5,2),nrow=2),radius=3,col="green")