# NOT RUN {
data(neuroblastoma, package="neuroblastoma")
selectedData <- subset(neuroblastoma$profiles, profile.id=="1" & chromosome=="1")
opart::opart_gaussian(data=selectedData$logratio, penalty=1)
# }
Run the code above in your browser using DataLab