R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

##Ejercicio 1
##con el comando "read.delim llamo al archivo que es de tipo .txt
##con el fin de poder obtener los valores del documento y asi poder 
## realizar la suma de dichos valores para obtener el precio resultante de la accion
## despues de todas las variaciones,el cual lo deficion  como precioR 

tabla1 <- read.delim(file.choose(),header=F)
precioR<- sum(tabla1)
print(precioR) 
## [1] 439
##print es para que el resultado aparezca en pantalla 


##Ejercicio 3
## Genere un vector de 1 a 999 que son los numeros menores a 1000
## Despues en dicho vector fui buscando los valores que eran multiplos de 
## 5 y de 3 lo cual consegui con los modulos con el fin de generar un nuevo 
##vector que cumpla con ambas condiciones. Por ultimo aplica la funcion de suma 
### al vector multiplos para obtener el resultado deseado
vector<-c(1:999)
multiplos<-(vector[vector%%3==0 | vector%%5==0])
print(sum(multiplos))
## [1] 233168
##print es para que el resultado aparezca en pantalla 

##Ejercicio 4

##Primero tuve que creear la sucesion de Fibonacci, en donde utilice los 
##comando repeat, for e if  y un breack para que se detenga cuando
##el valor supere 1,000,000,000.

fibo=0
fibo[1]=0
fibo[2]=1
a<-2
repeat{
  a<-a+1
  for(i in 3:a){
    fibo[i]<-fibo[i-1]+fibo[i-2]
  }
  if(1000000000 < max(fibo)){
    break
  }
}
### Cabe mencionar que se tiene que elimar el ultimo 
### numero ya que el vector esta entre 1:1000000000
n<-length(fibo)
fibo<-fibo[-n]
##En  nuestro objeto fibo se encuentran todos los elementos que requerimos
##Entonces ahorasolo obtenemos el vecto de los pares e impares
## y a estos le aplicamos el comando sum para asi obtener  la suma total de los pares 
## e impares y asi poder realizar el cociente que nos pidia
#pares
y<-sum(fibo[fibo%%2 == 0])
#impares
x<-sum(fibo[fibo%%2 == 1])
z=x/y
print(z)
## [1] 4.236068
##imprime el resultado de z

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.