## create a data.frame with test observations
(testsFrame <- data.frame(type = c("CT", "ST", "ECT"),
result = c("E-M", "M", "P"),
score = c(10, NA, 12),
fract_char = c("SP", NA, NA),
depth = c(40, 40, 40),
comment = c("some comment on first test", "", "")))
## create snowprofileTests object
tests <- snowprofileTests(testsFrame)
## create snowprofile object containing test results and check resulting object:
snowprofile(tests = tests)
Run the code above in your browser using DataLab