R/read.obj.r

Defines functions read.obj

read.obj <- function(file)
{   
    test <- read.table(file, nrows=50)
    if(length(grep(",",test[30:50,2])) != 0)
        out <- read.table(file,dec=",")
    else
        out <- read.table(file)
    
    return(out)
}
zarquon42b/Morpho documentation built on Oct. 25, 2024, 6:04 a.m.