Question 1

What is the greatest common factor of 104 and 130?

# install.packages("DescTools")
library(DescTools)
GCD(104,130)
## [1] 26

Question 2

Calculate descriptive statistics for the data below.

# install.packages("summarytools")
library(summarytools)
q2_data <- c(4,2,6,8,3,5,8,4,4,5,3,6,4,7,4,5,3,7,6,7,4,3,10,5,9)
descr(q2_data)
## Descriptive Statistics  
## q2_data  
## N: 25  
## 
##                     q2_data
## ----------------- ---------
##              Mean      5.28
##           Std.Dev      2.07
##               Min      2.00
##                Q1      4.00
##            Median      5.00
##                Q3      7.00
##               Max     10.00
##               MAD      1.48
##               IQR      3.00
##                CV      0.39
##          Skewness      0.53
##       SE.Skewness      0.46
##          Kurtosis     -0.69
##           N.Valid     25.00
##                 N     25.00
##         Pct.Valid    100.00