complete.list <-
function (data.d)
{
return(attr(data.d, "complete.list"))
}
#
#
`complete.list<-` <-
function (data.ld, value)
{
attr(data.ld, "complete.list") <- value
return(data.ld)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.