Please Aashish, if the last script I send you works,
send a copy to bioconductor@stat.math.ethz.ch
just in case It can help other people.
Thanks. Olivier
--   
________________________________________________________________________

Olivier G. Nuñez
nunez@est-econ.uc3m.es
Universidad Carlos III de Madrid [ Tel : +34 663 03 69 09 ]
Departamento de Estadistica [ Fax : +34 91 624 98 49 ]
Facultad de Ciencias Sociales
C/ Madrid 126 GETAFE 28903 SPAIN
Web Page: http://www.est-econ.uc3m.es/onunez

________________________________________________________________________


El 25/06/2007, a las 13:11, Aashish Dattani escribió:

> Hi Oliver,
> Thanks for responding. I tried using the script that you had sent in
> your previous mail. I am working on a windows machine and this is what
> i got on doing that:
>
>> require(pd.mapping50k.xba240)
> Loading required package: pd.mapping50k.xba240
> Loading required package: oligo
> Loading required package: Biobase
> Loading required package: tools
>
> Welcome to Bioconductor
>
>  Vignettes contain introductory material. To view, type
>  'openVignette()'. To cite Bioconductor, see
>  'citation("Biobase")' and for packages 'citation(pkgname)'.
>
> Loading required package: affyio
> Loading required package: splines
> Loading required package: BufferedMatrix
> Loading required package: BufferedMatrixMethods
> This is the oligo package
> debugging in: sqliteNewConnection(drv, ...)
> debug: {
>    if (!is.null(dbname))
>        dbname <- path.expand(dbname)
>    con.params <- as.character(c(dbname, as.integer 
> (loadable.extensions)))
>    drvId <- as(drv, "integer")
>    conId <- .Call("RS_SQLite_newConnection", drvId, con.params,
>        PACKAGE = "RSQLite")
>    con <- new("SQLiteConnection", Id = conId)
>    try({
>        if (!is.null(cache_size))
>            dbGetQuery(con, sprintf("PRAGMA cache_size=%d",
> as.integer(cache_size)))
>        if (is.numeric(synchronous))
>            nsync <- as.integer(synchronous)
>        else if (is.character(synchronous))
>            nsync <- pmatch(tolower(synchronous), c("off", "normal",
>                "full"), nomatch = 1) - 1
>        else nsync <- 0
>        dbGetQuery(con, sprintf("PRAGMA synchronous=%d", as.integer 
> (nsync)))
>    }, silent = TRUE)
>    con
> }
> Browse[1]>
> debug: if (!is.null(dbname)) dbname <- path.expand(dbname)
> Browse[1]>
> debug: con.params <- as.character(c(dbname, as.integer 
> (loadable.extensions)))
> Browse[1]>
> debug: drvId <- as(drv, "integer")
> Browse[1]>
> debug: conId <- .Call("RS_SQLite_newConnection", drvId, con.params,
>    PACKAGE = "RSQLite")
> Browse[1]>
> Error in sqliteNewConnection(drv, ...) : RS-DBI driver: (could not
> connect to dbname
> "E:/biocbld/bbs-2.0-bioc/R/library/pd.mapping50k.xba240/extdata/ 
> pd.mapping50k.xba240.sqlite"
> )
> Error : .onLoad failed in 'loadNamespace' for 'pd.mapping50k.xba240'
> [1] FALSE
>
>
> Any idea what is wrong with it? Any help in this regard will be  
> appreciated.
> Thanking you,
> Aashish Dattani


	[[alternative HTML version deleted]]

