tests/testthat/test-general.R

data("und_intnet_chicago")

test_that('ApplyWindow function',{
  intnet <- und_intnet_chicago
  sub_intnet_chicago <- ApplyWindow(intnet, 
                                    x_coords = c(300, 900), 
                                    y_coords = c(500, 1000))
  
  expect_s3_class(sub_intnet_chicago, c("intensitynetUnd", "intensitynet"), exact = TRUE)
})

Try the intensitynet package in your browser

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

intensitynet documentation built on April 11, 2023, 6:07 p.m.