week 2

max(sample(1:100,30))

## [1] 99

sample(1:100,30)

##  [1]  5 97 73 75 87 44  8 46 29 91 99 85 38 77  3 24 26 32 88 96 94 90 56 51 62
## [26] 33 21 67  6 79

set.seed(123)

# Generate a random sample of 100 values from a normal distribution
mysample <- rnorm(100, mean = 20, sd = 4)
# Display the first few values in the sample
head(mysample)

## [1] 17.75810 19.07929 26.23483 20.28203 20.51715 26.86026

se<-function(x)
{v<-var(x)
n<-length(x)
return(sqrt(v/n))}
se(mysample)

## [1] 0.3651264