R/tam_linking_2studies_create_M_SD.R

In TAM: Test Analysis Modules

## File Name: tam_linking_2studies_create_M_SD.R
## File Version: 0.07

tam_linking_2studies_create_M_SD <- function(M1, SD1, M2, SD2, trafo_persons)
{
    G1 <- length(M1)
    G2 <- length(M2)
    GT <- G1+G2
    M_SD <- matrix( 0, nrow=GT, ncol=2 )
    colnames(M_SD) <- c("M", "SD")
    # M_SD <- as.data.frame(M_SD)
    rownames(M_SD) <- tam_linking_2studies_create_M_SD_rownames(G1=G1, G2=G2)
    ind1 <- seq(1,G1)
    M_SD[ ind1, "M"] <- M1
    M_SD[ ind1, "SD"] <- SD1
    ind2 <- G1 + seq(1,G2)
    M_SD[ ind2, "M"] <- M2
    M_SD[ ind2, "SD"] <- SD2
    #-- transformations
    M_SD[ind2, "SD"] <- M_SD[ind2, "SD"] * trafo_persons["a"]
    M_SD[ind2, "M"] <- M_SD[ind2, "M"] * trafo_persons["a"] + trafo_persons["b"]
    attr( M_SD, "N_groups") <- c(G1, G2)
    #--- output
    return(M_SD)
}