# NOT RUN {
# Example data provided with package
data(CTTdata)
data(CTTkey)
# Data scored to demonstrate function
scores <- score(CTTdata,CTTkey)$score # obtain the scores
# the targeted mean=3, standard deviation=1
score.transform(scores,3,1)
# the score should be transformed by normalized precentile
score.transform(scores,3,1,TRUE)
# }
Run the code above in your browser using DataLab