mirror of
https://github.com/prise6/aVirtualTwins.git
synced 2024-06-10 02:02:11 +02:00
Documentation of VT.object
This commit is contained in:
parent
38127d4224
commit
004728b7fc
62
R/object.R
62
R/object.R
|
@ -1,19 +1,55 @@
|
||||||
# VT.OBJECT ---------------------------------------------------------------
|
# VT.OBJECT ---------------------------------------------------------------
|
||||||
|
|
||||||
|
#' VirtualTwins.object
|
||||||
|
#'
|
||||||
#' A Reference Class to deal with RCT dataset
|
#' A Reference Class to deal with RCT dataset
|
||||||
#'
|
#'
|
||||||
#' @field data A data.frame de la forme \eqn{Y,T,X_{1}, \ldots, X_{p}}. Y must
|
#' Currently working with binary response only. Continous will come, one day.
|
||||||
#' be two levels factor if type is binary. T must be numeric or integer.
|
#' Two-levels treatment only as well.
|
||||||
#' @field alpha no usefull now, set to 1
|
#'
|
||||||
#' @field screening logical, set to FALSE. Se TRUE to use varimp in trees
|
#' \code{data} field should be as described, however if virtual twins won't used
|
||||||
#' computation
|
#' interactions, there is no need to transform factors. A tool function to
|
||||||
#' @field varimp character vector of important variables to use in trees
|
#' transform factor will come soon.
|
||||||
#' computation
|
#'
|
||||||
#' @field delta numeric representing the difference of incidence between
|
#'
|
||||||
#' treatments
|
#' @field data Data.frame with format: \eqn{Y,T,X_{1}, \ldots, X_{p}}. Y must be
|
||||||
#' @field type character : binary or continous. Only binary is possible.
|
#' two levels factor if type is binary. T must be numeric or integer.
|
||||||
|
#' @field alpha Numeric, no need in this current version. Set to \code{1}.
|
||||||
|
#' @field screening Logical, set to \code{FALSE} Set to \code{TRUE} to use \code{varimp} in trees
|
||||||
|
#' computation.
|
||||||
|
#' @field varimp Character vector of important variables to use in trees
|
||||||
|
#' computation.
|
||||||
|
#' @field delta Numeric representing the difference of incidence between
|
||||||
|
#' treatments.
|
||||||
|
#' @field type Character : binary or continous. Only binary is currently
|
||||||
|
#' available.
|
||||||
#'
|
#'
|
||||||
#' @import methods
|
#' @import methods
|
||||||
|
#'
|
||||||
|
#' @name VT.object
|
||||||
|
#'
|
||||||
|
#' @examples
|
||||||
|
#' # Default use :
|
||||||
|
#' vt.o <- VT.object$new(data = my.rct.dataset)
|
||||||
|
#'
|
||||||
|
#' # Getting data
|
||||||
|
#' vt.o$data
|
||||||
|
#'
|
||||||
|
#' # or getting predictor with interactions
|
||||||
|
#' vt.o$getX(interactions = T)
|
||||||
|
#'
|
||||||
|
#' # or getting X|T = 1
|
||||||
|
#' vt.o$getX(trt = 1)
|
||||||
|
#'
|
||||||
|
#' # or getting Y|T = 0
|
||||||
|
#' vt.o$getY(0)
|
||||||
|
#'
|
||||||
|
#' # Print incidences
|
||||||
|
#' vt.o$getIncidences()
|
||||||
|
#' # ...
|
||||||
|
#'
|
||||||
|
#' @seealso \code{\linkS4class{VT.difft}}
|
||||||
|
#'
|
||||||
VT.object <- setRefClass(
|
VT.object <- setRefClass(
|
||||||
Class = "VT.object",
|
Class = "VT.object",
|
||||||
|
|
||||||
|
@ -44,8 +80,8 @@ VT.object <- setRefClass(
|
||||||
},
|
},
|
||||||
|
|
||||||
getX = function(interactions = T, trt = NULL){
|
getX = function(interactions = T, trt = NULL){
|
||||||
"Return predictors {T,X,X*T,X*(1-T)}. Or {T,X} if interactions is FALSE.
|
"Return predictors (T,X,X*T,X*(1-T)). Or (T,X) if interactions is FALSE.
|
||||||
If trt is not NULL, return predictors for T=trt"
|
If trt is not NULL, return predictors for T = trt"
|
||||||
# retour les prédicteurs si trt n'est pas null
|
# retour les prédicteurs si trt n'est pas null
|
||||||
if(!is.null(trt)) return(.self$data[.self$data[,2] == trt, -c(1,2)])
|
if(!is.null(trt)) return(.self$data[.self$data[,2] == trt, -c(1,2)])
|
||||||
# retourne les predicteurs*traitement peut importe le traitement si interactions est à TRUE
|
# retourne les predicteurs*traitement peut importe le traitement si interactions est à TRUE
|
||||||
|
@ -55,7 +91,7 @@ VT.object <- setRefClass(
|
||||||
},
|
},
|
||||||
|
|
||||||
getY = function(trt = NULL){
|
getY = function(trt = NULL){
|
||||||
"Return outcome. If trt is not NULL, return outcome for T=trt."
|
"Return outcome. If trt is not NULL, return outcome for T = trt."
|
||||||
if(is.null(trt)) return(.self$data[, 1])
|
if(is.null(trt)) return(.self$data[, 1])
|
||||||
return(.self$data[.self$data[,2] == trt, 1])
|
return(.self$data[.self$data[,2] == trt, 1])
|
||||||
},
|
},
|
||||||
|
|
|
@ -1,48 +0,0 @@
|
||||||
% Generated by roxygen2 (4.1.1): do not edit by hand
|
|
||||||
% Please edit documentation in R/object.R
|
|
||||||
\docType{class}
|
|
||||||
\name{VT.object-class}
|
|
||||||
\alias{VT.object}
|
|
||||||
\alias{VT.object-class}
|
|
||||||
\title{A Reference Class to deal with RCT dataset}
|
|
||||||
\description{
|
|
||||||
A Reference Class to deal with RCT dataset
|
|
||||||
}
|
|
||||||
\section{Fields}{
|
|
||||||
|
|
||||||
\describe{
|
|
||||||
\item{\code{data}}{A data.frame de la forme \eqn{Y,T,X_{1}, \ldots, X_{p}}. Y must
|
|
||||||
be two levels factor if type is binary. T must be numeric or integer.}
|
|
||||||
|
|
||||||
\item{\code{alpha}}{no usefull now, set to 1}
|
|
||||||
|
|
||||||
\item{\code{screening}}{logical, set to FALSE. Se TRUE to use varimp in trees
|
|
||||||
computation}
|
|
||||||
|
|
||||||
\item{\code{varimp}}{character vector of important variables to use in trees
|
|
||||||
computation}
|
|
||||||
|
|
||||||
\item{\code{delta}}{numeric representing the difference of incidence between
|
|
||||||
treatments}
|
|
||||||
|
|
||||||
\item{\code{type}}{character : binary or continous. Only binary is possible.}
|
|
||||||
}}
|
|
||||||
\section{Methods}{
|
|
||||||
|
|
||||||
\describe{
|
|
||||||
\item{\code{computeDelta()}}{Compute delta value.}
|
|
||||||
|
|
||||||
\item{\code{getFormula()}}{Return formula : Y~T+X1+...+Xp. Usefull for cforest function.}
|
|
||||||
|
|
||||||
\item{\code{getIncidences()}}{Return incidence table of data.}
|
|
||||||
|
|
||||||
\item{\code{getX(interactions = T, trt = NULL)}}{Return predictors {T,X,X*T,X*(1-T)}. Or {T,X} if interactions is FALSE.
|
|
||||||
If trt is not NULL, return predictors for T=trt}
|
|
||||||
|
|
||||||
\item{\code{getXwithInt()}}{Return predictors with interactions. Use VT.object::getX(interactions = T) instead.}
|
|
||||||
|
|
||||||
\item{\code{getY(trt = NULL)}}{Return outcome. If trt is not NULL, return outcome for T=trt.}
|
|
||||||
|
|
||||||
\item{\code{switchTreatment()}}{Switch treatment value.}
|
|
||||||
}}
|
|
||||||
|
|
79
man/VT.object.Rd
Normal file
79
man/VT.object.Rd
Normal file
|
@ -0,0 +1,79 @@
|
||||||
|
% Generated by roxygen2 (4.1.1): do not edit by hand
|
||||||
|
% Please edit documentation in R/object.R
|
||||||
|
\docType{class}
|
||||||
|
\name{VT.object}
|
||||||
|
\alias{VT.object}
|
||||||
|
\title{VirtualTwins.object}
|
||||||
|
\description{
|
||||||
|
A Reference Class to deal with RCT dataset
|
||||||
|
}
|
||||||
|
\details{
|
||||||
|
Currently working with binary response only. Continous will come, one day.
|
||||||
|
Two-levels treatment only as well.
|
||||||
|
|
||||||
|
\code{data} field should be as described, however if virtual twins won't used
|
||||||
|
interactions, there is no need to transform factors. A tool function to
|
||||||
|
transform factor will come soon.
|
||||||
|
}
|
||||||
|
\section{Fields}{
|
||||||
|
|
||||||
|
\describe{
|
||||||
|
\item{\code{data}}{Data.frame with format: \eqn{Y,T,X_{1}, \ldots, X_{p}}. Y must be
|
||||||
|
two levels factor if type is binary. T must be numeric or integer.}
|
||||||
|
|
||||||
|
\item{\code{alpha}}{Numeric, no need in this current version. Set to \code{1}.}
|
||||||
|
|
||||||
|
\item{\code{screening}}{Logical, set to \code{FALSE} Set to \code{TRUE} to use \code{varimp} in trees
|
||||||
|
computation.}
|
||||||
|
|
||||||
|
\item{\code{varimp}}{Character vector of important variables to use in trees
|
||||||
|
computation.}
|
||||||
|
|
||||||
|
\item{\code{delta}}{Numeric representing the difference of incidence between
|
||||||
|
treatments.}
|
||||||
|
|
||||||
|
\item{\code{type}}{Character : binary or continous. Only binary is currently
|
||||||
|
available.}
|
||||||
|
}}
|
||||||
|
\section{Methods}{
|
||||||
|
|
||||||
|
\describe{
|
||||||
|
\item{\code{computeDelta()}}{Compute delta value.}
|
||||||
|
|
||||||
|
\item{\code{getFormula()}}{Return formula : Y~T+X1+...+Xp. Usefull for cforest function.}
|
||||||
|
|
||||||
|
\item{\code{getIncidences()}}{Return incidence table of data.}
|
||||||
|
|
||||||
|
\item{\code{getX(interactions = T, trt = NULL)}}{Return predictors (T,X,X*T,X*(1-T)). Or (T,X) if interactions is FALSE.
|
||||||
|
If trt is not NULL, return predictors for T = trt}
|
||||||
|
|
||||||
|
\item{\code{getXwithInt()}}{Return predictors with interactions. Use VT.object::getX(interactions = T) instead.}
|
||||||
|
|
||||||
|
\item{\code{getY(trt = NULL)}}{Return outcome. If trt is not NULL, return outcome for T = trt.}
|
||||||
|
|
||||||
|
\item{\code{switchTreatment()}}{Switch treatment value.}
|
||||||
|
}}
|
||||||
|
\examples{
|
||||||
|
# Default use :
|
||||||
|
vt.o <- VT.object$new(data = my.rct.dataset)
|
||||||
|
|
||||||
|
# Getting data
|
||||||
|
vt.o$data
|
||||||
|
|
||||||
|
# or getting predictor with interactions
|
||||||
|
vt.o$getX(interactions = T)
|
||||||
|
|
||||||
|
# or getting X|T = 1
|
||||||
|
vt.o$getX(trt = 1)
|
||||||
|
|
||||||
|
# or getting Y|T = 0
|
||||||
|
vt.o$getY(0)
|
||||||
|
|
||||||
|
# Print incidences
|
||||||
|
vt.o$getIncidences()
|
||||||
|
# ...
|
||||||
|
}
|
||||||
|
\seealso{
|
||||||
|
\code{\linkS4class{VT.difft}}
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in a new issue