td.factanal <- function(tdf, ...) {
if (!is.td.data.frame(tdf))
stop("'tdf' is not a td data frame")
df <- td.cov(tdf)
return(factanal(covmat = df, ...))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.