Tengo un conjunto de datos de ejemplo de la siguiente manera:
Volume <- seq(1,20,0.1)
var1 <- 100
x2 <- 1000000
x3 <- 30
x4 = sqrt(x2/pi)
H = x3 - Volume
r = (x4*H)/(H + Volume)
Power = (var1*x2)/(100*(pi*Volume/3)*(x4*x4 + x4*r + r*r))
Power <- jitter(Power, factor = 1, amount = 0.1)
plot(Volume,Power)
A partir de la figura, se puede sugerir que entre un cierto rango de 'Volumen' y 'Potencia' la relación es lineal, luego, cuando el 'Volumen' se vuelve relativamente pequeño, la relación se vuelve no lineal. ¿Hay alguna prueba estadística para ilustrar esto?
Con respecto a algunas de las recomendaciones que se muestran en las respuestas al PO:
El ejemplo que se muestra aquí es simplemente un ejemplo, el conjunto de datos que tengo es similar a la relación que se ve aquí, aunque más ruidosa. El análisis que he realizado hasta ahora muestra que cuando analizo un volumen de un líquido específico, la potencia de una señal aumenta drásticamente cuando hay un volumen bajo. Entonces, digamos que solo tenía un entorno donde el volumen estaba entre 15 y 20, casi se vería como una relación lineal. Sin embargo, al aumentar el rango de puntos, es decir, tener volúmenes más pequeños, vemos que la relación no es lineal en absoluto. Ahora estoy buscando algunos consejos estadísticos sobre cómo mostrar esto estadísticamente. Espero que esto tenga sentido.
R
código: plot(s <- by(cbind(Power, Volume), groups <- cut(Volume, 10), function(d) summary(lm(Power ~ Volume, data=d))$sigma), xlab="Volume range", ylab="Residual SD", ylim=c(0, max(s))); abline(h=mean(s), lty=2, col="Blue")
. Muestra un tamaño residual casi constante en todo el rango.