2005-10-23から1日間の記事一覧

メモ

R

area <- 1:10 age <- 11:20 val <- 21:30 x <- data.frame(list(area=area,age=age,val=val)) x x$agen <- as.factor(ifelse(x$age<=15,"lo","hi")) x t.out <- t.test(x$val~x$agen) t.out$p.value #関数化 nmeansd <- function(X,C) { cat("N=",length(X[C…