powered by
This is a function computing the negtive part of a variable.
neg.part(x)
A vector of response.
The negative part of a variable.
# NOT RUN { pt1 <- proc.time() ##Simulated data set.seed(12345) n=200 x = rnorm(n) obj <- neg.part(x) proc.time() - pt1 # }
Run the code above in your browser using DataLab