4967963
1 2
powfunc <- function(x,a,b) a * x^b ipowfunc <- function(y,a,b) (y/a)^1/b
Contact - Imprint