# make a test TransferFunction
myfun = function(x) {x*x}
test = TransferFunction( myfun, sqrt, domain=c(0,3), range=c(0,9), id='test.TF' )
# print it
test
#-------------------- test.TF ---------------------#
## test.TF is a univariate TransferFunction.
## domain: [0,3] (x)
## range: [0,9] (y)
## invertible: Yes
## orientation: preserving
## range-test points = 1300, max(distance)=0.
## validation: Passed
# and now plot it
plot( test )
Run the code above in your browser using DataLab