plotOutcomeWeights {edl} | R Documentation |
Visualize the change of connection weights between a specific outcome and all cues.
Description
Visualize the change of connection weights between a specific outcome and all cues.
Usage
plotOutcomeWeights(
wmlist,
outcome,
select.cues = NULL,
init.value = 0,
add.labels = TRUE,
add = FALSE,
...
)
Arguments
wmlist |
A list with weightmatrices, generated by
|
outcome |
String: outcome for which to extract the connection weights. |
select.cues |
Optional selection of outcomes to limit the number
of connection weights that are returned. The value of NULL (default) will
return all connection weights. Note that specified values that are not in
the weightmatrices will return the initial value without error or warning.
Please use |
init.value |
Value of connection weights for non-existing connections. Typically set to 0. |
add.labels |
Logical: whether or not to add labels for the lines. Defaults to TRUE, see examples. |
add |
Logical: whether or not to add the lines to an existing plot. Defaults to FALSE (starting a new plot). |
... |
Optional graphical arguments, as specified in
|
Value
Optionally a list with label specifications is returned, which allows to plot your own labels. This may be helpful for very long labels, and for overlapping lines.
Author(s)
Jacolien van Rij
See Also
plotCueWeights
, getWeightsByOutcome
,
getWeightsByCue
Examples
# load example data:
data(dat)
# add obligatory columns Cues, Outcomes, and Frequency:
dat$Cues <- paste("BG", dat$Shape, dat$Color, sep="_")
dat$Outcomes <- dat$Category
dat$Frequency <- dat$Frequency1
head(dat)
dim(dat)
# now use createTrainingData to sample from the specified frequencies:
train <- createTrainingData(dat)
# this training data can actually be used train network:
wm <- RWlearning(train)
# plot connection weights for cue = 'car':
plotOutcomeWeights(wm, outcome="vehicle")
# plot your own labels:
labels <- plotOutcomeWeights(wm, outcome="vehicle", add.labels=FALSE)
legend_margin('topright', legend=labels$labels, col=labels$col,
lwd=1, bty='n')
# change color and select outcomes:
out <- getValues(train$Cues, unique=TRUE)
out <- out[! out %in% c("car", "bicycle")]
labels <- plotOutcomeWeights(wm, outcome="vehicle", add.labels=FALSE,
ylim=c(-.5,1),col=alpha(1), select.cues=out)
lab2 <- plotOutcomeWeights(wm, outcome="vehicle", add.labels=FALSE,
select.cues=c("car", "bicycle"), add=TRUE, col=2, lwd=2, xpd=TRUE)
legend_margin('topright', legend=c(labels$labels, c("car", "bicycle")),
col=c(labels$col, lab2$col), lwd=c(labels$lwd, lab2$lwd),
lty=c(labels$lty, lab2$lty))