tests/testdata/create_test_arrays.R

library(lpjmlkit)

# Create test_array
output <- read_io(filename = "../testdata/output/pft_npp.bin.json")
saveRDS(output$as_array(), "../testdata/test_array.rds")

# Create test_array_lonlat
output <- read_io(filename = "../testdata/output/pft_npp.bin.json")
output$transform(to = "lon_lat")
saveRDS(output$data, "../testdata/test_array_lonlat.rds")

Try the lpjmlkit package in your browser

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

lpjmlkit documentation built on March 31, 2023, 9:35 p.m.