data(freqsNLngm)
x <- profiles(list(D1S1656="12/15",D2S441="11/14",D2S1338="19/19",D3S1358="16/18",
FGA="22/24",D8S1179="11/12",D10S1248="13/14",TH01="7/9",VWA="16/17",
D12S391="17/20",D16S539="12/13",D18S51="13/17",
D19S433="13/14",D21S11="27/31.2",D22S1045="15/16"),
labels = get.labels(freqs = freqsNLngm))
x
Run the code above in your browser using DataLab