[R] functions and multiple levels

[Wu Gong]

Hi Chris,

Try ?ave will help you. Anyway, I guess you are computing a statistic.

strs <- "   level.1      level.2      observation
      1             1                 0.5
      1             1                 0.2
      1             2                 0.6
      1             2                 0.4
      2             3                 0.8
      2             3                 0.7
      2             4                 0.6
      2             4                 0.4 "
df <- read.table(textConnection(strs),header=T)
df$mean1 <- ave(df$observation, df$level.1, FUN = function(x) mean(x))
df$mean2 <- ave(df$observation, df$level.2, FUN = function(x) mean(x))

df.mean <- merge(unique(df[,c(1,4)]),unique(df[,c(2,5)]),by.x = "level.1",
by.y = "level.2")
df.mean$square <- (df.mean$mean1 - df.mean$mean2)^2


Regards,

Wu

-----
A R learner.
-- 
View this message in context: http://r.789695.n4.nabble.com/functions-and-multiple-levels-tp2329935p2330001.html
Sent from the R help mailing list archive at Nabble.com.