Defines functions transformEachIndex

transformEachIndex <- function(X,j,n,p,R){
    stop("Error! R is an n-vector indicating the number of replicates for each subject")
  finaly <- NULL
  finalZ <- NULL

  for(i in 1:n){
    ithobs <- X[[i]]

    # Get the pairwise difference
    temp <- transformEachObs(j,p,R[i],ithobs)
    finaly <- c(finaly,temp$ytilde)
    finalZ <- rbind(finalZ,temp$Xtilde)


Try the latentgraph package in your browser

Any scripts or data that you put into this service are public.

latentgraph documentation built on Dec. 15, 2020, 5:23 p.m.