KIMAGURE EUROPE

...

data=datos1))

summary(lm(altura~edad, data=datos1))$r.squared

datos1$edad

#

df_pearson=read.table("http://aprender.uib.es/Rdir/pearson.txt", header=TRUE)

str(df_pearson)

head(df_pearson)

lm(Hijos~Padres, data=df_pearson)

summary(lm(Hijos~Padres, data=df_pearson))$r.squared

plot(df_pearson)

abline(lm(Hijos~Padres, data=df_pearson))

#

inh=c(19,36,60,84)

ser=c(1.2,3.6,12,33)

plot(inh,ser)

plot(inh, ser, log="y")

log10(ser)

lm(log10(ser)~inh)

summary(lm(log10(ser)~inh))$r.squared

plot(inh, ser)

curve(0.52*1.052^x, add=TRUE)

#

tiempo=1:12

SIDA_acum=c(97,709,2698,6928,15242,29944,52902,83903,120612,161711,206247,257085)

df_SIDA=data.frame(tiempo, SIDA_acum)

plot(df_SIDA)

plot(df_SIDA, log="y")

plot(df_SIDA, log="xy")

lm(log10(SIDA_acum)~log10(tiempo), data=df_SIDA)

summary(lm(log10(SIDA_acum)~log10(tiempo),data=df_SIDA))$r.squared

plot(df_SIDA)

curve(82.79422*x^3.274, add=TRUE)

x=c(1,5,6,2,5,7,8,3,5,2,1,0)

x

nombres=c("Pep","Catalina","Joan","Pau")

nombres

nombres=c(Pep,Catalina,Joan,Pau) #Si se nos olvidan las comillas...

c(2,3.5,TRUE,"casa")

x_scan=scan()

1 5 6 2 5 7 8 3 5 2 1 0

1 5 6 2 5 7 8 3 5 2 1 0

x_scan

notas=scan("http://aprender.uib.es/Rdir/notas.txt")

notas

notas2=scan("notas.txt")

notas2

x_scan2=scan()

1,5,6,2,5,7,8,3,5,2,1,0

x_scan2=scan(sep=",")

x_scan2

x_scan3=scan()

4,5 6,2

x_scan3=scan(dec=",")

x_scan3

x_scan4=scan(sep=",")

Pep, Catalina, Joan, Pau

x_scan4=scan(what="character", sep=",")

x_scan4

x_scan5=scan("http://aprender.uib.es/Rdir/enlatin1.txt", what="character")

x_scan5

x_scan6=scan("http://aprender.uib.es/Rdir/enlatin1.txt", what="character", encoding="latin1")

x_scan6

rep(1, 6)

rep("Palma", 5) #Las palabras, siempre entre comillas

rep(c(1,2,3), times=5)

rep(c(1,2,3), each=5)

rep(c(1,2,3,4), c(2,3,4,5))

seq(3, 150, by=4.5)

seq(80, 4, by=-3.5)

seq(80, 4, by=3.5) #Si el signo de p no es el correcto, da error

1:15

2.3:12.5

34:-5

-3:5 #Cuidado con los paréntesis

-(3:5)

seq(2, 10, length.out=10)

seq(2, by=0.5, length.out=10)

x=c(rep(1, 10), 2:10)

x

x=c(0,x,20,30)

x

x=c(rep(1, 10), 2:10)

fix(x)

# Sección 2

x=seq(2, 30, by=3)

x

x+2.5

2.5*x

sqrt(x)

2^x

x^2

(1:4)^2

1:4^2

CD=function(x){summary(lm((1:4)~c(1:3, x)))$r.squared}

CD(5)

CD(6)

CD(5:10)

sapply(5:10, FUN=CD)

1:5+1:5 #Suma entrada a entrada

(1:5)*(1:5) #Producto entrada a entrada

(1:5)^(1:5) #Potencia entrada a entrada

n=1:20 #Secuencia 1,...,20, y la llamamos n por comodidad

x=3*2^n-20 #Aplicamos la fórmula a n=1,...,20

x

n=0:20

y=n/(n^2+1)

y

(0:20)/((0:20)^2+1)

x=c(1,5,6,2,5,7,8,3,5,2,1,0)

length(x)

max(x)

min(x)

sum(x)

prod(x)