#este es mi primer script
#archivo: 01primerScript.R
#juan perez
#primera sesion

#aca aprendi a sumar
1+2
1/8
1*56
8-87

#ojo con los decimales
5*0.256 #esto esta bien
#5*0,256 #esto producira un error

rnorm(1)
?rnorm
rnorm(100)
rnorm(3)
rnorm(3, mean=55, sd=5)
rnorm(3, mean=55, sd=5)
rnorm(3, mean=55, sd=5)
rnorm(3, mean=55, sd=5)
rnorm(3, mean=55, sd=5)
rnorm(3, mean=55, sd=5)
rnorm(3, mean=55, sd=5)
runif(1)
runif(1)
runif(1)
runif(1)
runif(1)
runif(1)
?runif
runif(10, min=1, max=100)
runif(1000, min=1, max=100)
log(2)
log10(2)
log(2, base=10)
exp(1)

##anidando funciones
log(exp(1))
log(-3) ##esto me dara un mensaje de error
log(abs(-3))

#escribiendo una expresion mas compleja
sqrt(       log(   abs(-3)   )      )
sqrt(
     log(
         abs(-3)
         )
    )
seq(1:10)
seq(1,10,by=0.5)
seq(1,10,by=1)
seq(1,1000,by=1)
sample( seq(1,1000,by=1), 10)
mi.vector <- rnorm(7)
mi.vector
class(mi.vector)
mi.vector <- 7
mi.vector
mi.vector*.25
log(mi.vector*.25)
lista.parcelas<-seq(1,1000,by=1)
sample( lista.parcelas, 10)
n<-3
sample( lista.parcelas, n)
parcelas.a.muestrear<-sample( lista.parcelas, n)
parcelas.a.muestrear
c(2,.67,345.6)
c(2,      .67,     345.6)
#c(2,      .67,     34   5.6)
vector.yo<-c(2,      .67,     345.6)
length(vector.yo)
ciudades <- c("Santiago", "Temuco", "Valdivia")
ciudades
class(ciudades)
malo <- c("1", "4", "5")
class(malo)
pH<-c(5.6,6.7,7.1)
class(pH)
data.frame(ciudades,pH)
mi.df <- data.frame(ciudades,pH)
class(mi.df)
dim(mi.df)
nrow(mi.df)
ncol(mi.df)
ncol(mi.df)
names(mi.df)
hab<-c(6.2,0.3,0.1)
mi.df <- data.frame(ciudades,pH,hab)
mi.df
ncol(mi.df)
nrow(mi.df)
mi.df[ ] 
mi.df[1, ] 
mi.df[  ,2 ] 
mi.df[  ,2:3 ] 
2:3
mi.df[  , c(2,3) ] 
mi.df[ c(3,1) , c(1,2) ] 
mi.df[ c(3,1) , 1:2 ] 
mi.df[ 2  , 3 ] 
mi.df
mi.df[   , c("hab","pH","ciudades") ] 
esteban <- mi.df[   , c("hab","pH","ciudades") ] 
esteban <- 3
esteban <- mi.df[   , c("hab","pH","ciudades") ] 
esteban
names(mi.df)
names(mi.df)[2] 
names(mi.df)[3] <- "poblacion"
mi.df
names(mi.df)
names(mi.df) <- c("city", "ph", "population")
names(mi.df)
mi.df

##donde estamos trabajando
getwd()
##lo siguiente implica que uno debe crear esa carpeta
setwd("C:/practica3")
getwd()
list.files()
write.csv(mi.df, file="miprimeraData.csv")
list.files()
write.csv(mi.df, file="misegundaData.csv", row.names=FALSE)
list.files()
antu <- read.csv(file="misegundaData.csv", header=TRUE)
antu
#si quiero guardar todo lo escrito en la consola
#savehistory("historialComandos.R")


#@@@@@@@@@@@@@@@@@
#eso es todo estimad@ estudiante
#disfRute!
#C
#@@@@@@@@@@@@@@@@@