data <- cars$speed
library(Transform)
out <- ssTransform(data)
out$lambda.hat # the estimate of Square Root parameter based on Shapiro-Wilk test statistic
out$p.value # p.value of Shapiro-Wilk test for transformed data
out$tf.data # transformed data set
Run the code above in your browser using DataLab