1.Una persona quiere hacer un préstamo de \(P\) a una tasa mensual de interés \(i\). La persona desea pagar el préstamo en \(n\) cuotas de valor \(R\) . Se pide calcular el valor mensual a pagar de \(R\), si se sabe que \(P\) es \(1500\), \(n\) es \(10\) y \(i\) es \(1\)% De la teoría del interés se sabe que

\[\begin{equation*} R = \frac{P\times i}{1-(i+1)^{-n}} \end{equation*}\]

P<-1500 #Valor del préstamo
n<-10 #Número de cuotas para pagar el préstamo
i<-0.01 #tasa mensual de interés

numerador<- P*i #Valor de 

denominador<- 1-(i+1)^(-n)
R<- numerador/denominador
paste("El valor mensual a pagar es ", as.character(R),"dado que el préstamo es",as.character(P), "el número de cuotas es", as.character(n)," y la tasa mensual es",as.character(i))
## [1] "El valor mensual a pagar es  158.373114826757 dado que el préstamo es 1500 el número de cuotas es 10  y la tasa mensual es 0.01"

1.Se muestra seguidamente una muestra de observaciones de radiación solar medida a las 10:00 de días consecutivos

solar<-c(11.1,10.6, 6.3,8.8, 10.7 ,11.2 ,8.9,12.2)
longitud <- length(solar)
media <- mean(solar)
mediana <- median(solar)
varianza <- var(solar)
solar_c <- solar + 3
media_c <- mean(solar_c)
mediana_c <- median(solar_c)
varianza_c <- var(solar_c)
solar_d <- solar*-2
media_d <- mean(solar_d)
mediana_d <- median(solar_d)
varianza_d <- var(solar_d)
punto3 <- function(x){(x <= 3)*(3*x +2)+ (x>3)*(2*x - 0.5*x*x)}

plot(punto3,xlim = c(-3,7))

x <- -3:3
y <- 3*x+2
plot(x,y)

z <- 3:7
w <- 2*z-0.5*z*z
plot(x,y)

plot(z,w)

4.El vector islands, que provee R, contiene las áreas de 48 territorios. a.

hist(islands) #Histograma del vector 'islands'

logisl <- log(islands)
hist(logisl)

par(mfrow = c(2,2))
hist(islands, breaks = "Sturges", col="yellow")
hist(islands, breaks = "Scott", col = "green")
hist(logisl, breaks = "Sturges", col = "lightblue")
hist(logisl, breaks = "Scott",col = 2)

par(mfrow = c(1,2))
boxplot(islands)
boxplot(logisl)

pairs(stackloss)