Nothing
trimpartt<-function(x,con){
#
# This function is used by other functions described in chapter 6.
#
trimpartt<-sum(con*x)
trimpartt
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.