Как исправить ошибки маркировки POS?

Вы можете решить эту проблему рекурсивно.

euclids <- function(x,y){
        theMax = max(x,y)
        theMin = min(x,y)

        if (theMax == theMin) return (theMax)
        else return (euclids(theMin, theMax-theMin))
}