.Rhistory

x <- 1:5
x
'org_babel_R_eoe'
length(x)
'org_babel_R_eoe'
class(x)
'org_babel_R_eoe'
x1 <- seq(1, 100, by=2)
x1
'org_babel_R_eoe'
seq(1, 100, length=10)
'org_babel_R_eoe'
x <- c(1, 2, 3)
x
'org_babel_R_eoe'
x <- seq(1, 100, length=10)
y <- seq(2, 100, length=50)
z <- c(x, y)
z
'org_babel_R_eoe'
  x <- 1:5
  x + 1
'org_babel_R_eoe'
  x^2
'org_babel_R_eoe'
  y <- 1:10
  x + y
'org_babel_R_eoe'
  x * y
'org_babel_R_eoe'
  x^2 + y^3
'org_babel_R_eoe'
  z <- 1:12
  M  <-  matrix(z, nrow=3)
  M
'org_babel_R_eoe'
  class(M)
'org_babel_R_eoe'
  dim(M)
'org_babel_R_eoe'
  summary(M)
'org_babel_R_eoe'
z <- y <- x <- 1:10

M <- cbind(x, y, z)
M
'org_babel_R_eoe'
M <- rbind(x, y, z)
M
'org_babel_R_eoe'
lista <- list(a=c(1,3,5),
              b=c('l', 'p', 'r', 's'),
              c=3)
lista
'org_babel_R_eoe'
class(lista)
'org_babel_R_eoe'
length(lista)
'org_babel_R_eoe'
  df <- data.frame(x = 1:5,
                   y = rnorm(10),
                   z = 0)
  df
'org_babel_R_eoe'
  length(df)
'org_babel_R_eoe'
  dim(df)
'org_babel_R_eoe'
  year <- 2011
  month <- 1:12
  class <- c('A', 'B', 'C')
  vals <- rnorm(12)
  
  dats <- data.frame(year, month, class, vals)
  dats
'org_babel_R_eoe'
  x <- y <- seq(-4*pi, 4*pi, len=200)
  df <- expand.grid(A = x, B = y)
'org_babel_R_eoe'
  head(df)
'org_babel_R_eoe'
  tail(df)
'org_babel_R_eoe'
myFun <- function(x, y) x + y
myFun
'org_babel_R_eoe'
  class(myFun)
'org_babel_R_eoe'
  myFun(3, 4)
'org_babel_R_eoe'
foo  <-  function(x, ...){
  mx <- mean(x, ...)
  medx <- median(x, ...)
  sdx <- sd(x, ...)
  c(mx, medx, sdx)
  }
'org_babel_R_eoe'
foo <- function(x, ...){c(mean(x, ...), median(x, ...), sd(x, ...))}
'org_babel_R_eoe'
foo(1:10)
'org_babel_R_eoe'
foo(rnorm(1e5))
'org_babel_R_eoe'
x <- seq(-1, 1, .1)
x
'org_babel_R_eoe'
x < 0
'org_babel_R_eoe'
x >= 0
'org_babel_R_eoe'
x == 0
'org_babel_R_eoe'
x != 0
'org_babel_R_eoe'
cond  <-  (x > 0) & (x < .5)
cond
'org_babel_R_eoe'
cond  <-  (x >= .5) | (x <= -.5)
cond
'org_babel_R_eoe'
sum(cond)
'org_babel_R_eoe'
sum(!cond)
'org_babel_R_eoe'
as.numeric(cond)
'org_babel_R_eoe'
  x <- seq(1, 100, 2)
  x
'org_babel_R_eoe'
  x[1:5]
'org_babel_R_eoe'
  x[10:5]
'org_babel_R_eoe'
  x[x != 9]
'org_babel_R_eoe'
  x[x > 20]
'org_babel_R_eoe'
x[x %in% seq(0, 10, .5)]
'org_babel_R_eoe'
z <- seq(-10, 10, by = .5)
z
'org_babel_R_eoe'
z[z < -5 | z > 5]
'org_babel_R_eoe'
cond <- (z >= 0 & z <= 5)
cond
'org_babel_R_eoe'
z[cond]
'org_babel_R_eoe'
M[1:2, ]
'org_babel_R_eoe'
M[1:2, 2:3]
'org_babel_R_eoe'
M[1, c(1, 4)]
'org_babel_R_eoe'
M[-1,]
'org_babel_R_eoe'
M[-c(1, 2),]
'org_babel_R_eoe'
lista$a
'org_babel_R_eoe'
  lista[1]
