R directedScale