function(x) { ifelse(abs(x) <= 1, 0, sign(x) * log10(abs(x))) }

[subbareddy]

function( x ) { ifelse ( abs ( x ) <= 1 , 0 , sign ( x ) * log10 ( abs ( x ))) }

if u know the solution for this please explain

[technocrat]

Hi, and welcome.

For future reference, please read FAQ: What's a reproducible example (`reprex`) and how do I do one? and, if applicable FAQ: Homework Policy

First, you want to give the function a name, say

my_func <- function(x) {....}

Second, are you sure you mean sign?

sign(-2:3)
#> [1] -1 -1  0  1  1  1

^{Created on 2020-02-11 by the reprex package (v0.3.0)}

If so, that's fine, and you'll get

my_func <- function( x ) { ifelse ( abs ( x ) <= 1 , 0 , sign ( x ) * log10 ( abs ( x ))) }

my_func(-10)
#> [1] -1
my_func(0)
#> [1] 0
my_func(10)
#> [1] 1

^{Created on 2020-02-11 by the reprex package (v0.3.0)}

If you want sin instead of sign

my_func <- function( x ) { ifelse ( abs ( x ) <= 1 , 0 , sin ( x ) * log10 ( abs ( x ))) }

my_func(-10)
#> [1] 0.5440211
my_func(0)
#> [1] 0
my_func(10)
#> [1] -0.5440211

^{Created on 2020-02-11 by the reprex package (v0.3.0)}