> head(conditions)
dataset population auc samp_size prevalence
1 pop1_6 pop1 0.6 50 0.05
2 pop1_7 pop1 0.7 50 0.05
3 pop1_8 pop1 0.8 50 0.05
4 pop1_9 pop1 0.9 50 0.05
5 pop2_6 pop2 0.6 50 0.05
6 pop2_7 pop2 0.7 50 0.05
> setwd('E:/Banco/cutoff/datasets')
# O problema começa aqui onde eu preciso amostrar de diversos bancos de dados em sequencia armazenados na área de trabalho, mas não consigo fazer isso de forma elegante. então eu acabei usando o parse mas antes preciso salvar o nome do banco no disco, e quando consigo fazer isso vem um aviso que não consigo entender.
# Aqui deveria começar o loop seguindo as condições do banco conditions.
> cat(conditions[1,1],file="expr"); dataux <- eval(parse(file="expr"))
Mensagens de aviso perdidas:
In readLines(file) : linha final incompleta encontrada em 'expr'
> with <- sample(dataux[which(dataux$reference==1),2],ceiling(conditions[1,4]*conditions[1,5]),T)
> without <- sample(dataux[which(dataux$reference==0),2],conditions[1,4]*(1-conditions[1,5]),T)
> with <- cbind(reference=1,test=with)
> without <- cbind(reference=0,test=without)
> tempdata <- data.frame(rbind(with,without))
> write.csv2(tempdata,paste0(conditions[1,1],'_',conditions[1,4],'_',substr(conditions[1,5],3,4),'.csv'),row.names = F)
>