HOMEWORK 1

## creating an object rain

rain <- c(16, 18, 14, 22, 27, 17, 19, 17, 17, 22, 20, 22)
rain

##  [1] 16 18 14 22 27 17 19 17 17 22 20 22

mean(rain)

## [1] 19.25

sum(rain)

## [1] 231

length(rain)

## [1] 12

## calculating standard deviation
dif <- rain - mean(rain)
dif

##  [1] -3.25 -1.25 -5.25  2.75  7.75 -2.25 -0.25 -2.25 -2.25  2.75  0.75
## [12]  2.75

dev.squa <- dif^2
dev.squa

##  [1] 10.5625  1.5625 27.5625  7.5625 60.0625  5.0625  0.0625  5.0625
##  [9]  5.0625  7.5625  0.5625  7.5625

sd <- (sum(dev.squa))/(length(rain))
sd

## [1] 11.52

sd1 = sqrt(sd)
sd1

## [1] 3.394

## function to convert data in inches to centimeters
in_to_cm <- function(rain) {
    return((rain)/0.3937)
}

in_to_cm(rain)

##  [1] 40.64 45.72 35.56 55.88 68.58 43.18 48.26 43.18 43.18 55.88 50.80
## [12] 55.88

###### creates a function to compute standard deviations

std <- function(rain) {
    return(sqrt(mean(((rain) - mean(rain))^2)))
}
std(rain)

## [1] 3.394