# NOT RUN {
# A fictional interest profile:
A <- c(70, 90, 120, 50, 60, 130)
names(A) <- c("R","I","A","S","E","C")
A
sco2let(A)
# which is the same as ...
A <- c(70, 90, 120, 50, 60, 130); names(A)
A
sco2let(A)
# But see ...
A <- c(70, 90, 120, 50, 60, 130)
names(A) <-c("c","e","s","i","a","r")
A
sco2let(A)
# other length of letter code ...
sco2let(A, len = 1)
sco2let(A, len = 6)
sapply(1:6, function(x){sco2let(A,x)})
# }
Run the code above in your browser using DataLab