task1.R

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

# Load IPL matches dataset
matches <- read.csv("matches.csv")

# Filter matches that ended in a tie and went to a super over
super_over_ties <- matches %>%
  filter(result == "tie" & dl_applied == 0)

# Count the number of super over ties
super_over_ties_count <- nrow(super_over_ties)

# Print the results
cat("Number of matches that ended in a tie and played a super over:", super_over_ties_count, "\n")

## Number of matches that ended in a tie and played a super over: 7