HW 1: Basic Statistics in R

Q 1

#input
price <- c(9000, 9500, 9400, 9400, 10000, 9500, 10300, 10200)

# minimun, mean and maximum
summary(price)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   9000    9400    9500    9662   10050   10300 

mean(price) > 9500

[1] TRUE

Q 2

# input
x <- c(1, 8, 2, 6, 3, 8, 5, 5, 5, 5)

# (X1 + X2 + ... + X10)/10 (use sum)
sum(x)/10

[1] 4.8

#Find log 10(Xi) for each i
log10(x)

 [1] 0.0000000 0.9030900 0.3010300 0.7781513 0.4771213 0.9030900 0.6989700 0.6989700 0.6989700
[10] 0.6989700

# Find (Xi - 4.4)/2.875 for each i
(x - 4.4)/2.875

 [1] -1.1826087  1.2521739 -0.8347826  0.5565217 -0.4869565  1.2521739  0.2086957  0.2086957
 [9]  0.2086957  0.2086957

# Find the difference between the largest and smallest values of x
diff(range(x))

[1] 7