Displaying 1 result from an estimated 1 matches for "upp1".
Did you mean:
app1
2012 Oct 03
1
How to draw a graph after model selection?
...ylab = "Percentage carrion weight left", xlab =
"Day")
*T1 <- (0.205)*dataT1$D + (0.195)*dataT1$T + 0.227* #DO I SUB IN MY
EQUATION HERE?#
p.average1 <- exp(T1) / (1 + exp(T1))
I1 <- order(dataT1$D)
lines(dataT1$D[I1],p.average1[I1],lwd=2, col="red")
p.Upp1 <- exp(T1 + 1.96*0.19215)/(1+exp(T1 + 1.96*0.19215))
p.Low1 <- exp(T1 - 1.96*0.19215)/(1+exp(T1 - 1.96*0.19215))
lines(dataT1$D[I1], p.Upp1[I1], col="red")
lines(dataT1$D[I1], p.Low1[I1], col="red")
I am supposed to draw a graph where I fix D and T and draw P against D. H...