xxxxxxxxxx
print(r.eval("""
model.lm<-lm(dist~speed,data=cars)
cor.test(cars$speed,model.lm$residuals)
"""))
No comments:
Post a Comment