1.

Loaded the data

load("F:\\R Course\\Datasets\\events.RData")

Create an Array

dur <- array(dim = c(15))

Loop through the data

dur[1] <- events$occur[1]
for(i in 2:15){
  dur[i] <- events$occur[i] - events$occur[i-1] 
}
dur
##  [1] 12  2  1 19 11  1 11  6 13 12 22  4 18  0  6

Creating the Dataset

evts <- cbind(events,dur)
evts
##    eventID occur dur
## 1        1    12  12
## 2        2    14   2
## 3        3    15   1
## 4        4    34  19
## 5        5    45  11
## 6        6    46   1
## 7        7    57  11
## 8        8    63   6
## 9        9    76  13
## 10      10    88  12
## 11      11   110  22
## 12      12   114   4
## 13      13   132  18
## 14      14   132   0
## 15      15   138   6