Reads a data file and returns it as dataset object.
readDataset(
file,
...,
header = TRUE,
sep = ",",
quote = "\"",
dec = ".",
fill = TRUE,
comment.char = "",
fileEncoding = "UTF-8"
)A CSV file (see read.table).
Further arguments to be passed to read.table.
A logical value indicating whether the file contains the names of the variables as its first line.
The field separator character. Values on each line of the file are separated
by this character. If sep = "," (the default for readDataset) the separator is a comma.
The set of quoting characters. To disable quoting altogether, use
quote = "". See scan for the behavior on quotes embedded in quotes. Quoting is only
considered for columns read as character, which is all of them unless colClasses is specified.
The character used in the file for decimal points.
logical. If TRUE then in case the rows have unequal length, blank fields
are implicitly added.
character: a character vector of length one containing a single character or an empty string. Use "" to turn off the interpretation of comments altogether.
character string: if non-empty declares the encoding used on a file (not a connection) so the character data can be re-encoded. See the 'Encoding' section of the help for file, the 'R Data Import/Export Manual' and 'Note'.
Returns a Dataset object.
The following generics (R generic functions) are available for this result object:
names() to obtain the field names,
print() to print the object,
summary() to display a summary of the object,
plot() to plot the object,
as.data.frame() to coerce the object to a data.frame,
as.matrix() to coerce the object to a matrix.
readDataset is a wrapper function that uses read.table to read the
CSV file into a data frame, transfers it from long to wide format with reshape
and puts the data to getDataset().
readDatasets() for reading multiple datasets,
writeDataset() for writing a single dataset,
writeDatasets() for writing multiple datasets.
if (FALSE) { # \dontrun{
dataFileRates <- system.file("extdata",
"dataset_rates.csv",
package = "rpact"
)
if (dataFileRates != "") {
datasetRates <- readDataset(dataFileRates)
datasetRates
}
dataFileMeansMultiArm <- system.file("extdata",
"dataset_means_multi-arm.csv",
package = "rpact"
)
if (dataFileMeansMultiArm != "") {
datasetMeansMultiArm <- readDataset(dataFileMeansMultiArm)
datasetMeansMultiArm
}
dataFileRatesMultiArm <- system.file("extdata",
"dataset_rates_multi-arm.csv",
package = "rpact"
)
if (dataFileRatesMultiArm != "") {
datasetRatesMultiArm <- readDataset(dataFileRatesMultiArm)
datasetRatesMultiArm
}
dataFileSurvivalMultiArm <- system.file("extdata",
"dataset_survival_multi-arm.csv",
package = "rpact"
)
if (dataFileSurvivalMultiArm != "") {
datasetSurvivalMultiArm <- readDataset(dataFileSurvivalMultiArm)
datasetSurvivalMultiArm
}
} # }