## Empty snowprofile:
snowprofile()
## Test profile:
testProfile <- snowprofile(station = 'SARPstation', station_id = 'SARP007',
datetime = as.POSIXct('2019/04/01 10:00:00', tz = 'PDT'),
latlon = c(49.277223, -122.915084), aspect = 180,
layers = snowprofileLayers(height = c(10, 25, 50),
hardness = c(3, 2, 1),
gtype = c('FC', NA, 'PP')))
summary(testProfile)
plot(testProfile)
Run the code above in your browser using DataLab