R/vecProfile.R

In alexsanchezpla/goProfiles: goProfiles: an R package for the statistical analysis of functional profiles

`vecProfile` <-
function (exp.Prof){
    vecProf <- exp.Prof$Freq[-length(exp.Prof$Freq)]
    names(vecProf)<-exp.Prof$res[-length(exp.Prof$res)]
    attr(vecProf, "n")<-sum(vecProf)
    vecProf <-vecProf/attr(vecProf, "n")
}