Njapau <- subset(mydat,mydat$Srvyr=="ZA.Njapau") duration = Njapau$Duration days = day(hms(duration))*1440 hours = hour(hms(duration))*60 mins = minute(