R/meansq.R

meansq <- 
  function(X, na.rm = FALSE){
    
    if(is.list(X)){
      xms <- mean(unlist(X)^2, na.rm = na.rm)
    } else {
      xms <- mean(X^2, na.rm = na.rm)
    }
    
    xms
    
  }

Try the multiway package in your browser

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

multiway documentation built on May 2, 2019, 6:47 a.m.