José María Mateos jmmateoshggm

## 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

## Dynamic_Pixel_Inspector.class

      
              2 files
            
          
              1 fork
            
          
              0 comments
            
          
              0 stars
            
          
                jmmateoshggm
                / Dynamic_Pixel_Inspector.class
            
            
              Last active
              December 19, 2015 14:08
            
          
            View raw
        
    
## 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.
	# 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
	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.