Summary for new frame

elements <- read.csv(file.path("D:","datasets.csv"))
df<- data.frame(elements$Rows, elements$Cols)
colnames(df) <- c("Source","Destination")
ndf <- df[1:4,1:2]
NewColumn <- c(TRUE, TRUE, TRUE, TRUE)
ndf$NewColumn  <- NewColumn
print('SUMMARY of new data frame is below :')

## [1] "SUMMARY of new data frame is below :"

summary(ndf)

##      Source       Destination   NewColumn     
##  Min.   : 12.0   Min.   :1.00   Mode:logical  
##  1st Qu.: 21.0   1st Qu.:1.00   TRUE:4        
##  Median : 42.0   Median :2.00                 
##  Mean   :166.5   Mean   :2.75                 
##  3rd Qu.:187.5   3rd Qu.:3.75                 
##  Max.   :570.0   Max.   :6.00

paste ('MEAN of Source is :', mean(ndf$Source))

## [1] "MEAN of Source is : 166.5"

paste ('MEAN of Destination is :', mean(ndf$Destination))

## [1] "MEAN of Destination is : 2.75"

paste ('MEDIAN of Source is :', median(ndf$Source))

## [1] "MEDIAN of Source is : 42"

paste ('MEDIAN of Destination is :', median(ndf$Destination))

## [1] "MEDIAN of Destination is : 2"