uses ReporteRs
to create slides
1 2 | generateFeatureEffectsSlides(doc, eff, nToShow = length(eff), rows = 1,
cols = 1, baseTitle = "Feature effects")
|
1 2 3 4 5 6 7 8 9 10 11 | df<-mtcars
df$am<-as.factor(df$am)
model<-glm(vs ~ am*mpg, data=df, family=binomial)
probs<-model$fit
eff = binaryClassifierEffect(probs,df,c('am','mpg'))
doc <-getAApowerpointTemplate()
doc = generateFeatureEffectsSlides(doc,eff, nToShow = 12, rows = 2, cols = 3)
writeDoc(doc, file = "test.pptx")
msg = buildhtmlmsg("", "test.pptx")
RQuantSendMail("ivan.liuyanfeng@gmail.com", subject = "test pptx", msg)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.