# NOT RUN {
x <- rnorm(10)
penaltyLearning::featureVector(x)
if(requireNamespace("neuroblastoma")){
data(neuroblastoma, package="neuroblastoma", envir=environment())
one <- subset(neuroblastoma$profiles, profile.id=="1" & chromosome=="1")
(f.vec <- penaltyLearning::featureVector(one$logratio))
}
# }
Run the code above in your browser using DataLab