# NOT RUN {
library(crmReg)
data(topgear)
topgear_centered_scaled <- daprpr(topgear, center.type = "median", scale.type = "qn")
boxplot(topgear_centered_scaled)
attributes(topgear_centered_scaled)$Type
attributes(topgear_centered_scaled)$Center
attributes(topgear_centered_scaled)$Scale
# }
Run the code above in your browser using DataLab