Rename column values

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(ndf)
ndf$NewColumn[ndf$NewColumn == TRUE] <- FALSE
print(ndf)

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