3-Ritmo de carrera

En la siguiente función se ejemplifica un posible uso de las funciones floor y paste. La primera regresa el mayor entero no mayor al número ingresado.
Con esta función pueden saber a qué ritmo promedio se debe de correr para terminar alguna carrera en el tiempo planeado.
########################################
#d=1,3,5,10,16,21,35,42, etc. kms
#h=horas; m=minutos; s=segundos
#Dada una distancia y el tiempo en que
#se quiere recorrer dicha distancia
#se da el tiempo en el que se tiene que
#correr x km
########################################
minutosxkm=function(d,h,m,s){
  tiempo=h*60+m+s/60
  mxk=tiempo/d
  a=mxk/60
  horas=floor(a)
  b=a-horas
  c=b*60
  minutos=floor(c)
  d=c-minutos
  segundos=d*60
  if(horas>0){
    paste("Debes de recorrer en", horas, "horas",
          minutos,"minutos",segundos,"segundos el km.")
  }else{
    paste("Debes de recorrer en",
          minutos,"minutos",segundos,"segundos el km.")
  }
}
#EJEMPLO
minutosxkm(10,0,30,0)