# knitr::opts_chunk$set(
#   collapse = TRUE,
#   comment = "#>"
# )
library(CbKST)
library(kstMatrix)

exampledata$mu

fpath <- system.file("extdata", "skillmap.ods", package="CbKST")
sm <- read_skillmultimap(fpath)
sm
class(sm)
fpath <- system.file("extdata", "multimap.ods", package="CbKST")
mm <- read_skillmultimap(fpath)
mm
class(mm)

cbkst_comp2perf(c(1,1,0,0), exampledata$mu)
perf <- c(1,1,1,0,0)
names(perf) <- c("z", "y", "x", "w", "v")
cbkst_perf2comp(perf, exampledata$multi, exampledata$cspace)
cbkst_simple_perf2comp(perf, exampledata$mu)

cbkst_performancestructure(exampledata$mu)
cbkst_performancestructure(exampledata$mu, comp=exampledata$cspace)
cbkst_competencestructure(exampledata$multi)
cbkst_competencestructure(exampledata$multi, perf=exampledata$pspace)

exampledata

fpath <- system.file("extdata", "skillmap.ods", package="CbKST")