Skip to content

Instantly share code, notes, and snippets.

@nashutoing

nashutoing/aoki_500bats

Created March 17, 2019 06:06
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/cc4cd06c683750c3aceab0d234b81ab9 to your computer and use it in GitHub Desktop.
Save nashutoing/cc4cd06c683750c3aceab0d234b81ab9 to your computer and use it in GitHub Desktop.
Download ZIP
aoki_500bats
Raw
aoki_500bats
aa<- rbinom(1000,500,0.285)
bb<- aa/500
hist(bb,freq=TRUE,breaks = seq(0.22,0.35,0.001),xlab = "打率",ylab = "シーズン数",
main="500打席に立った青木選手の1000シーズン分の打率分布")
pp<- table(bb)
qq<- t(pp)
print(xtable(qq),type="html")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment