Big thanks to all the respondents for their help with my problem last week. Based on their suggestions it seems that the way to solve my problem is to use the following commands:
gp <- gridparameters(obj) gp <- round(gp,3) GT <- with(gp, GridTopolopy(cellcentre.offset, cellsize, cells.dim)) obj <- SpatialGridDataFrame(GT, slot(obj,"data")) kind regards, David Dr David Clifford Research Scientist CSIRO Division of Mathematics, Informatics and Statistics Phone: +61 7 3214 2816 | Fax: +61 7 3214 2855 david.cliff...@csiro.au | www.csiro.au | www.csiro.au/people/David.Clifford.html Address: CSIRO Long Pocket Laboratories, 120 Meiers Road, INDOOROOPILLY QLD 4068 New Postal Address from Nov 2010: CSIRO, EcoSciences Precinct, PO Box 2583, Brisbane, QLD 4001 New Street Address from Nov 2010: CSIRO, EcoSciences Precinct, 41 Boggo Road, Annerley, QLD 4103 New Phone from Nov 2010: +61 7 3833 5532 PLEASE NOTE The information contained in this email may be confidential or privileged. Any unauthorised use or disclosure is prohibited. If you have received this email in error, please delete it immediately and notify the sender by return email. Thank you. To the extent permitted by law, CSIRO does not represent, warrant and/or guarantee that the integrity of this communication has been maintained or that the communication is free of errors, virus, interception or interference. Please consider the environment before printing this email. _______________________________________________ R-sig-Geo mailing list R-sig-Geo@stat.math.ethz.ch https://stat.ethz.ch/mailman/listinfo/r-sig-geo
