@@ -648,13 +648,13 @@ together with vertical bars indicating the pointwise equal-tailed
648648``` r
649649par(mfrow = c(1 ,1 ))
650650
651- matplot(x = t(matrix (1 : nf ,ncol = 3 , nrow = nf )),y = pred.int.sc ,col = " blue" ,type = " l" ,pch = 16 ,lty = 1 ,ylim = c(5 , 35 ), xlim = c(0 ,nf + 1 ), xlab = " Scenarios" , ylab = " Prediction " ,xaxt = " n" )
652- points(x = 1 : nf , y = pred.int.sc [2 ,], pch = 16 ,col = " blue" )
651+ matplot(x = t(matrix (1 : nf ,ncol = 3 , nrow = nf )),y = pred.int.sc ,col = " blue" ,type = " l" ,pch = 16 ,lty = 1 ,ylim = c(8 , 32 ), xlim = c(0.5 ,nf + 0.5 ), xlab = " Scenarios" , ylab = " Predicted Open Box Office " ,xaxt = " n" )
652+ points(x = 1 : nf , y = pred.int.sc [2 ,], pch = 19 ,col = " blue" , cex = 1.2 )
653653points(x = 1 : nf , y = pred.mean.sc , pch = 16 ,col = " red" )
654654
655655matplot(x = t(matrix ((1 : nf )+ 0.2 ,ncol = 3 , nrow = nf )),y = pred.int.hs ,col = " blue" ,type = " l" ,pch = 16 ,lty = 1 ,add = TRUE )
656656
657- points(x = (1 : nf )+ 0.2 , y = pred.int.hs [2 ,], pch = 16 ,col = " blue" )
657+ points(x = (1 : nf )+ 0.2 , y = pred.int.hs [2 ,], pch = 19 ,col = " blue" , cex = 1.2 )
658658points(x = (1 : nf )+ 0.2 , y = pred.mean.hs , pch = 16 ,col = " red" )
659659
660660axis(1 ,at = 1 : nf ,labels = c(" A" ," B" ," C" ," D" ))
0 commit comments