a<-list(aa=1,bb=2,cc=3)
a
## $aa
## [1] 1
##
## $bb
## [1] 2
##
## $cc
## [1] 3
max(sample(1:100,30))
## [1] 98
? sample()
## starting httpd help server ... done
rnorm(10)
## [1] -0.07630285 0.29162518 -2.44258357 0.09312575 -0.62388769 0.22126846
## [7] -0.54121174 0.88528511 -0.80872489 0.70200983
set.seed(5)
random<-rnorm(10, mean=50,sd=10)
random
## [1] 41.59145 63.84359 37.44508 50.70143 67.11441 43.97092 45.27834 43.64629
## [9] 47.14226 51.38108
se<-function(x){
v<-var(x)
n<-length(x)
return(sqrt(v/n))
}
mySample<-rnorm(100, mean=20,sd=4)
mySample
## [1] 24.91052 16.79288 15.67843 19.36986 15.71296 19.44406 17.61075 11.26413
## [9] 20.96327 18.96258 23.60205 23.76748 25.87185 22.82704 23.27604 18.82607
## [17] 25.67436 25.99510 17.37167 16.58882 21.26366 24.43878 28.86184 24.86841
## [25] 25.91689 23.80630 15.96187 11.99811 12.95126 19.42957 26.20024 16.79031
## [33] 19.70168 27.58267 18.17372 22.24889 16.45197 18.15902 17.10269 19.72316
## [41] 25.85299 20.75090 24.08809 17.63266 19.55120 16.30019 23.01322 19.54956
## [49] 19.74364 20.93310 15.45367 23.41932 17.68652 21.98545 16.95977 18.63445
## [57] 11.59068 18.79319 14.91047 18.88134 19.18361 19.09754 21.38811 20.12947
## [65] 21.65413 19.37861 23.89394 20.48436 20.75669 17.74846 21.99366 13.03079
## [73] 23.90212 19.90367 22.70274 17.15876 29.54893 18.10627 19.69691 17.91264
## [81] 23.70419 15.75036 22.22814 23.60292 23.95978 21.53443 18.61366 17.83924
## [89] 19.26978 19.76280 12.01845 24.54125 22.70318 20.83393 19.76862 23.57525
## [97] 19.08454 12.13739 16.98596 25.12061
se(mySample)
## [1] 0.3875538
temp<-function(f){
celsius<-(5/9)*(f-32)
return(celsius)
}
vector<-c(12,67,78,100)
vector
## [1] 12 67 78 100
temp(vector)
## [1] -11.11111 19.44444 25.55556 37.77778
x<-rnorm(100)
y<-rnorm(100)
plot(x,y)

plot(x,y, xlab= "This is the x axis", ylab="This is the y axis", main="Plot of X vs Y")

g<-c("f","f","m","f","m")
sex<-factor(g,levels=c("f","m"))
sex
## [1] f f m f m
## Levels: f m
h<-c("adult","juvenile","adult","juvenile","adult")
age<-factor(h,levels=c("adult","juvenile"))
table(g,h)
## h
## g adult juvenile
## f 1 2
## m 2 0