task8.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 super over and the team batting first won
super_over_winners_batting_first <- matches %>%
  filter(result == "tie" & dl_applied == 0 & toss_decision == "field" & winner == toss_winner)

# Print the results
cat("Teams that won the super over battle while batting first:\n")

## Teams that won the super over battle while batting first:

print(super_over_winners_batting_first %>% select(winner, season, player_of_match))

##                        winner season player_of_match
## 1 Royal Challengers Bangalore   2013         V Kohli
## 2             Kings XI Punjab   2015        SE Marsh