Skip to content
Snippets Groups Projects
Commit de2fee0d authored by Sajjad Ghaffarinasabsharabiani's avatar Sajjad Ghaffarinasabsharabiani
Browse files

Upload New File

parent 7cd29964
No related branches found
No related tags found
No related merge requests found
#!/usr/bin/Rscript
library(methods)
library(sybilSBML)
library(parallel)
f <- dir("../sourceData/models", pattern="*.xml", full.names=T)
m <- mclapply(f, function(x){
tryCatch(readSBMLmod(x), error=function(e) NULL )
}
)
names(m) <- gsub("\\.xml", "", gsub(".*/models/", "", f))
cat("Problem with following models:\n")
err <- !sapply(m, is, "modelorg")
print(f[err])
m <- m[sapply(m, is, "modelorg")]
save(m, file="models.Rdata")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment