Формат SPS репрезентативной последовательности из seqrep

Вы можете распечатать вывод с аргументом format = 'SPS'. Я иллюстрирую biofam данными

data(biofam)
biofam.lab <- c("Parent", "Left", "Married", "Left+Marr",
                "Child", "Left+Child", "Left+Marr+Child", "Divorced")
biofam.seq <- seqdef(biofam, 10:25, labels=biofam.lab)

## Computing the distance matrix
costs <- seqcost(biofam.seq, method="INDELSLOG")
biofam.om <- seqdist(biofam.seq, method="OM", sm=costs$sm, indel=costs$indel)

## Representative set using the neighborhood density criterion
biofam.rep <- seqrep(biofam.seq, diss=biofam.om, criterion="density")
print(biofam.rep, format="SPS")

##     Sequence         
## [1] (0,16)           
## [2] (0,9)-(3,1)-(6,6)
## [3] (0,6)-(1,10)     

И если вы хотите получить репрезентативные последовательности в форме SPS, вы можете использовать seqformat и seqconc:

biofam.rep.sps <- seqconc(seqformat(biofam.rep, to='SPS'))

Результатом является матрица с одним столбцом, в которой каждая репрезентативная последовательность хранится в виде строки символов.