dataPAE <- apply(dataPAEc,2,SumTrue)
colnames(
dataPAEc$filas <- row.names(dataPAEc)
rownames(
dataPAEc[,1]
)
) %in% labels(dataPAE)[which(dataPAE==T)]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.