dataframe

elements <- read.csv(file.path("D:","datasets.csv"))
df<- data.frame(elements$Rows, elements$Cols)
colnames(df) <- c("Source","Destination")
print(df[1:4,1:2])

##   Source Destination
## 1     60           3
## 2    570           6
## 3     12           1
## 4     24           1