R/meansq.R

Defines functions meansq

Documented in meansq

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 April 15, 2025, 5:08 p.m.