Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- normal = rnorm(1000)
- t.student = rt(1000,5)
- curve(dt(x,5),-7,7)
- curve(dnorm(x),-7,7,add=T,col="green")
- qqnorm(normal)
- qqline(normal)
- qqnorm(t.student)
- qqline(t.student)
- ## 5
- erupcion = faithful[,1]
- mean(erupcion)
- median(erupcion)
- mean(erupcion, trim=0.1)
- sd(erupcion)
- var(erupcion)
- hist(erupcion, breaks=20, freq=F, col="grey80")
- lines(density(erupcion, bw=0.1), col="red")
- plot(ecdf(erupcion))
- m1 = erupcion[erupcion <= 3]
- m2 = erupcion[erupcion > 3]
- boxplot(m1, m2)
Add Comment
Please, Sign In to add comment