| Revision: | 957 |
| Committed: | Fri Feb 12 15:06:04 2010 UTC (12 years, 4 months ago) by duarte |
| Original Path: | trunk/src/proteinstructure/decoyScoring/score_corr_plots.R | File size: | 467 byte(s) |
| Log Message: | Added some useful tools to the default package from my workspace. More clean up. |
| Line | File contents |
|---|---|
| 1 | |
| 2 | |
| 3 | DECOYSETS<-c("4state_reduced", "fisa", "fisa_casp3", "hg_structal", "ig_structal", "ig_structal_hires", "lattice_ssfit") |
| 4 | |
| 5 | |
| 6 | for (set in DECOYSETS) { |
| 7 | files<-list.files(path = ".", pattern = paste(set,"_.*.scores",sep="")) |
| 8 | |
| 9 | cols=0 |
| 10 | if (length(files)%%2==0) { |
| 11 | cols=length(files)/2 |
| 12 | } else { |
| 13 | cols=(length(files)+1)/2 |
| 14 | } |
| 15 | par(mfrow = c(cols, cols)) |
| 16 | |
| 17 | for (file in files) { |
| 18 | data<-read.table(file) |
| 19 | plot(data$V2,data$V3,xlab="score",ylab="rmsd",main=file) |
| 20 | } |
| 21 | |
| 22 | } |