nathan_modularity_issue001.R

rdapathgenerator <- function(years, dirpath = 'C:/Users/Nathan/Desktop/vax-p vax-d'){
    errMsg000 = "var 'year' has to be integer!"
    if(is.numeric(years)){
        if(all(years == as.integer(years))){
            years = as.integer(years)
        } else{
            stop(errMsg000) #numeric but not integer
        }
    } else stop(errMsg000) #not even numeric
    ### if necessary conditions are met:
    result = list()
    for(year in years){
        rdafname = paste('va', year, sep='')
        rdafextension = 'RData'
        value = list(
            fullpath=file.path(dirpath, paste(rdafname,'.', rdafextension, sep=''), fsep = .Platform$file.sep),
            filename=rdafname#, year=year, extension=rdafextension
        )
        #print(newvalue)
        result[[length(result)+1]] = value
    }
    return(result)
}

years_seq = seq(2000,2014)
for(rdafile in rdapathgenerator(years=years_seq)){
    load(rdafile$fullpath)
    data_va00<-va
    data_va00[-c(415),]<-0
    data_vach_ELET0<-data_va00
    save(data_vach_ELET0, file=paste('data_vach_ELET_', rdafile$filename, '.RData', sep=''))
    load(rdafile$fullpath)
    data_va00<-va
    data_va00[-c(247),]<-0
    data_vabr_ELET00<-data_va00
    save(data_vabr_ELET00, file=paste('data_vabr_ELET_', rdafile$filename, '.RData', sep=''))
    load(rdafile$fullpath)
    data_va00<-va
    data_va00[-c((297),(2369)),]<-0
    data_vausa_ELET00<-data_va00
    save(data_vausa_ELET00, file=paste('data_vausa_ELET_', rdafile$filename, '.RData', sep=''))
    load(rdafile$fullpath)
    data_va00<-va
    data_va00[-c(1361),]<-0
    data_vajap_ELET00<-data_va00
    save(data_vajap_ELET00, file=paste('data_vajap_ELET_', rdafile$filename, '.RData', sep=''))
    load(rdafile$fullpath)
    data_va00<-va
    data_va00[-c(577),]<-0
    data_vager_ELET00<-data_va00
    save(data_vager_ELET00, file=paste('data_vager_ELET_', rdafile$filename, '.RData', sep=''))
    load(rdafile$fullpath)
    data_va00<-va
    data_va00[-c(seq(1137,1232,56),(1417),(2313)),]<-0
    data_va_OT_AS_elet00<-data_va00
    save(data_va_OT_AS_elet00, file=paste('data_vaot_as_ELET_', rdafile$filename, '.RData', sep=''))
    load(rdafile$fullpath)
    data_va00<-va
    data_va00[-c(seq(73,224,56),(353),seq(465,560,56),seq(633,1120,56),seq(1249,1344,56),seq(1473,1624,56),seq(1697,2016,56),seq(2089,2240,56)),]<-0
    data_va_OT_EU_elet00<-data_va00
    save(data_va_OT_EU_elet00, file=paste('data_vaot_eu_ELET_', rdafile$filename, '.RData', sep=''))
    load(rdafile$fullpath)
    data_va00<-va
    data_va00[c((17),(1641),(2089),(2257),(2425)),]<-0
    data_vaROW_elet00<-data_va00
    save(data_vaROW_elet00, file=paste('data_varow_ELET_', rdafile$filename, '.RData', sep=''))
}