fuso<-function(x) ##para coordenadas do Oeste
{
cat(" Lembre-se em digitar a longitude como no exemplo: 47.2217 ao invés de 47º22’17”W ")
a=floor(x/6)
fuso.x=30-a
cat("\t","\n","\t","O fuso é: ","\t")
return (fuso.x)
}

#para dados do leste, você pode altererar o sinal para adiçao ao invés de subtração
#Exemplo: fuso.x=30+a