# an example score
## Not run:
# FM100example<-exampleFM100
# userFM100values=cbind(FM100example[1,], FM100example[4,-22],
# FM100example[7,-22], FM100example[10,-22])
# userFM100values=as.vector(unlist(userFM100values))
# scoreFM100Graphic(userFM100values)
# ## End(Not run)
Run the code above in your browser using DataLab