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