Create a tiny NetCdf example file

createNetCdf.R

library("RNetCDF")

nc <- create.nc("tiny.cdf")

dim.def.nc(nc, "scan_number", 2)
dim.def.nc(nc, "point_number", 10, unlim=TRUE)

var.def.nc(nc, "scan_index", "NC_INT", "scan_number")
var.def.nc(nc, "point_count", "NC_INT", "scan_number")
var.def.nc(nc, "scan_acquisition_time", "NC_DOUBLE", "scan_number")

var.def.nc(nc, "mass_values", "NC_DOUBLE", "point_number")
var.def.nc(nc, "intensity_values", "NC_INT", "point_number")

var.put.nc(nc, "scan_index", c(0,5))
var.put.nc(nc, "point_count", c(5, 5))
var.put.nc(nc, "scan_acquisition_time", c(1, 2))

var.put.nc(nc, "mass_values", 1:5, start=1, count=5)
var.put.nc(nc, "mass_values", 6:10, start=6, count=5)
var.put.nc(nc, "intensity_values", 11:15, start=1, count=5)
var.put.nc(nc, "intensity_values", 16:20, start=6, count=5)

close.nc(nc)