Code : Tout sélectionner
cor(data[, c("imf_gdpgr", "wbgi_rle", "gcb_poff")])
Code : Tout sélectionner
rv <- c("data$imf_gdpgr", "data$wbgi_rle", "data$gcb_poff")
Code : Tout sélectionner
cor(data[, c(imf_gdpgr, wbgi_rle, gcb_poff)])
Code : Tout sélectionner
x <- rnorm(1000)
hist(x)
abline(v=quantile(x, probs=c(0.25, 0.5, 0.75)),col=c("blue","red","blue"))
Code : Tout sélectionner
split(hddom, hddom$patid)
Code : Tout sélectionner
D <- data.frame(Test=c(rep("a",3), rep("b",2)), Sujet=c("s1", "s1", "s2", "s1", "s2"), Score=c(1,0,1,1,0))
xtabs(Score ~Test + Sujet, D) / with(D,table(Test, Sujet))
Code : Tout sélectionner
data <- read.csv2(file=file.choose())