## ----srr-tags, eval = FALSE, echo = FALSE-------------------------------------
#  #' srr tags
#  #'
#  #'
#  #' @srrstats {G1.5} application to the wireless data set in the
#  #'                  associated paper

## ----message=FALSE------------------------------------------------------------
library(QuadratiK)
head(wireless)

## -----------------------------------------------------------------------------
wire <- wireless[,-8]
labels <- wireless[,8]
wire_norm <- wire/sqrt(rowSums(wire^2))
set.seed(2468)
res_pk <- pkbc(as.matrix(wire_norm),3:5)

## -----------------------------------------------------------------------------
set.seed(2468)
res_validation <- pkbc_validation(res_pk, true_label = labels)
res_validation$IGP
round(res_validation$metrics, 5)

## ----eval=FALSE---------------------------------------------------------------
#  help(pkbc_validation)

## ----fig.show = "hold", fig.width=6, fig.height=6-----------------------------
plot(res_pk, k = 4)

## ----fig.show = "hold", fig.width=8, fig.height=5-----------------------------
plot(res_pk, k=4, true_label = labels)

## -----------------------------------------------------------------------------
summary_clust <- stats_clusters(res_pk,4)

## -----------------------------------------------------------------------------
summary_clust