u <- seq(0.01,0.99,by=0.01)
plot(u,getScores(wscores,u),type='l',main='Wilcoxon Scores')
plot(u,getScores(nscores,u),type='l',main='Normal Scores')
data(wscores)
x<-runif(50)
y<-rlogis(50)
rfit(y~x,scores=wscores)
x<-rnorm(50)
y<-rnorm(50)
rfit(y~x,scores=nscores)
Run the code above in your browser using DataLab