Skip to content

Instantly share code, notes, and snippets.

@nashutoing

nashutoing/aoki_100bats

Created March 17, 2019 06:03
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/89eb76deec191c833f16e3ee44163c3f to your computer and use it in GitHub Desktop.
Save nashutoing/89eb76deec191c833f16e3ee44163c3f to your computer and use it in GitHub Desktop.
Download ZIP
aoki_100bats added ways to change rows and comns
Raw
aoki_100bats
a<- rbinom(1000,100,0.3)
b<- a/100
hist(b,freq=TRUE,breaks=seq(0.1,0.5,0.005),xlab = "打率",ylab = "シーズン数",
main="100打席に立った青木選手の1000シーズン分の打率分布")
print(xtable(table(b)),type="html") #didn't use (too long)
p<- table(b)
p
q<- t(p) #change rows and columns
q
print(xtable(q),type="html")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment