data("discoveries")
discoveries
## Time Series:
## Start = 1860 
## End = 1959 
## Frequency = 1 
##   [1]  5  3  0  2  0  3  2  3  6  1  2  1  2  1  3  3  3  5  2  4  4  0  2  3  7
##  [26] 12  3 10  9  2  3  7  7  2  3  3  6  2  4  3  5  2  2  4  0  4  2  5  2  3
##  [51]  3  6  5  8  3  6  6  0  5  2  2  2  6  3  4  4  2  2  4  7  5  3  3  0  2
##  [76]  2  2  1  3  4  2  2  1  1  1  2  1  4  4  3  2  1  4  1  1  1  0  0  2  0

Question 1

The data set spans over a time series of 100 years,from 1860 to 1959.

Question 2

In 1863, there were 2 discoveries.

Question 3

Are there any distinct trends or changes in the great discoveries over time? Are there any inclines/declines during certain time periods?

max (discoveries)
## [1] 12

Question 4

The largest number of great discoveries recorded by the World Almanac and Book of Facts is 12

plot (discoveries)

Question 5

The largest number of great discoveries was made before 1900, during the 19th century.

Question 6

This is a time series plot.The x-axis shows the time in years, ranging from 1860 to 1960. The y-axis shows the number of discoveries made in a said year, ranging from 0 to 12. The graph shows fluctuation over the years with the peak happening around the 1880s. From the 1930s to 1960, the number of discoveries appears to generally decline, with the number of discoveries hovering around 4. In general, the graph reflects a general story of inconsistent but still productive discovery breakthroughs and innovation. The pattern of the graph could potentially correlate to confounding variables like wars, depressions, and scientific or technological breakthroughs.

mean(discoveries)
## [1] 3.1

Question 7

The average/mean number of great discoveries in this data set is 3.1 discoveries per year.

min(discoveries)
## [1] 0

Question 8

The smallest/min number of great discoveries in this data set is 0. No great discoveries were recorded in at least one year.

data("faithful")

Question 9

The data set has 272 rows (case) and 2 columns (variable).

Question 10

The data set has 2 numeric variables, eruptions and waiting. Eruptions uses decimal numbers to show the duration of each eruption. The waiting variable shows the number of minutes until the next eruption. It has no categorical variables.

faithful$waiting
##   [1] 79 54 74 62 85 55 88 85 51 85 54 84 78 47 83 52 62 84 52 79 51 47 78 69 74
##  [26] 83 55 76 78 79 73 77 66 80 74 52 48 80 59 90 80 58 84 58 73 83 64 53 82 59
##  [51] 75 90 54 80 54 83 71 64 77 81 59 84 48 82 60 92 78 78 65 73 82 56 79 71 62
##  [76] 76 60 78 76 83 75 82 70 65 73 88 76 80 48 86 60 90 50 78 63 72 84 75 51 82
## [101] 62 88 49 83 81 47 84 52 86 81 75 59 89 79 59 81 50 85 59 87 53 69 77 56 88
## [126] 81 45 82 55 90 45 83 56 89 46 82 51 86 53 79 81 60 82 77 76 59 80 49 96 53
## [151] 77 77 65 81 71 70 81 93 53 89 45 86 58 78 66 76 63 88 52 93 49 57 77 68 81
## [176] 81 73 50 85 74 55 77 83 83 51 78 84 46 83 55 81 57 76 84 77 81 87 77 51 78
## [201] 60 82 91 53 78 46 77 84 49 83 71 80 49 75 64 76 53 94 55 76 50 82 54 75 78
## [226] 79 78 78 70 79 70 54 86 50 90 54 54 77 79 64 75 47 86 63 85 82 57 82 67 74
## [251] 54 83 73 73 88 80 71 83 56 79 78 84 58 83 43 60 75 81 46 90 46 74

Question 11

Based on the structure dataset\(column, it would be faithful\)eruptions

