gfg.data <-
data.frame
(
GFG_Id =
c
(1:7),
GFG_Name =
c
(
"Damon"
,
"Joe"
,
"Jenna"
,
"Ryan"
,
"Bonnie"
,
"Stefan"
,
"William"
),
GFG_Sal =
c
(6200,5152,6110,7290,8485,7654,
2341),
Start_date =
as.Date
(
c
(
"2021-01-01"
,
"2016-06-27"
,
"2014-1-09"
,
"2017-02-14"
,
"2009-03-26"
,
"2019-06-27"
,
"2020-09-27"
)),
stringsAsFactors =
FALSE
)
print
(gfg.data)
gfg.data[ , 1, drop =
FALSE
]
gfg.data[ , 2, drop =
FALSE
]