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 definí como precioR 

tabla1 <- read.delim(file.choose(),header=F)
precioR<- sum(tabla1)
print(precioR) 

##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))


##print es para que el resultado aparezca en pantalla 

##Ejercicio 4

##Primero tuve que creear la sucesión 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 fibose 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 pidió  
#pares
y<-sum(fibo[fibo%%2 == 0])
#impares
x<-sum(fibo[fibo%%2 == 1])
z=x/y
print(z)
##imprime el resultado de z


#Ejerecicio6

###Encontre  en internet que el package primes nos ayuda a 
### probar si un número es primo y generar los números primos dentro de un rango específico
##Basandose en una implementación del teorema de Wilson para probar la primalidad de un entero.
### por tanto intale el paquete mande a llamar a todas sus funciones primero para
###que pudiera correr mi codigo 

install.packages("primes")
library(primes)
require(primes)
n<-30
generate_primes(min=2,n)
P=0
for(i in 1:100){
  z<-generate_primes(min=2,10*i)
  P[i]<-length(z)/(10*i)
}
plot(P, xlab="Primeros 10k naturales")
}

Including Plots

You can also embed plots, for example:

plot(P, xlab="Primeros 10k naturales")

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