Proyecto Estadistica 2
Sharon Barbosa, Samantha Andreu, Juan Pablo Camino, Juan Pablo Espinosa
14/03/2021
Introduccion
An谩lisis Inicial
Acciones de inversionistas de Vanguard Small-Cap Index Fund (NAESX)
Este fondo indexado de bajo costo cuenta con una amplia variedad del mercado bursatil de Estados Unidos, partiendo de una peque帽a capitalizacion, el fondo busca rastrear el indice de peque帽as empresas bajo un mercado de alta volatilidad. Por lo tanto, es un fondo apropiado para inversiones en acciones de peque帽a capitalizacion e inversiones colectivas.
Es importante reslatar que el valor de las inversiones fluctuar谩n de manera volatil hasat el momento d esu venta, por lo tanto, puede incrementar o disminuir su valor frente a su cosot inicial.
Composicion del fondo:
#Horizon Therapeutics (HZNP): Es una empresa biofarmaceutica que se enfoca en el desarrollo de medicinas y tratamientos contra enfermedades cr贸nicas y poco comunes. Su acci贸n HZNP cotiza en NASDAQ, desde el 2015 su acci贸n se hab铆a mantenido estable, con algunas fluctuaciones en oto帽o de 2015. Sin embargo, desde el 27 de marzo cuqando val铆a 27 d贸lares hasta el dia de hoy ha estado a la alza alcanzando los 90 d贸lares.
#Enphase Energy (ENPH): Es una empresa dedicada a la tecnolog铆a energ茅tica usada para desarrollar almacenamiento de energ铆a solar y todo tipo de aplicaciones de esta. Su acci贸n que tambien cotiza en NASDAQ desde 2015 estaba muy estabkle sin sobrepasar los 5 d贸lares, hasta que en 2019 empezo a crecer hasta llegar hoy a los 160 d贸lares.
#Catalent Inc (CTLT): Corporacion multinacional dedicada a la provision de tecnologias, administracion, desarollo y fabricacion de medicamentos, biologicos, procedimientos geneticos, entre otros productos de la salud. Ademas, tiene colaboraci贸nes con las Empresas Farmac茅uticas Janssen, Arcturus Therapeutics Holdings Inc, y BrainStorm Cell Therapeutics Inc. En cuanto a su desempe帽o bursatil, sus acciones se cotizaban alrederor de los 29 USD en el 2015 y para inicios del 2021 sus acciones superan los 100 USD, por lo que en estos ultimos a帽os las acciones de empresa cuenta con una fuerte recomendacion de compra en el mercado de valores.
#Monolithic Power Systems, Inc(MPWR) Monolithic Power Systems, Inc. diseña, desarrolla y comercializa soluciones integradas de semiconductores de potencia y arquitecturas de suministro de energía para los mercados de aplicaciones informáticas y de almacenamiento, automotriz, industrial, de comunicaciones y de consumo. Ofrece circuitos integrados de corriente continua que se utilizan para convertir y controlar voltajes de varios sistemas electrónicos, como dispositivos electrónicos portátiles, puntos de acceso LAN inalámbricos, computadoras y portátiles, monitores, aplicaciones de información y entretenimiento y equipos médicos.
La compañía también proporciona circuitos integrados de control de iluminación para retroiluminación que se utilizan en sistemas, que proporcionan la fuente de luz para paneles LCD en computadoras portátiles, monitores, sistemas de navegación para automóviles y televisores, así como para productos de iluminación general. La compañía vende sus productos a través de distribuidores externos y revendedores de valor agregado, así como directamente a fabricantes de equipos originales, fabricantes de diseños originales, proveedores de servicios de fabricación electrónica y otros clientes finales en China, Taiwán, Europa, Corea del Sur, Sudeste. Asia, Japón, Estados Unidos e internacionalmente. Monolithic Power Systems, Inc. se incorporó en 1997 y tiene su sede en Kirkland, Washington. Comenzó a cotizar en 2004
#IDEX Corporation (IEX)
“Innovaci贸n, Diversidad, y Excelencia” es el significado de su acronimo. IDEX Corporation es una empresa que hace parte de la industria de bienes de capital dado que se dedica a la elaboraci贸n de medidas de flujo, sistemas de fluidos y otros componentes de ingenier铆a mediante soluciones aplicadas alrededor del mundo, tiene tres ramas operativas: Tecnolog铆as de medici贸n y fluidos (FMT), Tecnolog铆as de la ciencia y la salud (HST), y Productos diversificados y de seguridad contra incendios (FSDP). La compa帽铆a tuvo su primera aparici贸n dentro del fondo NAESX en 2013.
#PLUG Power INC (PLUG)
Plug Power Inc es una compa帽铆a que pertenece a la industria de energ铆a alternativa que se dedica al sistemas alternativos que reemplazan las bater铆as convencionales en veh铆culos. Inicio a cotizar en el mercado de valores a partir del a帽o 1999
library(quantmod)## Warning: package 'quantmod' was built under R version 4.0.4## Loading required package: xts## Warning: package 'xts' was built under R version 4.0.4## Loading required package: zoo## Warning: package 'zoo' was built under R version 4.0.4##
## Attaching package: 'zoo'## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric## Loading required package: TTR## Warning: package 'TTR' was built under R version 4.0.4## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoogetSymbols(c("ENPH","HZNP"), src = "yahoo", from="2015-01-01", to="2021-03-12")## 'getSymbols' currently uses auto.assign=TRUE by default, but will
## use auto.assign=FALSE in 0.5-0. You will still be able to use
## 'loadSymbols' to automatically load data. getOption("getSymbols.env")
## and getOption("getSymbols.auto.assign") will still be checked for
## alternate defaults.
##
## This message is shown once per session and may be disabled by setting
## options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.## [1] "ENPH" "HZNP"getSymbols(c("MPWR","IEX"), src = "yahoo", from="2015-01-01", to="2021-03-12")## [1] "MPWR" "IEX"getSymbols(c("PLUG"), src = "yahoo", from="2015-01-01", to="2021-03-12")## [1] "PLUG"getSymbols(c("CTLT"), src = "yahoo", from="2015-01-01", to="2021-03-12")## [1] "CTLT"Precios y Rendimientos de fondos y acciones
getSymbols(c("ENPH"), src = "yahoo", from="2020-07-05", to="2021-03-12")## [1] "ENPH"plot(ENPH$ENPH.Close)
getSymbols(c("HZNP"), src = "yahoo", from="2020-07-05", to="2021-03-12")## [1] "HZNP"plot(HZNP$HZNP.Close)
getSymbols(c("MPWR"), src = "yahoo", from="2020-07-05", to="2021-03-12")## [1] "MPWR"plot(MPWR$MPWR.Close)
getSymbols(c("IEX"), src = "yahoo", from="2020-07-05", to="2021-03-12")## [1] "IEX"plot(IEX$IEX.Close)
getSymbols(c("PLUG"), src = "yahoo", from="2020-07-05", to="2021-03-12")## [1] "PLUG"plot(PLUG$PLUG.Close)
getSymbols(c("CTLT"), src = "yahoo", from="2020-07-05", to="2021-03-12")## [1] "CTLT"plot(CTLT$CTLT.Close)
getSymbols(c("NAESX"), src = "yahoo", from="2020-07-05", to="2021-03-12")## [1] "NAESX"plot(NAESX$NAESX.Close)
Densidad de las acciones
enph=density(ENPH$ENPH.Close)
plot(enph,col="red",type = "l")
hznp=density(HZNP$HZNP.Close)
plot(hznp,col="BLUE",type = "l")
ctlt=density(CTLT$CTLT.Close)
plot(ctlt,col="green",type = "l")
mpwr=density(MPWR$MPWR.Close)
plot(mpwr,col="yellow2",type = "l")
iex=density(IEX$IEX.Close)
plot(iex,col="brown",type = "l")
plug=density(PLUG$PLUG.Close)
plot(plug,col="pink",type = "l")
Naesx=density(NAESX$NAESX.Close)
plot(Naesx,col="grey",type = "l")
#Histogramas
par(mfrow=c(2,3))
hist(ENPH$ENPH.Close,breaks=50,col="red",xlab="ENPH", main="ENPH")
hist(HZNP$HZNP.Close,breaks=50,col="blue",xlab="HZNP", main="HZNP")
hist(CTLT$CTLT.Close,breaks=50,col="green",xlab="CTLT", main="CTLT")
hist(MPWR$MPWR.Close,breaks=50,col="yellow2",xlab="MPWR", main="MPWR")
hist(IEX$IEX.Close,breaks=50,col="brown",xlab="IEX", main="IEX")
hist(PLUG$PLUG.Close,breaks=50,col="pink",xlab="PLUG", main="PLUG")
hist(NAESX$NAESX.Close,breaks=50,col="grey",xlab="NAESX", main="NAESX")
#Medidas Descriptivas
#Enphase Energy (ENPH)
# MEDIA
mediaenph=mean(ENPH$ENPH.Close)
mediaenph## [1] 121.7462# MEDIANA
median(ENPH$ENPH.Close)## [1] 114.69#DESVIACI脫N
sdenph=sd(ENPH$ENPH.Close)
sdenph## [1] 50.67482#VARIANZA
var(ENPH$ENPH.Close)## ENPH.Close
## ENPH.Close 2567.937#COEFICIENTE DE VARIACI脫N
CV1= (sd(ENPH$ENPH.Close)/mean(ENPH$ENPH.Close))
CV1## [1] 0.4162331#PERCENTIL 70
quantile(ENPH$ENPH.Close, 0.70)## 70%
## 161.996quantile(ENPH$ENPH.Close, 0.70)## 70%
## 161.996summary(ENPH$ENPH.Close)## Index ENPH.Close
## Min. :2020-07-06 Min. : 50.16
## 1st Qu.:2020-09-03 1st Qu.: 73.14
## Median :2020-11-04 Median :114.69
## Mean :2020-11-05 Mean :121.75
## 3rd Qu.:2021-01-07 3rd Qu.:170.89
## Max. :2021-03-11 Max. :213.76#Horizon Therapeutics (HZNP):
# MEDIA
mediahznp=mean(HZNP$HZNP.Close)
mediahznp## [1] 74.9822# MEDIANA
median(HZNP$HZNP.Close)## [1] 75.21#DESVIACI脫N
sdhznp=sd(HZNP$HZNP.Close)
sdhznp## [1] 8.597489#VARIANZA
var(HZNP$HZNP.Close)## HZNP.Close
## HZNP.Close 73.91682#COEFICIENTE DE VARIACI脫N
CV2= (sd(HZNP$HZNP.Close)/mean(HZNP$HZNP.Close))
CV2## [1] 0.1146604#PERCENTIL 70
quantile(HZNP$HZNP.Close, 0.70)## 70%
## 78.724summary(HZNP$HZNP.Close)## Index HZNP.Close
## Min. :2020-07-06 Min. :55.85
## 1st Qu.:2020-09-03 1st Qu.:70.79
## Median :2020-11-04 Median :75.21
## Mean :2020-11-05 Mean :74.98
## 3rd Qu.:2021-01-07 3rd Qu.:79.63
## Max. :2021-03-11 Max. :95.48Catalent INC:
# MEDIA
mediactlt=mean(CTLT$CTLT.Close)
mediactlt## [1] 97.12809# MEDIANA
median(CTLT$CTLT.Close)## [1] 94.25#DESVIACI脫N
sdctlt=sd(CTLT$CTLT.Close)
sdctlt## [1] 12.38462#VARIANZA
var(CTLT$CTLT.Close)## CTLT.Close
## CTLT.Close 153.3789#COEFICIENTE DE VARIACI脫N
CV3= (sd(CTLT$CTLT.Close)/mean(CTLT$CTLT.Close))
CV3## [1] 0.1275081#PERCENTIL 70
quantile(CTLT$CTLT.Close, 0.70)## 70%
## 103.694summary(CTLT$CTLT.Close)## Index CTLT.Close
## Min. :2020-07-06 Min. : 73.53
## 1st Qu.:2020-09-03 1st Qu.: 87.13
## Median :2020-11-04 Median : 94.25
## Mean :2020-11-05 Mean : 97.13
## 3rd Qu.:2021-01-07 3rd Qu.:104.97
## Max. :2021-03-11 Max. :125.27IDEX Corporation (IEX)
# MEDIA
mediaiex=mean(IEX$IEX.Close)
mediaiex## [1] 186.1184# MEDIANA
median(IEX$IEX.Close)## [1] 189.62#DESVIACI脫N
sdiex=sd(IEX$IEX.Close)
sdiex## [1] 11.91582#VARIANZA
var(IEX$IEX.Close)## IEX.Close
## IEX.Close 141.9867#COEFICIENTE DE VARIACI脫N
CV4= (sd(IEX$IEX.Close)/mean(IEX$IEX.Close))
CV4## [1] 0.06402278#PERCENTIL 70
quantile((IEX$IEX.Close), 0.70)## 70%
## 194.61summary(IEX$IEX.Close)## Index IEX.Close
## Min. :2020-07-06 Min. :156.9
## 1st Qu.:2020-09-03 1st Qu.:177.8
## Median :2020-11-04 Median :189.6
## Mean :2020-11-05 Mean :186.1
## 3rd Qu.:2021-01-07 3rd Qu.:195.4
## Max. :2021-03-11 Max. :208.6Monolithic Power Systems, Inc. (MPWR)
# MEDIA
mediampwr=mean(MPWR$MPWR.Close)
mediampwr## [1] 312.8632# MEDIANA
median(MPWR$MPWR.Close)## [1] 314.83#DESVIACI脫N
sdmpwr=sd(MPWR$MPWR.Close)
sdmpwr## [1] 47.46598#VARIANZA
var(MPWR$MPWR.Close)## MPWR.Close
## MPWR.Close 2253.02#COEFICIENTE DE VARIACI脫N
CV5= (sd(MPWR$MPWR.Close)/mean(MPWR$MPWR.Close))
CV5## [1] 0.1517148#PERCENTIL 70
quantile(MPWR$MPWR.Close, 0.70)## 70%
## 343.51summary(MPWR$MPWR.Close)## Index MPWR.Close
## Min. :2020-07-06 Min. :237.0
## 1st Qu.:2020-09-03 1st Qu.:270.8
## Median :2020-11-04 Median :314.8
## Mean :2020-11-05 Mean :312.9
## 3rd Qu.:2021-01-07 3rd Qu.:356.6
## Max. :2021-03-11 Max. :403.2Plug Power Inc. (PLUG)
# MEDIA
mediaplug=mean(PLUG$PLUG.Close)
mediaplug## [1] 27.47474# MEDIANA
median(PLUG$PLUG.Close)## [1] 18.43#DESVIACI脫N
sdplug=sd(PLUG$PLUG.Close)
sdplug## [1] 19.32808#VARIANZA
var(PLUG$PLUG.Close)## PLUG.Close
## PLUG.Close 373.5746#COEFICIENTE DE VARIACI脫N
CV6= (sd(PLUG$PLUG.Close)/mean(PLUG$PLUG.Close))
CV6## [1] 0.7034854#PERCENTIL 70
quantile(PLUG$PLUG.Close, 0.70)## 70%
## 32.496summary(PLUG$PLUG.Close)## Index PLUG.Close
## Min. :2020-07-06 Min. : 7.71
## 1st Qu.:2020-09-03 1st Qu.:12.77
## Median :2020-11-04 Median :18.43
## Mean :2020-11-05 Mean :27.47
## 3rd Qu.:2021-01-07 3rd Qu.:38.11
## Max. :2021-03-11 Max. :73.18Matriz de correlacion
#Enphase Energy (ENPH):
library(ggplot2)## Warning: package 'ggplot2' was built under R version 4.0.4library(corrplot)## Warning: package 'corrplot' was built under R version 4.0.4## corrplot 0.84 loadedhead(ENPH)## ENPH.Open ENPH.High ENPH.Low ENPH.Close ENPH.Volume ENPH.Adjusted
## 2020-07-06 49.70 50.72 49.15 50.16 3395100 50.16
## 2020-07-07 49.80 51.47 49.25 50.64 2376100 50.64
## 2020-07-08 51.02 55.22 50.98 54.93 4305800 54.93
## 2020-07-09 55.84 56.50 52.83 55.79 3176700 55.79
## 2020-07-10 54.83 55.71 54.10 55.43 2357700 55.43
## 2020-07-13 56.25 58.06 52.12 52.32 4159800 52.32ENPH$X = NULL
ENPH.cor <- cor(ENPH, method = "pearson")
round(ENPH.cor, digits = 2)## ENPH.Open ENPH.High ENPH.Low ENPH.Close ENPH.Volume ENPH.Adjusted
## ENPH.Open 1.00 1.00 1.00 0.99 0.08 0.99
## ENPH.High 1.00 1.00 1.00 1.00 0.09 1.00
## ENPH.Low 1.00 1.00 1.00 1.00 0.07 1.00
## ENPH.Close 0.99 1.00 1.00 1.00 0.08 1.00
## ENPH.Volume 0.08 0.09 0.07 0.08 1.00 0.08
## ENPH.Adjusted 0.99 1.00 1.00 1.00 0.08 1.00col <- colorRampPalette(c("#BB4444","#EE9988","#FFFFFF","#77AADD","#4477AA"))
corrplot(ENPH.cor, method = "shade", tl.col = "black", tl.srt = 45, col = col(200), addCoef.col = "black", order = "A")
#Horizon Therapeutics (HZNP):
library(ggplot2)
library(corrplot)
head(HZNP)## HZNP.Open HZNP.High HZNP.Low HZNP.Close HZNP.Volume HZNP.Adjusted
## 2020-07-06 55.47 59.19 55.47 58.11 3585900 58.11
## 2020-07-07 58.07 58.73 57.20 57.29 2930500 57.29
## 2020-07-08 57.84 58.78 57.63 58.76 1806000 58.76
## 2020-07-09 59.02 59.21 56.89 58.00 1905300 58.00
## 2020-07-10 57.74 57.98 56.34 57.23 2215700 57.23
## 2020-07-13 57.92 58.33 55.30 55.85 2391800 55.85HZNP$X = NULL
HZNP.cor <- cor(HZNP, method = "pearson")
round(HZNP.cor, digits = 2)## HZNP.Open HZNP.High HZNP.Low HZNP.Close HZNP.Volume HZNP.Adjusted
## HZNP.Open 1.00 0.99 0.99 0.97 -0.06 0.97
## HZNP.High 0.99 1.00 0.99 0.99 -0.01 0.99
## HZNP.Low 0.99 0.99 1.00 0.99 -0.08 0.99
## HZNP.Close 0.97 0.99 0.99 1.00 -0.04 1.00
## HZNP.Volume -0.06 -0.01 -0.08 -0.04 1.00 -0.04
## HZNP.Adjusted 0.97 0.99 0.99 1.00 -0.04 1.00corrplot(HZNP.cor,col= col(10))
col <- colorRampPalette(c("#BB4444","#EE9988","#FFFFFF","#77AADD","#4477AA"))
corrplot(HZNP.cor, method = "shade", tl.col = "black", tl.srt = 45, col = col(200), addCoef.col = "black", order = "A")
#Catalent Inc (CTLT):
library(ggplot2)
library(corrplot)
head(CTLT)## CTLT.Open CTLT.High CTLT.Low CTLT.Close CTLT.Volume CTLT.Adjusted
## 2020-07-06 73.41 73.730 72.80 73.53 611300 73.53
## 2020-07-07 72.90 74.410 72.53 73.73 1037800 73.73
## 2020-07-08 74.00 76.280 73.91 76.22 944700 76.22
## 2020-07-09 76.21 79.230 76.21 79.15 1254900 79.15
## 2020-07-10 78.76 78.985 77.25 78.01 1495000 78.01
## 2020-07-13 78.66 80.530 76.96 77.47 1829600 77.47CTLT$X = NULL
CTLT.cor <- cor(CTLT, method = "pearson")
round(CTLT.cor, digits = 2)## CTLT.Open CTLT.High CTLT.Low CTLT.Close CTLT.Volume CTLT.Adjusted
## CTLT.Open 1.00 1.00 0.99 0.98 -0.08 0.98
## CTLT.High 1.00 1.00 0.99 0.99 -0.07 0.99
## CTLT.Low 0.99 0.99 1.00 1.00 -0.09 1.00
## CTLT.Close 0.98 0.99 1.00 1.00 -0.08 1.00
## CTLT.Volume -0.08 -0.07 -0.09 -0.08 1.00 -0.08
## CTLT.Adjusted 0.98 0.99 1.00 1.00 -0.08 1.00corrplot(CTLT.cor,col= col(10))
col <- colorRampPalette(c("#BB4444","#EE9988","#FFFFFF","#77AADD","#4477AA"))
corrplot(CTLT.cor, method = "shade", tl.col = "black", tl.srt = 45, col = col(200), addCoef.col = "black", order = "A")
#IDEX Corporation (IEX)
library(ggplot2)
library(corrplot)
head(IEX)## IEX.Open IEX.High IEX.Low IEX.Close IEX.Volume IEX.Adjusted
## 2020-07-06 160.35 160.69 158.24 160.03 350200 158.7282
## 2020-07-07 158.90 160.62 157.62 158.33 229400 157.0421
## 2020-07-08 158.41 159.10 156.69 157.81 180000 156.5263
## 2020-07-09 156.94 158.39 155.16 157.19 315100 155.9113
## 2020-07-10 157.24 157.70 155.82 156.94 252300 155.6634
## 2020-07-13 157.99 161.55 157.99 159.44 345600 158.1430IEX$X = NULL
IEX.cor <- cor(IEX, method = "pearson")
round(IEX.cor, digits = 2)## IEX.Open IEX.High IEX.Low IEX.Close IEX.Volume IEX.Adjusted
## IEX.Open 1.00 0.99 0.99 0.98 0.02 0.98
## IEX.High 0.99 1.00 0.99 0.99 0.06 0.99
## IEX.Low 0.99 0.99 1.00 0.99 0.00 0.99
## IEX.Close 0.98 0.99 0.99 1.00 0.03 1.00
## IEX.Volume 0.02 0.06 0.00 0.03 1.00 0.03
## IEX.Adjusted 0.98 0.99 0.99 1.00 0.03 1.00corrplot(IEX.cor,col = col(10))
col <- colorRampPalette(c("#BB4444","#EE9988","#FFFFFF","#77AADD","#4477AA"))
corrplot(IEX.cor, method = "shade", tl.col = "black", tl.srt = 45, col = col(200), addCoef.col = "black", order = "A")
#Monolithic Power Systems, Inc.(MPWR):
library(ggplot2)
library(corrplot)
head(MPWR)## MPWR.Open MPWR.High MPWR.Low MPWR.Close MPWR.Volume MPWR.Adjusted
## 2020-07-06 241.99 243.41 239.80 242.14 292600 241.3564
## 2020-07-07 242.43 247.88 241.40 244.00 306400 243.2104
## 2020-07-08 246.86 248.79 243.73 247.53 227500 246.7290
## 2020-07-09 250.09 251.28 244.17 249.48 432000 248.6727
## 2020-07-10 251.46 251.68 245.17 247.91 219400 247.1078
## 2020-07-13 251.23 255.69 241.93 242.42 223600 241.6355MPWR$X = NULL
MPWR.cor <- cor(MPWR, method = "pearson")
round(MPWR.cor, digits = 2)## MPWR.Open MPWR.High MPWR.Low MPWR.Close MPWR.Volume MPWR.Adjusted
## MPWR.Open 1.00 1.00 0.99 0.98 0.17 0.98
## MPWR.High 1.00 1.00 0.99 0.99 0.17 0.99
## MPWR.Low 0.99 0.99 1.00 1.00 0.16 1.00
## MPWR.Close 0.98 0.99 1.00 1.00 0.17 1.00
## MPWR.Volume 0.17 0.17 0.16 0.17 1.00 0.17
## MPWR.Adjusted 0.98 0.99 1.00 1.00 0.17 1.00corrplot(MPWR.cor,col = col(10))
col <- colorRampPalette(c("#BB4444","#EE9988","#FFFFFF","#77AADD","#4477AA"))
corrplot(MPWR.cor, method = "shade", tl.col = "black", tl.srt = 45, col = col(200), addCoef.col = "black", order = "A")
#Plug Power Inc. (PLUG)
library(ggplot2)
library(corrplot)
head(PLUG)## PLUG.Open PLUG.High PLUG.Low PLUG.Close PLUG.Volume PLUG.Adjusted
## 2020-07-06 9.63 10.49 9.52 9.98 54725200 9.98
## 2020-07-07 9.55 9.69 8.71 9.34 44654100 9.34
## 2020-07-08 9.69 9.73 9.21 9.50 24096200 9.50
## 2020-07-09 9.35 9.36 8.50 8.95 44600200 8.95
## 2020-07-10 8.85 9.49 8.76 9.30 27965400 9.30
## 2020-07-13 9.57 9.59 8.28 8.31 32436700 8.31PLUG$X = NULL
PLUG.cor <- cor(PLUG, method = "pearson")
round(PLUG.cor, digits = 2)## PLUG.Open PLUG.High PLUG.Low PLUG.Close PLUG.Volume PLUG.Adjusted
## PLUG.Open 1.00 1.00 1.00 1.00 0.35 1.00
## PLUG.High 1.00 1.00 1.00 1.00 0.37 1.00
## PLUG.Low 1.00 1.00 1.00 1.00 0.35 1.00
## PLUG.Close 1.00 1.00 1.00 1.00 0.37 1.00
## PLUG.Volume 0.35 0.37 0.35 0.37 1.00 0.37
## PLUG.Adjusted 1.00 1.00 1.00 1.00 0.37 1.00corrplot(PLUG.cor,col = col(10))
col <- colorRampPalette(c("#BB4444","#EE9988","#FFFFFF","#77AADD","#4477AA"))
corrplot(PLUG.cor, method = "shade", tl.col = "black", tl.srt = 45, col = col(200), addCoef.col = "black", order = "A")
Rendimientos acumulados ENPH
ENPH_rend_cc_1 <- diff(log(ENPH$ENPH.Adjusted))
head(ENPH_rend_cc_1)## ENPH.Adjusted
## 2020-07-06 NA
## 2020-07-07 0.009523862
## 2020-07-08 0.081317889
## 2020-07-09 0.015535012
## 2020-07-10 -0.006473696
## 2020-07-13 -0.057742256dataToPlot <- merge(ENPH_rend_cc_1)
plot.zoo(dataToPlot, main="Rendimientos ENPH", plot.type="single",
ylab="Rendimientos", lwd=1, col=c("black"))
abline(h=0)
summary(diff(log(ENPH$ENPH.Adjusted)))## Index ENPH.Adjusted
## Min. :2020-07-06 Min. :-0.134442
## 1st Qu.:2020-09-03 1st Qu.:-0.021738
## Median :2020-11-04 Median : 0.011483
## Mean :2020-11-05 Mean : 0.006935
## 3rd Qu.:2021-01-07 3rd Qu.: 0.034908
## Max. :2021-03-11 Max. : 0.124426
## NA's :1sd(ENPH$ENPH.Adjusted)## [1] 50.67482Rendimientos acumulados (HZNP)
HZNP_rend_cc_1 <- diff(log(HZNP$HZNP.Adjusted))
head(HZNP_rend_cc_1)## HZNP.Adjusted
## 2020-07-06 NA
## 2020-07-07 -0.01421168
## 2020-07-08 0.02533521
## 2020-07-09 -0.01301831
## 2020-07-10 -0.01336477
## 2020-07-13 -0.02440875dataToPlot <- merge(HZNP_rend_cc_1)
plot.zoo(dataToPlot, main="Rendimientos HZNP", plot.type="single",
ylab="Rendimientos", lwd=1, col=c("green3"))
abline(h=0)
summary(diff(log(HZNP$HZNP.Adjusted)))## Index HZNP.Adjusted
## Min. :2020-07-06 Min. :-0.101182
## 1st Qu.:2020-09-03 1st Qu.:-0.014593
## Median :2020-11-04 Median : 0.001346
## Mean :2020-11-05 Mean : 0.002569
## 3rd Qu.:2021-01-07 3rd Qu.: 0.018110
## Max. :2021-03-11 Max. : 0.211979
## NA's :1sd(HZNP$HZNP.Adjusted)## [1] 8.597489Rendimientos acumulados (CTLT)
CTLT_rend_cc_1 <- diff(log(CTLT$CTLT.Adjusted))
head(CTLT_rend_cc_1)## CTLT.Adjusted
## 2020-07-06 NA
## 2020-07-07 0.002716340
## 2020-07-08 0.033214096
## 2020-07-09 0.037720903
## 2020-07-10 -0.014507762
## 2020-07-13 -0.006946272dataToPlot <- merge(CTLT_rend_cc_1)
plot.zoo(dataToPlot, main="Rendimientos CTLT", plot.type="single",
ylab="Rendimientos CTLT", lwd=1, col=c("purple"))
abline(h=0)
summary(diff(log(CTLT$CTLT.Adjusted)))## Index CTLT.Adjusted
## Min. :2020-07-06 Min. :-0.052877
## 1st Qu.:2020-09-03 1st Qu.:-0.013112
## Median :2020-11-04 Median : 0.001295
## Mean :2020-11-05 Mean : 0.002141
## 3rd Qu.:2021-01-07 3rd Qu.: 0.014549
## Max. :2021-03-11 Max. : 0.077624
## NA's :1sd(CTLT$CTLT.Adjusted)## [1] 12.38462Rendimientos acumulados (MPWR)
MPWR_rend_cc_1 <- diff(log(MPWR$MPWR.Adjusted))
head(MPWR_rend_cc_1)## MPWR.Adjusted
## 2020-07-06 NA
## 2020-07-07 0.007652121
## 2020-07-08 0.014363599
## 2020-07-09 0.007846922
## 2020-07-10 -0.006312937
## 2020-07-13 -0.022394063dataToPlot <- merge(MPWR_rend_cc_1)
plot.zoo(dataToPlot, main="Rendimientos MPWR", plot.type="single",
ylab="Rendimientos MPWR", lwd=1, col=c("brown"))
abline(h=0)
summary(diff(log(MPWR$MPWR.Adjusted)))## Index MPWR.Adjusted
## Min. :2020-07-06 Min. :-0.119843
## 1st Qu.:2020-09-03 1st Qu.:-0.014119
## Median :2020-11-04 Median : 0.003230
## Mean :2020-11-05 Mean : 0.001951
## 3rd Qu.:2021-01-07 3rd Qu.: 0.019945
## Max. :2021-03-11 Max. : 0.069719
## NA's :1sd(MPWR$MPWR.Adjusted)## [1] 47.76533Rendimientos acumulados (IEX)
IEX_rend_cc_1 <- diff(log(IEX$IEX.Adjusted))
head(IEX_rend_cc_1)## IEX.Adjusted
## 2020-07-06 NA
## 2020-07-07 -0.010679845
## 2020-07-08 -0.003289633
## 2020-07-09 -0.003936631
## 2020-07-10 -0.001591529
## 2020-07-13 0.015803894dataToPlot <- merge(IEX_rend_cc_1)
plot.zoo(dataToPlot, main="Rendimientos IEX", plot.type="single",
ylab="Rendimientos IEX", lwd=1, col=c("yellow"))
abline(h=0)
summary(diff(log(IEX$IEX.Adjusted)))## Index IEX.Adjusted
## Min. :2020-07-06 Min. :-0.074944
## 1st Qu.:2020-09-03 1st Qu.:-0.007325
## Median :2020-11-04 Median : 0.002088
## Mean :2020-11-05 Mean : 0.001316
## 3rd Qu.:2021-01-07 3rd Qu.: 0.010653
## Max. :2021-03-11 Max. : 0.047954
## NA's :1sd(IEX$IEX.Adjusted)## [1] 12.19619Rendimientos acumulados (PLUG)
PLUG_rend_cc_1 <- diff(log(PLUG$PLUG.Adjusted))
head(PLUG_rend_cc_1)## PLUG.Adjusted
## 2020-07-06 NA
## 2020-07-07 -0.06627684
## 2020-07-08 0.01698555
## 2020-07-09 -0.05963827
## 2020-07-10 0.03836087
## 2020-07-13 -0.11255479dataToPlot <- merge(PLUG_rend_cc_1)
plot.zoo(dataToPlot, main="Rendimientos PLUG", plot.type="single",
ylab="Rendimientos IEX", lwd=1, col=c("orange"))
abline(h=0)
summary(diff(log(PLUG$PLUG.Adjusted)))## Index PLUG.Adjusted
## Min. :2020-07-06 Min. :-0.146142
## 1st Qu.:2020-09-03 1st Qu.:-0.032750
## Median :2020-11-04 Median : 0.003521
## Mean :2020-11-05 Mean : 0.009151
## 3rd Qu.:2021-01-07 3rd Qu.: 0.043317
## Max. :2021-03-11 Max. : 0.300951
## NA's :1sd(PLUG$PLUG.Adjusted)## [1] 19.32808#ANUALIZACION DE LA MEDIA Y DESVIACIÓN ESTÁNDAR
#ANUALIZACIÓN DE LA MEDIA
AENPHMEAN=mediaenph*250
AENPHMEAN## [1] 30436.56AHZNPMEAN=mediahznp*250
AHZNPMEAN## [1] 18745.55ACTLTMEAN=mediactlt*250
ACTLTMEAN## [1] 24282.02AIEXMEAN=mediaiex*250
AIEXMEAN## [1] 46529.6AMPWRMEAN=mediampwr*250
AMPWRMEAN## [1] 78215.81APLUGMEAN=mediaplug*250
APLUGMEAN## [1] 6868.685#ANUALIZACIÓN DE LA DESVIACIÓN ESTÁNDAR
AENPHSD=sqrt(250)*sdenph
AENPHSD## [1] 801.2392AHZNPSD=sqrt(250)*sdhznp
AHZNPSD## [1] 135.9382ACTLTSD=sqrt(250)*sdctlt
ACTLTSD## [1] 195.8181AIEXSD=sqrt(250)*sdiex
AIEXSD## [1] 188.4056AMPWRSD=sqrt(250)*sdmpwr
AMPWRSD## [1] 750.5031APLUGSD=sqrt(250)*sdplug
APLUGSD## [1] 305.6038#ANÁLISIS GENERAL
#El mercado bursátil es utilizado por las empresas para conseguir financiamiento a partir de la emisión de acciones. En dicho mercado, inversionistas adquieren acciones y generan permanentes procesos de compra y venta, producto de los cuales se incrementa o reduce el valor de las acciones, se pagan dividendos, se realizan operaciones de emisión de acciones liberadas, entre otros. Si un inversionista decide realizar una inversión en el mercado bursátil es importante que conozca cómo encontrar el rendimiento de una acción.
#Si un inversionista adquiere una acción, espera obtener un retorno luego de un periodo determinado –puede ser en el corto plazo, como parte de la administración de liquidez, o en el largo plazo, como parte de una cartera de inversiones. En ese periodo pueden ocurrir varios hechos de importancia que influyen en la rentabilidad de la inversión por la compra de la acción. Conceptualmente, la rentabilidad de una acción contempla dos factores relevantes: la ganancia o pérdida del capital invertido y los dividendos líquidos que se reparten en el periodo.
#La ganancia o pérdida del capital invertido se genera por los movimientos del precio de las acciones. Cuando el precio de adquisición de una acción (p0) se incrementa luego de un periodo y alcanza un precio mayor (p1) se genera una ganancia de capital; caso contrario, ocurre una pérdida de capital. Los dividendos obtenidos (d1) producto del aumento del precio y que son distribuidos por la empresa genera en cada inversionista un flujo adicional por cada acción adquirida, mejorando el rendimiento de los accionistas. En consecuencia, la rentabilidad de una acción se podría definir como la relación entre el beneficio económico que proporciona la acción (precio y dividendos) y el capital invertido del accionista en un periodo de tiempo; es decir, los flujos obtenidos por tener la acción y el flujo de capital invertido en la adquisición de la acción.
#A partir de los resultados de la acción ENPH, se puede indicar que en promedio hay un retorno de $121.75 por cada accion, además la desviación estándar obtenida es de $50.67, lo cual demuestra que las acciones de ENPH son altamente volátiles. Los resultados de las acciones de HZNP indican que en promedio hay un retorno de $74.98 por cada acción. Su desviación estándar es de $8.59, a diferencia de las acciones de ENPH, las acciones de HZNP tienen una menor volatilidad. Ambas acciones pueden reflejar las tendencias de los inversionistas dado que la primera podría ser para aquellos que son amantes al riesgo y la segunda a los que prefieren algo seguro.
#Los resultados de las acciones de CTLT calculan en promedio un retorno de $97.12, y demuestran una volatilidad de $12.38 por acción. Por otro lado, los resultados de las acciones IEX generan en promedio un retorno de $186.11 y una volatilidad de $11.91. Las acciones de IEX, representan una inversión segura dado su bajo nivel de volatilidad y promedio de retorno por acción.
#Las acciones de MPWR registran en promedio un retorno de $312.86 con una volatilidad de $47.46, y las acciones de PLUG en promedio representan un retorno de $27.47 por acción, con $19.32 de volatilidad. Las acciones de MPWR representan una inversión segura si tomamos en cuenta su nivel de volatilidad en comparación del promedio de retorno por cada acción. Este caso no es el mismo para las acciones de PLUG dado que su promedio de retornos no es suficientemente alto comparado a la cantidad de volatilidad.
#En un analisis más general derivado de todos los datos recogidos y ajustados a el año más reciente, se pueden concluir varias cosas, no solo de las acciones, sus retornos y comportamientos, sino también se puede ver claramente que tipo de riesgo representa para el inversor este tipo de fondos.
#Como ya se evidencio claramente que tanto los precios de las acciones a pesar de alcanzar niveles super altos doblando practicamente su valor en cuestion de dos meses, en cuestion de dos semanas se puede desplomar. Lo que nos deja en una situación en la cual un inversor con valentía y un amplio análisis puede ganar bastante si logra invertir su dinero en el momento adecuado. Sin embargo, así como puede ganar puede perder, como se refleja en la desviación, los precios no son nada estables y se puede correr un gran riesgo.
#Adicionalmente, esta claro que como lo indican las gráficas, los rendimientos alcanzan niveles del 20% pero que en cuestión e dias pueden llegar hasta el -10% de rendimiento de la acción.
#Como una pequeña conclusión queda establecido que tanto las acciones por separado como el fondo como uno solo estan a la orden de personas que tengan una ambición que supere el miedo y el riesgo que representan estas inversiones.