Skip to content

Instantly share code, notes, and snippets.

José María Mateos jmmateoshggm

Block or report user

Report or block jmmateoshggm

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View clase_R_2014.R
a <- c(4, 6, 3, 7, 3, 6, 3, 0)
mean(a)
sd(a)
median(a)
var(a)
a[1]
a[1:4]
a[c(1, 3, 8)]
# Comentario. Esto no se ejecuta.
@jmmateoshggm
jmmateoshggm / baplot.R
Created May 17, 2013
Bland-Altman plot, R code.
View baplot.R
# Bland-Altman plot R function.
# Author: jmmateos@mce.hggm.es
baplot <- function(m1, m2, ...) {
# m1 and m2 are the measurements
means <- (m1 + m2) / 2
diffs <- m1 - m2
mdiff <- mean(diffs)
sddiff <- sd(diffs)
# Compute the figure limits
You can’t perform that action at this time.