Toni Rosati

Geog 5023

Homework #1

rain <- c(16, 18, 14, 22, 27, 17, 19, 17, 17, 22, 20, 22)
rainDeviations <- rain - mean(rain)
rainDevsquared <- rainDeviations^2
variance <- mean(rainDevsquared)
sqrt(variance)

## [1] 3.394

in_to_cm <- function(someDataInInches) {
    return(someDataInInches/0.3937)  #complete the return statement
}
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