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)
}

Try the Morpho package in your browser

Any scripts or data that you put into this service are public.

Morpho documentation built on June 22, 2024, 7:19 p.m.