x = read.table("clipboard")
head(x)
x <- as.numeric(as.matrix(x))
x
table(x)
table(x)/length(x)
plot(ecdf(x))
quantile(x,0.1)
sort(x)
quantile(x,0.18)
quantile(x,0.18,type=3)
quantile(x,0.18,type=1)
quantile(x,0.18,type=7)
quantile(x,0.19)
quantile(x,0.17)
quantile(x,0.18)
quantile(x,0.95)
sort(x)
hist(x)
hist(x,breaks=seq(from=20,to=40,by=1))
hist(x,breaks=seq(from=20,to=40,by=0.5))
hist(x,breaks=seq(from=20,to=40,by=2))
hist(x,breaks=seq(from=20,to=40,length.out=10))
summary(x)
hist(x,breaks=seq(from=24,to=33,length.out=10))
1:6
4:7
0.5:3.5
0.5:3.6
hist(x,breaks=seq(from=24,to=33,length.out=5))
hist(x,breaks=seq(from=24,to=33,length.out=21))
x=c(1,2,4,7,9)
var(x)
sd(x)
d=read.table("clipboard")
head(d)
d=read.table("clipboard",h=T)
head(d)
year=d$Year
uscab=d$US_CAB
ukcab=d$UK_CAB
plot(year,uscab)
lines(year,ukcab)
plot(uscab,ukcab)
cor(uscab,ukcab)
par(mfrow=c(2,1))
boxplot(uscab,horizontal=T)
boxplot(uscab,horizontal=T)
par(mfrow=c(1,2))
boxplot(uscab,horizontal=T)
par(mfrow=c(2,1))
boxplot(uscab,horizontal=T)
boxplot(uscab,horizontal=T)
boxplot(uscab,horizontal=T)
boxplot(ukcab,horizontal=T)
par(mfrow=c(1,1))
boxplot(cbind(uscab,ukcab))
boxplot(cbind(uscab,ukcab),horizontal=T)
uss=(uscab-mean(uscab))/sd(uscab)
uks=(ukcab-mean(ukcab))/sd(ukcab)
boxplot(cbind(uss,uks),horizontal=T)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=1)
S=1:6
sample(S,size=10,replace=T)
S=1:6
sample(S,size=100,replace=T)
S=1:6
sample(S,size=100,replace=F)
S=1:6
sample(S,size=6,replace=F)
S=1:6
sample(S,size=6,replace=F)
S=1:6
sample(S,size=6,replace=F)
S=c("H",'T')
sample(S,size=1,replace=T)
S=c("H",'T')
sample(S,size=1,replace=T)
S=c("H",'T')
sample(S,size=1,replace=T)
S=c("H",'T')
sample(S,size=1,replace=T)
S=c("H",'T')
sample(S,size=3,replace=T)
S=c("H",'T')
sample(S,size=3,replace=T)
S=c("H",'T')
sample(S,size=3,replace=T)
S=c("H",'T')
sample(S,size=3,replace=T)
coin=c("H",'T')
coin
coin
S=expand.grid(coin1=coin,coin2=coin,coin3=coin)
S
S=expand.grid(coin1=coin,coin2=coin,coin3=coin,coin4=coin3)
S=expand.grid(coin1=coin,coin2=coin,coin3=coin,coin4=coin)
S
die=1:6
expand.grid(coin1=coin,die1=die1)
expand.grid(coin1=coin,die1=die)
2*2*6*20
expand.grid(coin1=coin,coin2=coin,die1=1:6,die2=1:20)
token_colors=c("green","blue","red")
token_numbers=1:5
token_letters=c("A","B")
S = expand.grid(color=token_colors, number=token_numbers, letter=token_letters)
nrow(S)
S
savehistory("N:/321_su19_data/20190521_in_class.Rhistory")