Skip to content

Instantly share code, notes, and snippets.

@nashutoing

nashutoing/cor for H-AB and H-Age

Created March 28, 2019 06:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nashutoing/a3af539614d98d1dfedaa3dd812e367f to your computer and use it in GitHub Desktop.
Save nashutoing/a3af539614d98d1dfedaa3dd812e367f to your computer and use it in GitHub Desktop.
Download ZIP
MLB correlation coefficient ~positive for H and AB , No relation for Age and H~
Raw
cor for H-AB and H-Age
plot(MB18lim$H,MB18lim$AB)
mean(MB18lim$H)
abline(v=mean(MB18lim$H))
mean(MB18lim$AB)
abline(h=mean(MB18lim$AB))
mtext("平均",side=1,line=1,at=84)
mtext("平均",side=2,line=2,at=333)
text("+",x=130,y=550,cex=5)
text("⁻",x=130,y=180,cex=8)
text("⁻",x=50,y=550,cex=8)
text("+",x=50,y=180,cex=5)
plot(MB18R$Age,MB18R$H)
mean(MB18R$Age)
abline(v=mean(MB18R$Age))
mean(MB18R$H)
abline(h=mean(MB18R$H))
mtext("平均",side=1,line=1,at=mean(MB18R$Age))
mtext("平均",side=2,line=2,at=mean(MB18R$H))
text("+",x=33,y=170,cex=5)
text("⁻",x=33,y=110,cex=8)
text("⁻",x=24,y=160,cex=8)
text("+",x=24,y=120,cex=5)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment