as.numeric(data[2,]

data <- data.frame(Names=c('Train','Car', 'Plane', 'Bicycle'),
                   Day1 = c(15,22,36,22),
                   Day2 = c(33,57,2,41),
                   Day3 = c(87,32,15,25),
                   Day4 = c(14,2,6,33),
                   Day5 = c(41,76,11,44),
                   Day6 = c(11,12,35,25),
                   Day7 = c(52,2,42,55))

> data[2,]
  Names Day1 Day2 Day3 Day4 Day5 Day6 Day7
2   Car   22   57   32    2   76   12    2

> as.numeric(data[2,])
[1]  2 22 57 32  2 76 12  2

mat <- as.matrix(data[, -1])
rownames(mat) <- data[, 1]
mat[2,]