GeneImport <- function()#filename, n, len)
{
    library(tkWidgets)    
    rawmat =  fileWizard()#matrix(scan(file=filename, what="", sep="\t"), nrow=rawn, ncol=rawlen, byrow=TRUE))
    rawdim=dim(rawmat)
    rawn=rawdim[1]
    rawlen=rawdim[2]

    n=rawn
    len=rawlen-2
    
    #convert table into matrix
    data = as.matrix(rawmat)
    geneids = data[1:rawn,1]
    expts = colnames(data)
    expts = expts[3:rawlen]
    data = data[1:rawn,3:rawlen]

    data = as.double(data)
    data = matrix(data, nrow=n, ncol=len)

    print(dim(data))
    GeneImport = list(data,geneids,expts)
}