Nothing
## ---- echo=TRUE, eval=FALSE---------------------------------------------------
# library(devtools)
# install_github("sambaala/linkspotter")
## ---- echo=TRUE, eval=FALSE---------------------------------------------------
# library(devtools)
# library(httr)
# set_config(
# use_proxy(url="<my_proxy>", port=<my_proxy_port>)
# )
# install_github("sambaala/linkspotter")
## ---- echo=TRUE---------------------------------------------------------------
library(linkspotter)
## ---- echo=TRUE, eval=FALSE---------------------------------------------------
# help(package="linkspotter")
## ---- echo=TRUE---------------------------------------------------------------
maxNMI(iris$Sepal.Length,iris$Petal.Length)
## ---- echo=TRUE---------------------------------------------------------------
corCouples<-multiBivariateCorrelation(iris)
print(corCouples)
## ---- echo=TRUE---------------------------------------------------------------
corMatrixPearson<-corCouplesToMatrix(x1_x2_val = corCouples[,c('X1','X2',"pearson")])
print(corMatrixPearson)
## ---- echo=TRUE---------------------------------------------------------------
corMatrixMaxNMI<-corCouplesToMatrix(x1_x2_val = corCouples[,c('X1','X2',"MaxNMI")])
print(corMatrixMaxNMI)
## ---- echo=TRUE---------------------------------------------------------------
cl<-clusterVariables(corMatrix = corMatrixMaxNMI)
print(cl)
## ---- echo=TRUE---------------------------------------------------------------
linkspotterGraph(corDF = corCouples, variablesClustering = cl,
corMethod = "pearson", minCor = 0.25, smoothEdges = FALSE,
dynamicNodes = FALSE)
## ---- echo=TRUE---------------------------------------------------------------
linkspotterGraph(corDF = corCouples, variablesClustering = cl,
corMethod = "MaxNMI", minCor = 0.25, smoothEdges = F,
dynamicNodes = TRUE)
## ---- echo=TRUE, eval=FALSE---------------------------------------------------
# linkspotterUI(dataset = iris, corDF = corCouples,
# variablesClustering = cl, appTitle = "Linkspotter example")
## ---- echo=TRUE---------------------------------------------------------------
lsiris<-linkspotterComplete(iris)
## ---- echo=TRUE, eval=FALSE---------------------------------------------------
# lsiris<-linkspotterOnFile("iris.csv")
# summary(lsiris)
## ---- echo=TRUE---------------------------------------------------------------
summary(lsiris)
## ---- echo=TRUE, eval=FALSE---------------------------------------------------
# lsiris$launchShiny()
## ---- echo=TRUE, eval=FALSE---------------------------------------------------
# help(linkspotterComplete)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.