Description Usage Arguments Examples
Saves a Choices object to an external text file.
1 2 3 4 5 6 7 8 | saveChoices(object, output_file, choice_id_header, gamble_id_header,
outcome_id_header, probability_header, objective_consequence_header,
DELIMITER)
## S4 method for signature 'Choices'
saveChoices(object, output_file, choice_id_header,
gamble_id_header, outcome_id_header, probability_header,
objective_consequence_header, DELIMITER)
|
object |
Choices, an instance of a Choices class. |
output_file |
text, the output file for saving my_choices. |
choice_id_header |
text, the column name for the choice_id field in the output file. |
gamble_id_header |
text, the column name for the gamble_id field in the output file. |
outcome_id_header |
text, the column name for the outcome_id field in the output file. |
probability_header |
text, the column name for the probability field in the output file. |
objective_consequence_header |
text, the column name for the objective_consequence field in the output file. |
DELIMITER |
text, the delimiter character used to separate the columns in the output file. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | # This example creates the two Allais common consequence paradox choices,
# and saves them to an external text file.
choice_ids <- c(1, 1, 1, 1, 2, 2, 2, 2)
gamble_ids <- c(1, 1, 1, 2, 1, 1, 2, 2)
outcome_ids <- c(1, 2, 3, 1, 1, 2, 1, 2)
objective_consequences <- c(2500, 2400, 0, 2400,
2500, 0, 2400, 0)
probability_strings <- c("0.33", "0.66", "0.01", "1.0",
"0.33", "0.67", "0.34", "0.66")
my_choices <- Choices(choice_ids=choice_ids,
gamble_ids=gamble_ids,
outcome_ids=outcome_ids,
objective_consequences=objective_consequences,
probability_strings=probability_strings)
my_choices
my_output_file <- paste(tempdir(), "\\", "saved_choices.txt", sep="")
saveChoices(my_choices,
output_file=my_output_file,
choice_id_header="choice_id",
gamble_id_header="gamble_id",
outcome_id_header="outcome_id",
probability_header="probability",
objective_consequence_header="objective_consequence",
DELIMITER="\\t")
# after finishing with the file, delete to keep the workspace tidy
unlink(my_output_file)
# remove the object from the global environment
rm(my_output_file)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.