data1 <- read.csv("Toyota.csv")

print(data1)

print(is.data.frame(data1))

print(nco1(data1))

print(nrow(data1))

print(max(data1SKM))

maxDetails <- subset(data1, KM == max(KM))

print(maxDetails)