KIMAGURE EUROPE
Enviado por José A. Sevilla • 10 de Abril de 2017 • Informe • 630 Palabras (3 Páginas) • 250 Visitas
COMANDOS EN R
2+3
2*(3+5
)
2*3+5)
system("defaults write org.R-project.R force.LANG en_US.UTF-8")
system("defaults write org.R-project.R force.LANG es_Es.UTF-8")
2+3; 2+4; 2+5
2+2.5
2+2,5
2*3+5/2
2*(3+5/2)
2*(3+5)/2
2/3+4
2/(3+4)
2^3*5
2^(3*5)
2^-5
2^(-5)
534%/%7
534%%7
534-76*7
pi
2^pi
2(3+5)
2*(3+5)
2pi
2*pi
2^40
2^(-20)
c(2^40,2^(-20),5)
sqrt(4)
sqrt(8)-8^(1/2)
log10(8)
log(8)/log(10)
7^log(2, 7)
10!
factorial(10)
exp(sqrt(8))
choose(5,3)
choose(3,5)
cos(60)
cos(60*pi/180)
acos(0.5)
acos(0.5)*180/pi
acos(2)
2*exp(1)
exp(pi)-pi^exp(1)
sqrt(2)^2-2
# Seccion 1.2
sqrt(2)
print(sqrt(2), 20)
print(sqrt(2), 2)
2^100
print(2^100, 15)
print(2^100, 5)
print(sqrt(2), 22)
print(sqrt(2), 23)
print(pi,22)
print(sqrt(2), 3)
print(sqrt(2), 3)^2
1.41^2
round(sqrt(2), 3)
round(sqrt(2), 3)^2
round(2.25, 1)
round(2.35, 1)
round(sqrt(2))
round(sqrt(2), 0)
round(digits=3, sqrt(2))
round(3, sqrt(2))
floor(8.3)
ceiling(8.3)
trunc(8.3)
round(8.3)
floor(-3.7)
ceiling(-3.7)
trunc(-3.7)
round(-3.7)
#Seccion 1.3
x=5
x^2
x=x-2
x
x^2
x=sqrt(x)
x
#Seccion 1.4
f=function(x){x^2-2^x}
f(30)
f=function(x, y){exp((2*x-y)^2)}
f(0, 1)
f(1, 0)
rm(list=ls())
f=function(t){t^2-2^t}
a=1
a
ls()
rm(a)
ls()
a
#Seccion 1.5
(2+5i)*3
(2+5i)*(3+7i)
(2+5i)/(3+7i)
2+5*i
(3+i)*(2-i)
(3+1i)*(2-1i)
1+2/3i
1+(2/3)i
complex(real=1,imaginary=2/3)
z=1+sqrt(2)i
z=complex(real=1, imaginary=sqrt(2))
z
sqrt(-3)
sqrt(as.complex(-3))
sqrt(2+3i)
exp(2+3i)
sin(2+3i)
acos(as.complex(2))
Re(4-7i)
Im(4-7i)
Mod(4-7i)
Arg(4-7i)
Conj(4-7i)
z=complex(modulus=3, argument=pi/5)
z
Mod(z)
Arg(z)
pi/5
edad=c(1,2,3,5,7,9,11,13)
altura=c(76.11,86.45,95.27,109.18,122.03,133.73,143.73,156.41)
edad
altura
datos1=data.frame(edad,altura)
datos1
plot(datos1)
lm(altura~edad, data=datos1)
abline(lm(altura~edad, data=datos1))
summary(lm(altura~edad, 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
...