extra_code/canonical_template_code_stash.R

In lmiratrix/blkvar: ATE and Treatment Variation Estimation for Blocked and Multisite RCTs

# # # # Canonical code to setup the weird parameter passing
# #
# # This code needs to be pasted at the top of most of the methods in this
# # package.  There should be a better way.
# #
# # It allows for unquoted naming of variables in the method calls.


# if ( FALSE ) {

    # # This code block takes the parameters of
    # # Yobs, Z, B, siteID = NULL, data=NULL, ...
    # # and makes a dataframe with canonical Yobs, Z, B, and siteID columns.
    # if(!is.null(data)){
        # if ( missing( "Yobs" ) ) {
            # data = data.frame( Yobs = data[[1]],
                               # Z = data[[2]],
                               # B = data[[3]] )
            # n.tx.lvls = length( unique( data$Z ) )
            # stopifnot( n.tx.lvls == 2 )
            # stopifnot( is.numeric( data$Yobs ) )
        # } else {
            # if ( !is.null( siteID ) ) {
                # siteID = data[[siteID]]
                # stopifnot( !is.null( siteID ) )
            # }
            # data = data.frame( Yobs = eval( substitute( Yobs ), data ),
                               # Z = eval( substitute( Z ), data ),
                               # B = eval( substitute( B ), data) )
            # data$siteID = siteID
        # }
    # } else {
        # data = data.frame( Yobs = Yobs,
                           # Z = Z,
                           # B = B )
        # if ( !is.null( siteID ) ) {
            # data$siteID = siteID
        # }
    # }


    # #
    # # To just make the variables as vectors
    # #
    # if(!is.null(data)){
        # if ( missing( "Yobs" ) ) {
            # Yobs<-data[,1]
            # Z<-data[,2]
            # B<-data[,3]
        # } else {
            # Yobs = eval( substitute( Yobs ), data )
            # Z = eval( substitute( Z ), data )
            # B = eval( substitute( B ), data)
        # }
    # } else {
        # if ( is.data.frame(Yobs) ) {
            # stopifnot( is.null( data ) )
            # B = Yobs$B
            # Z = Yobs$Z
            # Yobs = Yobs$Yobs
        # }
    # }


    # #
    # # To make a dataframe with canonical variable names
    # #

    # if( !is.null(data) ){
        # if ( missing( "Yobs" ) ) {
            # data = data.frame( Yobs = data[[1]],
                               # Z = data[[2]],
                               # B = data[[3]] )
        # } else {
            # d2 = data
            # if ( !is.null( siteID ) ) {
                # d2$siteID = data[[siteID]]
                # stopifnot( !is.null( d2$siteID ) )
            # }
            # d2$Yobs = eval( substitute( Yobs ), data )
            # d2$Z = eval( substitute( Z ), data )
            # d2$B = eval( substitute( B ), data )
            # data = d2
            # rm( d2 )
        # }
    # } else {
        # data = data.frame( Yobs = Yobs,
                           # Z = Z,
                           # B = B )
        # if ( !is.null( siteID ) ) {
            # data$siteID = siteID
        # }
    # }
    # stopifnot( length( unique( data$Z ) ) == 2 )
    # stopifnot( is.numeric( data$Yobs ) )


    # #
    # # Checks on dataframe integrity
    # #
    # stopifnot( length( unique( data$Z ) ) == 2 )
    # stopifnot( is.numeric( data$Yobs ) )





    # if ( !missing( siteID ) ) {
        # data = data.frame( Yobs = eval( substitute( Yobs ), data ),
                           # Z = eval( substitute( Z ), data ),
                           # B = eval( substitute( B ), data),
                           # siteID = eval( substitute( siteID ), data ) )
    # } else {
        # data = data.frame( Yobs = eval( substitute( Yobs ), data ),
                           # Z = eval( substitute( Z ), data ),
                           # B = eval( substitute( B ), data) )
    # }
# }