data(summarytab)
funct<-sequences.functionality(data = summarytab$Functionality)
barplot(as.numeric(funct),xlab="",xlim=c(0,2),legend.text = colnames(funct),
col=c("orange","darkblue","gray"),xaxt="n",main="Functionality",ylab="proportion")
Run the code above in your browser using DataLab