faithful$eruptions
##   [1] 3.600 1.800 3.333 2.283 4.533 2.883 4.700 3.600 1.950 4.350 1.833 3.917
##  [13] 4.200 1.750 4.700 2.167 1.750 4.800 1.600 4.250 1.800 1.750 3.450 3.067
##  [25] 4.533 3.600 1.967 4.083 3.850 4.433 4.300 4.467 3.367 4.033 3.833 2.017
##  [37] 1.867 4.833 1.833 4.783 4.350 1.883 4.567 1.750 4.533 3.317 3.833 2.100
##  [49] 4.633 2.000 4.800 4.716 1.833 4.833 1.733 4.883 3.717 1.667 4.567 4.317
##  [61] 2.233 4.500 1.750 4.800 1.817 4.400 4.167 4.700 2.067 4.700 4.033 1.967
##  [73] 4.500 4.000 1.983 5.067 2.017 4.567 3.883 3.600 4.133 4.333 4.100 2.633
##  [85] 4.067 4.933 3.950 4.517 2.167 4.000 2.200 4.333 1.867 4.817 1.833 4.300
##  [97] 4.667 3.750 1.867 4.900 2.483 4.367 2.100 4.500 4.050 1.867 4.700 1.783
## [109] 4.850 3.683 4.733 2.300 4.900 4.417 1.700 4.633 2.317 4.600 1.817 4.417
## [121] 2.617 4.067 4.250 1.967 4.600 3.767 1.917 4.500 2.267 4.650 1.867 4.167
## [133] 2.800 4.333 1.833 4.383 1.883 4.933 2.033 3.733 4.233 2.233 4.533 4.817
## [145] 4.333 1.983 4.633 2.017 5.100 1.800 5.033 4.000 2.400 4.600 3.567 4.000
## [157] 4.500 4.083 1.800 3.967 2.200 4.150 2.000 3.833 3.500 4.583 2.367 5.000
## [169] 1.933 4.617 1.917 2.083 4.583 3.333 4.167 4.333 4.500 2.417 4.000 4.167
## [181] 1.883 4.583 4.250 3.767 2.033 4.433 4.083 1.833 4.417 2.183 4.800 1.833
## [193] 4.800 4.100 3.966 4.233 3.500 4.366 2.250 4.667 2.100 4.350 4.133 1.867
## [205] 4.600 1.783 4.367 3.850 1.933 4.500 2.383 4.700 1.867 3.833 3.417 4.233
## [217] 2.400 4.800 2.000 4.150 1.867 4.267 1.750 4.483 4.000 4.117 4.083 4.267
## [229] 3.917 4.550 4.083 2.417 4.183 2.217 4.450 1.883 1.850 4.283 3.950 2.333
## [241] 4.150 2.350 4.933 2.900 4.583 3.833 2.083 4.367 2.133 4.350 2.200 4.450
## [253] 3.567 4.500 4.150 3.817 3.917 4.450 2.000 4.283 4.767 4.533 1.850 4.250
## [265] 1.983 2.250 4.750 4.117 2.150 4.417 1.817 4.467

Question 12

We would use the command max(faithful$eruptions)

max(faithful$eruptions)
## [1] 5.1
plot(x=faithful$waiting, y=faithful$eruptions)

Question 13

If you had to wait 80 minutes in between Old Faithful eruption cycles, then geyser would erupt for around 4.0-4.5 times during its eruption cycle.

plot(x=faithful$waiting, y=faithful$eruptions, xlab= "The X Axis Label", ylab= "The Y Axis Label", col="blue")

Question 14

plot(x=faithful$waiting, y=faithful$eruptions, xlab= "Waiting Time in Minutes", ylab= "Number of Eruptions", col= "red")

Question 15

No,the individual shouldn’t assume that longer waiting times result in more eruptions. The scatter plot implies an upward trend/positive association between waiting time and number of eruptions. However, the data appears bi-modal, with 2 separate data clusters, 1 with short delays around 50-60 minutes with roughly 2 eruptions and another with 75-90 minute waits with around 4 eruptions. Yet, the gap between these 2 clusters during 60-70 minutes indicates the relationship is not linear or continuous across the 272 data set. So, despite the overall positive trend, the bi-modal distribution proves that longer waits do not always result in more eruptions during the cycle.