getDataPart(faithful) #the required data
eruption <- faithful[,1] #specifying eruption
KDE(eruption, method="naive" )
KDE(eruption, method="gaussian" )
densityplot(eruption, n=200)
densityplot(eruption, n=200, method="gaussian")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.