Scribd
Upload
40 views4 pages

Conclusion: There Is A Week Linear Relationship Between Buckouts13 and Buckouts14, (R 0.504)

There is a moderate positive linear relationship (r=0.504) between the number of bull riders bucked off in 2013 (BuckOuts13) and the number bucked off in 2014 (BuckOuts14) for bull riders with at least one buck off in 2013, as shown by a correlation analysis and scatter plot with linear regression line of bull rider data from 2013-2014.

Uploaded by

Hân Bảo
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
40 views4 pages

Conclusion: There Is A Week Linear Relationship Between Buckouts13 and Buckouts14, (R 0.504)

There is a moderate positive linear relationship (r=0.504) between the number of bull riders bucked off in 2013 (BuckOuts13) and the number bucked off in 2014 (BuckOuts14) for bull riders with at least one buck off in 2013, as shown by a correlation analysis and scatter plot with linear regression line of bull rider data from 2013-2014.

Uploaded by

Hân Bảo
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 4

Conclusion:

There is a week linear relationship between BuckOuts13 and BuckOuts14, (r=0.504).

R Output:

> library(SDSIntroR)
> bull <- BullRiders
new_bull <- bull[bull$BuckOuts13 >0 ,]
> hist(new_bull$BuckOuts13)
> hist(new_bull$BuckOuts14)
> mean(new_bull$BuckOuts13)
[1] 51
> mean(new_bull$BuckOuts14)
[1] 55.7561
> median(new_bull$BuckOuts13)
[1] 59
> median(new_bull$BuckOuts14)
[1] 62
> cor(new_bull$BuckOuts13,new_bull$BuckOuts14)
[1] 0.5043023
plot(new_bull$BuckOuts13,new_bull$BuckOuts14)
abline(lm(new_bull$BuckOuts14~new_bull$BuckOuts13))

Graphs

You might also like