for (n in 1:length(mylist(whatout=1))) {print(paste(attr(mylist(whatout=1)[[n]], 'name'), round(ComputeNEC(toupper(c2s(mylist(whatout=1)[[n]]))),3)), sep=': ')}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.