'org_babel_R_eoe'
  lista[[1]]
'org_babel_R_eoe'
  df <- data.frame(x = 1:5,
                   y = rnorm(10),
                   z = 0)
'org_babel_R_eoe'
df$x
'org_babel_R_eoe'
df[1,]
'org_babel_R_eoe'
df[,1]
'org_babel_R_eoe'
apply(M, 1, sum)
'org_babel_R_eoe'
rowSums(M)
'org_babel_R_eoe'
apply(M, 2, mean)
'org_babel_R_eoe'
colMeans(M)
'org_babel_R_eoe'
lista <- list(x = 1:10,
              y = seq(0, 10, 2),
              z = rnorm(30))
lapply(lista, sum)
'org_babel_R_eoe'
sapply(lista, sum)
'org_babel_R_eoe'
for(n in c(2,5,10,20,50)) {
    x <- rnorm(n)
    cat(n,":", sum(x^2),"\n")
}
'org_babel_R_eoe'
  x <- rnorm(10)
  x2 <- numeric(length(x))
  for (i in seq_along(x2)){
      if (x[i]<0) x2[i] <- 0 else x2[i] <- 1
      }
  cbind(x, x2)
'org_babel_R_eoe'
x <- rnorm(10)
x
'org_babel_R_eoe'
ifelse(x>0, 1, 0)
'org_babel_R_eoe'
x <- 1:5
x
'org_babel_R_eoe'
length(x)
'org_babel_R_eoe'
class(x)
'org_babel_R_eoe'
x1 <- seq(1, 100, by=2)
x1
'org_babel_R_eoe'
seq(1, 100, length=10)
'org_babel_R_eoe'
x <- c(1, 2, 3)
x
'org_babel_R_eoe'
x <- seq(1, 100, length=10)
y <- seq(2, 100, length=50)
z <- c(x, y)
z
'org_babel_R_eoe'
  x <- 1:5
  x + 1
'org_babel_R_eoe'
  x^2
'org_babel_R_eoe'
  y <- 1:10
  x + y
'org_babel_R_eoe'
  x * y
'org_babel_R_eoe'
  x^2 + y^3
'org_babel_R_eoe'
  z <- 1:12
  M  <-  matrix(z, nrow=3)
  M
'org_babel_R_eoe'
  class(M)
'org_babel_R_eoe'
  dim(M)
'org_babel_R_eoe'
  summary(M)
'org_babel_R_eoe'
z <- y <- x <- 1:10

M <- cbind(x, y, z)
M
'org_babel_R_eoe'
M <- rbind(x, y, z)
M
'org_babel_R_eoe'
lista <- list(a=c(1,3,5),
              b=c('l', 'p', 'r', 's'),
              c=3)
lista
'org_babel_R_eoe'
class(lista)
'org_babel_R_eoe'
length(lista)
'org_babel_R_eoe'
  df <- data.frame(x = 1:5,
                   y = rnorm(10),
                   z = 0)
  df
'org_babel_R_eoe'
  length(df)
'org_babel_R_eoe'
  dim(df)
'org_babel_R_eoe'
  year <- 2011
  month <- 1:12
  class <- c('A', 'B', 'C')
  vals <- rnorm(12)
  
  dats <- data.frame(year, month, class, vals)
  dats
'org_babel_R_eoe'
  x <- y <- seq(-4*pi, 4*pi, len=200)
  df <- expand.grid(A = x, B = y)
'org_babel_R_eoe'
  head(df)
'org_babel_R_eoe'
  tail(df)
'org_babel_R_eoe'
myFun <- function(x, y) x + y
myFun
'org_babel_R_eoe'
  class(myFun)
'org_babel_R_eoe'
  myFun(3, 4)
'org_babel_R_eoe'
foo  <-  function(x, ...){
  mx <- mean(x, ...)
  medx <- median(x, ...)
  sdx <- sd(x, ...)
  c(mx, medx, sdx)
  }
