Revision c9196413
Added by Benoit Parmentier over 11 years ago
| climate/research/oregon/interpolation/GAM_fusion_function_multisampling_validation_metrics.R | ||
|---|---|---|
| 161 | 161 |
names(tb_mod_list)<-mod_names |
| 162 | 162 |
#mod_metrics<-do.call(cbind,tb_mod_list) |
| 163 | 163 |
#debug here |
| 164 |
mod_metrics<-do.call(cbindX,tb_mod_list) |
|
| 164 |
if(length(tb_mod_list)>1){
|
|
| 165 |
mod_metrics<-do.call(cbindX,tb_mod_list) #column bind the list?? |
|
| 166 |
}else{
|
|
| 167 |
mod_metrics<-tb_mod_list[[1]] |
|
| 168 |
} |
|
| 169 |
|
|
| 165 | 170 |
test_names<-lapply(1:length(mod_names),function(k) paste(names(tb_mod_list[[1]]),mod_names[k],sep="_")) |
| 171 |
#test names are used when plotting the boxplot for the different models |
|
| 166 | 172 |
names(mod_metrics)<-unlist(test_names) |
| 167 | 173 |
rows_total<-lapply(tb_mod_list,nrow) |
| 168 | 174 |
for (j in 1:length(metric_names)){
|
Also available in: Unified diff
validation metric script fix small bug following run with one model