diff options
| -rw-r--r-- | NAMESPACE | 2 | ||||
| -rw-r--r-- | R/readData.R | 89 |
2 files changed, 0 insertions, 91 deletions
@@ -57,9 +57,7 @@ export(optimOptions) export(outputData) export(outputNames) export(read.idframe) -export(read.odf.idframe) export(read.table.idframe) -export(read.xls.idframe) export(residplot) export(sim) export(spa) diff --git a/R/readData.R b/R/readData.R index 3c540fe..33c1dcb 100644 --- a/R/readData.R +++ b/R/readData.R @@ -70,93 +70,4 @@ read.table.idframe <- function(file,header=TRUE,sep=",",ninputs=0, # read from dataframe and return idframe object out <- read.idframe(dat,ninputs=ninputs,Ts = Ts,unit=unit) return(out) -} - -#' Read the contents of a worksheet into a idframe object -#' -#' Read the contents of an excel worksheet into a \code{idframe} object. -#' -#' @param file the path to the file to read -#' @param sheetName a character string with the sheet name -#' @param header a logical value indicating whether the first row corresponding to -#' the first element of the rowIndex vector contains the names of the variables. -#' @param ninputs the number of input columns. (Default: 0) -#' @param Ts sampling interval (Default: 1) -#' @param unit Time Unit (Default: "seconds") -#' @param ... additional arguments to be passed to the \code{\link[xlsx]{read.xlsx2}} function -#' -#' @details -#' -#' The \code{read.xlsx.idframe} function uses the \code{\link[xlsx]{read.xlsx2}} function, -#' provided by the \pkg{xlsx} package, to read data from an excel file and then calls the -#' \code{\link{read.idframe}} function to read the data into a idframe object -#' -#' The function requires the java runtime to be installed on the system (Requirement of -#' the \pkg{xlsx} package). -#' -#' @return an idframe object -#' @examples -#' library(xlsx) -#' dataMatrix <- data.frame(matrix(rnorm(1000),ncol=5)) -#' colnames(dataMatrix) <- c("u1","u2","y1","y2","y3") -#' write.xlsx2(dataMatrix,file="test.xlsx",row.names=FALSE) -#' -#' data <- read.xls.idframe("test.xlsx","Sheet1",ninputs=2,unit="minutes") -#' -#' @seealso \code{\link[xlsx]{read.xlsx2}} -#' @export -read.xls.idframe <- function(file,sheetName,header=TRUE,ninputs=0, - Ts = 1,unit=c("seconds","minutes","hours", - "days")[1],...){ - - require(xlsx) - - # Read from file into an R data.frame - dat <- read.xlsx2(file=file,sheetName=sheetName,header=header,...) - l <- as.list(dat) - dat <- as.data.frame(sapply(l,as.numeric)) - - # read from dataframe and return idframe object - out <- read.idframe(dat,ninputs=ninputs,Ts = Ts,unit=unit) - return(out) -} - -#' Reading from .odf documents -#' -#' Read the contents of an a .odf document into a \code{idframe} object. -#' -#' @param file the path to the file to read -#' @param sheetName a character string with the sheet name -#' @param header a logical value indicating whether the first row corresponding to -#' the first element of the rowIndex vector contains the names of the variables. -#' @param ninputs the number of input columns. (Default: 0) -#' @param Ts sampling interval (Default: 1) -#' @param unit Time Unit (Default: "seconds") -#' @param ... additional arguments to be passed to the \code{\link[xlsx]{read.xlsx2}} function -#' -#' @details -#' -#' The \code{read.odf.idframe} function uses the \code{\link[gnumeric]{read.gnumeric.sheet}} function, -#' provided by the \pkg{xlsx} package, to read data from a .odf file and then calls the -#' \code{\link{read.idframe}} function to read the data into a idframe object -#' -#' @return an idframe object -#' -#' @seealso \code{\link[xlsx]{read.xlsx2}} -#' @export -read.odf.idframe <- function(file,sheetName,header=TRUE,ninputs=0, - Ts = 1,unit=c("seconds","minutes","hours", - "days")[1],...){ - - require(gnumeric) - - # Read from file into an R data.frame - dat <- read.gnumeric.sheet(file=file,sheet.name=sheetName, - head=header,...) - l <- as.list(dat) - dat <- as.data.frame(sapply(l,as.numeric)) - - # read from dataframe and return idframe object - out <- read.idframe(dat,ninputs=ninputs,Ts = Ts,unit=unit) - return(out) }
\ No newline at end of file |