'org_babel_R_eoe'
foo <- function(x, ...){c(mean(x, ...), median(x, ...), sd(x, ...))}
'org_babel_R_eoe'
foo(1:10)
'org_babel_R_eoe'
foo(rnorm(1e5))
'org_babel_R_eoe'
x <- seq(-1, 1, .1)
x
'org_babel_R_eoe'
x < 0
'org_babel_R_eoe'
x >= 0
'org_babel_R_eoe'
x == 0
'org_babel_R_eoe'
x != 0
'org_babel_R_eoe'
cond  <-  (x > 0) & (x < .5)
cond
'org_babel_R_eoe'
cond  <-  (x >= .5) | (x <= -.5)
cond
'org_babel_R_eoe'
sum(cond)
'org_babel_R_eoe'
sum(!cond)
'org_babel_R_eoe'
as.numeric(cond)
'org_babel_R_eoe'
  x <- seq(1, 100, 2)
  x
'org_babel_R_eoe'
  x[1:5]
'org_babel_R_eoe'
  x[10:5]
'org_babel_R_eoe'
  x[x != 9]
'org_babel_R_eoe'
  x[x > 20]
'org_babel_R_eoe'
x[x %in% seq(0, 10, .5)]
'org_babel_R_eoe'
z <- seq(-10, 10, by = .5)
z
'org_babel_R_eoe'
z[z < -5 | z > 5]
'org_babel_R_eoe'
cond <- (z >= 0 & z <= 5)
cond
'org_babel_R_eoe'
z[cond]
'org_babel_R_eoe'
M[1:2, ]
'org_babel_R_eoe'
M[1:2, 2:3]
'org_babel_R_eoe'
M[1, c(1, 4)]
'org_babel_R_eoe'
M[-1,]
'org_babel_R_eoe'
M[-c(1, 2),]
'org_babel_R_eoe'
lista$a
'org_babel_R_eoe'
  lista[1]
'org_babel_R_eoe'
  lista[[1]]
'org_babel_R_eoe'
  df <- data.frame(x = 1:5,
                   y = rnorm(10),
                   z = 0)
'org_babel_R_eoe'
df$x
'org_babel_R_eoe'
df[1,]
'org_babel_R_eoe'
df[,1]
'org_babel_R_eoe'
apply(M, 1, sum)
'org_babel_R_eoe'
rowSums(M)
'org_babel_R_eoe'
apply(M, 2, mean)
'org_babel_R_eoe'
colMeans(M)
'org_babel_R_eoe'
lista <- list(x = 1:10,
              y = seq(0, 10, 2),
              z = rnorm(30))
lapply(lista, sum)
'org_babel_R_eoe'
sapply(lista, sum)
'org_babel_R_eoe'
for(n in c(2,5,10,20,50)) {
    x <- rnorm(n)
    cat(n,":", sum(x^2),"\n")
}
'org_babel_R_eoe'
  x <- rnorm(10)
  x2 <- numeric(length(x))
  for (i in seq_along(x2)){
      if (x[i]<0) x2[i] <- 0 else x2[i] <- 1
      }
  cbind(x, x2)
'org_babel_R_eoe'
x <- rnorm(10)
x
'org_babel_R_eoe'
ifelse(x>0, 1, 0)
'org_babel_R_eoe'
library(openssl)
md5("D190")
md5("RECIO DIAZ, MARIA DEL MAR")
writeLines
writeLines('Hola Hola', file = 'fichero.txt')
writeLines('Hola Hola', 'fichero.txt')
writeLines('Hola Hola', '~/fichero.txt')
writeLines('Hola Hola', '~/fichero.txt')
file.copy()
writeLines('Hola Hola', '~/fichero2.txt')
file.copy('~/fichero2.txt', '~/fichero.txt')
file.copy('~/fichero2.txt', '~/fichero.txt', overwrite = TRUE)
n
summary(lmFertEdu)
Reduce('/', 1:3)
1/2/3
Reduce('/', 1:5)
1/2/3/4/5
paste(c(LETTERS[1:5]))
paste(c(LETTERS[1:5]), collapse = " ")
Reduce(foo, c(3, 7, 15, 1, 292))
foo(foo(foo(foo(3, 7), 15), 1), 292)
foo(3, foo(7, foo(15, foo(1, 292))))
debug(sumProd)
sumProd(rnorm(10), runif(10))
where
Q
undebug(sumProd)
trace(sumProd)
sumProd(rnorm(10), runif(10))
sumProd(rnorm(10), runif(10))
untrace(sumProd)