Guys,

I select 70% of my data and keep 30% of it for model validation.

mydata <- read.csv(file.choose(), header=TRUE)
select <- sample(nrow(mydata), nrow(mydata) * .7)
data70 <- mydata[select,]  # select
data30 <- mydata[-select,]  # testing
temp.glm <- glm(Death~Temperature, data=data70,
family=binomial(link="logit"))

library(ROCR)  # ROC curve and assessment of my prediction
pred <- prediction(data30$pred, data30$Death)
perf <- performance(pred,"tpr","fpr")
plot(perf); abline(0, 1, col="red")
attributes(performance(pred, 'auc'))$y.values[[1]] # area under the ROC

How do i make a loop so that the process could be repeated several time,
producing randomly ROC curve and under ROC values?

	[[alternative HTML version deleted]]

