# NOT RUN {
fNameData <- system.file ("extdata", "data-capitals.tsv", package="soundcorrs")
fNameTrans <- system.file ("extdata", "trans-common.tsv", package="soundcorrs")
readData <- read.table (fNameData, header=TRUE)
readTrans <- read.transcription (fNameTrans)
ger <- scOne (readData, "German", "ALIGNED.German", readTrans)
# }
Run the code above in your browser using DataLab