# NOT RUN {
# read sample data in the "wide format"
fNameData <- system.file ("extdata", "data-capitals.tsv", package="soundcorrs")
readData <- read.table (fNameData, header=TRUE)
# read the sample transcription
fNameTrans <- system.file ("extdata", "trans-common.tsv", package="soundcorrs")
readTrans <- read.transcription (fNameTrans)
# make out of them a soundcorrs object
ger <- soundcorrs (readData, "German", "ALIGNED.German", readTrans)
pol <- soundcorrs (readData, "Polish", "ALIGNED.Polish", readTrans)
spa <- soundcorrs (readData, "Spanish", "ALIGNED.Spanish", readTrans)
dataset <- merge (ger, pol, spa)
# }
Run the code above in your browser using DataLab