## create a data.frame with instability sign observations
(signsFrame <- data.frame(type = c("Na", "whumpf", "cracking", "Sa"),
present = c(FALSE, TRUE, FALSE, FALSE)))
## create snowprofileInstabilitySigns object
instabilitySigns <- snowprofileInstabilitySigns(signsFrame)
## create snowprofile object containing instability signs and check resulting object:
snowprofile(instabilitySigns = instabilitySigns)
Run the code above in your browser using DataLab