# show Pattern definition
showClass("Pattern")
# create simple Pattern objects
pattern1<-new("Pattern", sequence=c("h", "c", "p"))
pattern2<-new("Pattern", sequence=c("c", "p", "p"), probability=0.2)Run the code above in your browser using DataLab