# NOT RUN {
# prepare sample dataset
fTrans <- system.file ("extdata", "trans-common.tsv", package="soundcorrs")
fData <- system.file ("extdata", "data-capitals.tsv", package="soundcorrs")
tmp.ger <- read.soundcorrs (fData, "German", "ALIGNED.German", fTrans)
tmp.pol <- read.soundcorrs (fData, "Polish", "ALIGNED.Polish", fTrans)
dataset <- merge (tmp.ger, tmp.pol)
# prepare and run fitTable
models <- list (
"model A" = list (
formula = "Y ~ a/X",
start = list (list(a=1))),
"model B" = list (
formula = "Y ~ a/(1+exp(1)^X)",
start = list (list(a=1)))
)
fitTable (models, summary(dataset), 1, vec2df.rank)
# }
Run the code above in your browser using DataLab