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:

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:

plot(cars)

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

Como obtener una columna de una matriz?

Velocidad = cars$speed
Velocidad/2
##  [1]  2.0  2.0  3.5  3.5  4.0  4.5  5.0  5.0  5.0  5.5  5.5  6.0  6.0  6.0  6.0
## [16]  6.5  6.5  6.5  6.5  7.0  7.0  7.0  7.0  7.5  7.5  7.5  8.0  8.0  8.5  8.5
## [31]  8.5  9.0  9.0  9.0  9.0  9.5  9.5  9.5 10.0 10.0 10.0 10.0 10.0 11.0 11.5
## [46] 12.0 12.0 12.0 12.0 12.5
mean(Velocidad)
## [1] 15.4

Como se calcula la varianza?

sd(Velocidad)
## [1] 5.287644

Generar datos apartir de opiniĂ³n de expertos

Generalmente cuando comenzamos a trabajar en analíticas de datos carecemos de datos y métodos. Sin embargo podemos generar métodos sin tener datos reales para cuando consigamos esos datos analicemos que ocurría con ellos.

Ejemplo Tenemos1600 motores Vamos a generar una variable nueva, que nos indique al azar, cuantos motores estĂ¡n encendidos en forma simultanea, el numero mĂ­nimo de motores encendidos es 800 el numero mĂ¡ximo de motores encendidos es 1200

# Crear un set de datos de 50 datos ficticios con 5 valores con NA.
Motores <- as.integer(runif(1500,800,1200))
Motores
##    [1]  893 1014 1173 1099 1004  820  915 1063  958  873  975 1145  801  928
##   [15]  963 1180  908 1040  804 1165 1178 1069  894  961 1053  829  984 1162
##   [29] 1047  888 1018  848  846  834 1133  998  854  899  845  830  934 1144
##   [43]  851 1106  831 1056  905  994 1108  923  821 1038 1183 1018  982  959
##   [57] 1140 1031 1173 1011  944 1175 1072  843  857 1115  901  987 1099 1108
##   [71] 1113 1105 1001 1169 1030  909 1154 1067  856  975  974 1002  855  803
##   [85] 1001  882 1048  884  897  932  897 1140  993 1118  909 1074  835  813
##   [99] 1192 1017 1149 1017 1111  995 1045  975  825 1087  857 1132  865  951
##  [113] 1107 1062  960  925  926 1096  854  810 1128  848 1175 1003 1087  973
##  [127] 1169 1156  849  952  877 1175  917  884  877  827 1021 1077  871  918
##  [141] 1093  998  834 1048 1062  895  879  839 1083 1108  811 1135 1063  965
##  [155]  990  827 1039  974  934  826  804 1138  806  864  915 1182 1183  922
##  [169]  825 1007 1003 1055 1162 1016  928  955  884 1194  816  810 1147  855
##  [183]  880  934  921 1024 1129 1155 1088 1140  934 1171 1087 1096  961 1001
##  [197]  895  873 1039  946  864  834 1075 1190 1194  909 1018 1144 1190 1160
##  [211] 1114 1151 1148  879 1060  806 1091  984 1093 1156 1175  969 1144 1107
##  [225]  868 1173  963  985  849  962 1093 1121  826 1133 1067  960 1150 1162
##  [239] 1120 1096  931  967 1001  855  820 1148  931 1148 1146  964 1081  831
##  [253] 1034 1071 1001 1013 1058  901 1189 1128 1098 1067  848 1145  980  806
##  [267]  970 1037 1135  993 1035  996 1150 1020  850 1112  988 1069 1135  851
##  [281] 1046  951 1123 1054  867  869 1115 1005  802  921 1041 1026 1182  850
##  [295] 1035  924 1182 1025 1091  973 1126  822  853  964 1103 1057  930  937
##  [309]  983 1114  821 1045 1028 1109  938  804  843  922 1120  900  980  818
##  [323] 1058  849 1194  940 1116  904 1007 1038 1111 1102  899  869 1111 1053
##  [337] 1196 1023  980  913  881  802  806  952 1069  848  858  894 1059  914
##  [351] 1054  879  858 1004 1100 1134  875 1129 1062 1102  828  830  819  941
##  [365] 1027  812 1163 1129  851  865 1096  869  965 1129  999  918  885  926
##  [379] 1070  984  922  833  966  921  991 1161 1007 1193 1120  902 1032 1071
##  [393] 1102  961 1099 1162  966 1076 1122 1044  961 1035 1000  825  876 1133
##  [407]  985 1030 1077  816  929  991 1175 1058  953  987 1188 1025  960 1064
##  [421] 1075 1068  896 1199 1086  804 1177 1194  802 1135  896  940  869 1165
##  [435] 1160  920 1040 1141  947  818  953  828 1059  820  985  944  832  944
##  [449]  957  854  823  897  836  944 1139  954  823 1190 1193  915 1143 1136
##  [463]  996 1066  969 1027  961 1043 1056 1040 1149 1069  971  940 1103 1043
##  [477] 1185 1104 1133  929  853  958 1017  854 1191  865 1089 1036 1053 1173
##  [491] 1170 1199 1175  973  990  971 1123  930  915 1034 1090 1089 1069 1173
##  [505]  888  809  981  856 1173  817 1081 1095 1164 1008 1044 1097 1062 1041
##  [519]  865  920  863 1158 1001 1095 1054  931  971  942 1159  826 1087  978
##  [533]  864  801  909 1126  872 1114  834  977  945 1066  801 1105  988 1093
##  [547] 1083  927 1175  891  997 1154  961  843  884  864  837  962 1059  974
##  [561]  814  839 1046  871 1198  975 1176 1110  853 1194 1109  926  880 1009
##  [575] 1175 1055  864 1133 1052  882 1055  845 1125 1102 1125  898 1153 1089
##  [589] 1190 1186 1109 1014 1113  950 1143 1072 1095 1102 1153 1004 1074 1170
##  [603]  924 1129 1059 1008 1185 1047  902 1032 1142  853  821  833  947 1034
##  [617]  809 1129 1111 1142 1194  926 1183 1024  874 1029  836 1116 1163  924
##  [631] 1021 1034  867 1170  826  985 1099  838  800 1092  900  825 1164 1106
##  [645] 1068  947 1130  921  988 1141  873 1139 1081  930  829  965 1061 1110
##  [659] 1155  919  840 1126 1007 1165  957  877  910  881  878  859  934 1114
##  [673] 1031  949  952 1179  951  912 1184 1103 1068  978  978  816 1072 1165
##  [687]  807 1102  982 1097 1156  901  810  833 1037 1053 1055  962  902 1191
##  [701] 1046  829  922 1017 1007  874 1186  897 1051  954  899 1009 1199  869
##  [715] 1000 1125  839  871  877 1057 1170 1035  946  870 1065 1134 1042  937
##  [729]  862 1031  948 1198  903  808  805  825  804  852  844 1011 1094 1034
##  [743] 1132  804 1014  902  808  986  827 1088 1105  866  816 1111  839  982
##  [757] 1086 1198  843 1103 1052 1130  983 1010 1181  927  897  813  939 1120
##  [771] 1126 1041  903  890 1017 1058 1016 1168 1173 1184 1127  946  905  924
##  [785] 1045 1198 1066  866 1138 1165  877 1001  888 1075  818 1007 1151  915
##  [799] 1137  829  827  814 1074 1177  813 1012  884 1149  961  946 1083 1151
##  [813] 1155  891 1026 1113 1098  833 1004  839 1074  824 1104  819  823 1160
##  [827] 1124 1154 1055  961 1027  852 1159  901  930  948 1199  849  812 1148
##  [841] 1069  812  863  816  916  809  911  901  935  934  978 1165  903  831
##  [855] 1076 1007  983  849  912  954  942  944 1196 1042 1112 1018  812 1177
##  [869] 1004 1096 1127  992  989 1024  965 1112  881  986 1185 1184  865  852
##  [883] 1117  843 1195 1053 1036 1040  874 1159  895 1107 1075 1153 1083  992
##  [897] 1190 1196  928 1163 1172 1045  831  844 1096  949  913  847  877 1117
##  [911] 1000 1129 1167 1181 1153 1081 1155  842  971 1025  962  850  994  905
##  [925]  943 1080 1108 1120  879 1160  833 1044 1026 1146  998  838 1019 1099
##  [939] 1171  913  951 1060  937 1134  943 1137 1146  937  937 1086  937  897
##  [953] 1031  876 1011 1127 1081  997 1054 1076 1061 1082  814  989 1063  892
##  [967] 1126 1108 1108  930 1012  889 1164  949  957  994  802 1067 1132  988
##  [981] 1001 1096 1000 1046 1042  847  985  855 1164  887 1184 1107 1006  862
##  [995]  860 1182 1145  954 1119  942  915  854 1139 1105 1159 1016 1147  823
## [1009] 1024  865 1083 1010  922  861 1185  871  940  849 1131 1168  882 1114
## [1023] 1086  806  987 1069  930 1072 1084  816 1065  974 1022  817  959  900
## [1037] 1028 1178 1171 1159 1013  981 1123  988 1004  838 1118  873 1196 1092
## [1051]  868  912 1055  936  973 1093  829 1197 1134 1162 1188 1144 1132 1196
## [1065] 1037 1182  818 1001  936 1000 1186 1020  852 1052 1073  902 1015 1036
## [1079]  952  838  929 1049 1055 1155  880 1081  822  917  895  901  974  905
## [1093] 1168  840 1056  825  859  988  851 1026 1089  906 1076  916  811  903
## [1107] 1163 1087  857  827 1118  806 1016 1048  836  905 1024  833 1006  911
## [1121] 1187  937  997  934 1103  935  857 1011 1033  939 1119  913  862  820
## [1135] 1173  879  886 1111 1075  997 1101 1017  968  854 1070  897 1181 1185
## [1149] 1197 1014  851 1017 1114  835  804 1024 1156  983 1170  827  829  813
## [1163] 1013  813 1012 1071  938 1008 1105  893  923  924  859 1014 1090 1006
## [1177] 1196  806 1096 1004  908 1133 1138 1129 1060  988  940 1000 1122  989
## [1191] 1130 1079 1197 1039  865  935 1101 1090 1099  806  825  867  955  940
## [1205] 1105  959  988 1106 1142  827 1085 1050  888 1087 1150  808  805 1195
## [1219]  842 1162  916 1054 1164 1132 1097  954  960 1119  996  968 1085  934
## [1233] 1111 1148  953 1113  813  937  937  905 1139  948  937 1028 1112 1076
## [1247]  826  927  823  828 1001 1003  899  977 1002  908  845  805 1032 1172
## [1261]  808 1056  888 1037 1031  896 1065 1074 1191 1184 1170  801 1117 1029
## [1275] 1195  884  894  846 1164  957  897  890  967  876 1009 1027 1122  923
## [1289]  951  930  801  924 1147  845 1126 1026 1030  805  957  922 1168 1004
## [1303] 1137 1011 1066  943 1064  988 1185  855  902 1157  896 1166  823  827
## [1317]  961  846  982  927  841  819  947 1137 1031 1019  874 1028 1037 1166
## [1331] 1020  872  937 1172 1122 1079 1121  952  822 1068  933 1101  818  976
## [1345] 1185 1059  870 1194 1136 1006  807  830 1026 1060 1116 1088 1156  876
## [1359]  974  834 1039 1127 1131  958  911  946 1025 1121 1152  880 1030 1141
## [1373] 1087  850  966 1015  919  908  882  850  955  997 1135  823  814  964
## [1387]  986 1156  905  808  841 1012 1074  964 1101 1172  889 1149  834  841
## [1401]  863 1010  850  992 1178  853  978 1056  962 1158 1166  991  903 1113
## [1415]  834 1118  874  861  857 1104  804  934  893 1183  860  977 1072 1174
## [1429] 1137  931  831  831  811  827 1043  895 1156  972 1051  811 1016  947
## [1443] 1048 1040 1074 1104 1172 1105  880 1165  961 1126  972  899  829  878
## [1457] 1022  911 1063  823  894  903 1081  993  948 1198  949  861 1104 1066
## [1471]  975  965 1024  880 1091  985  933  830 1066  914 1068  980 1065 1121
## [1485]  964 1111  861  852 1045  880 1184 1172  886 1020  833  982  893  839
## [1499] 1155  984

Algunos graficos.

plot(Motores)

plot(sort(Motores), main = "NĂºmero de motores de Noviembre", xlab = "Kirloskar & Changfa", ylab = "Motores encendidos diariamente")

hist(Motores)

# Crear un set de datos ficticios con 5 valores con NA.
Motores <- as.integer(runif(1500,3.0,5.0))
Motores
##    [1] 4 3 3 3 3 4 3 3 3 4 4 3 3 4 4 4 4 4 3 4 4 4 3 3 4 3 3 4 3 3 4 4 3 3 3 3 4
##   [38] 3 4 3 4 4 3 4 3 3 3 3 3 4 3 3 3 4 3 4 3 3 3 3 3 4 4 3 3 4 3 4 3 4 4 3 3 4
##   [75] 4 4 3 3 3 3 3 3 4 3 3 3 4 4 4 4 3 3 3 4 4 3 3 4 3 4 4 4 3 4 4 4 4 3 4 3 3
##  [112] 4 3 4 4 3 3 3 4 3 3 3 3 4 3 4 3 4 3 4 3 4 3 3 3 3 3 4 3 4 3 4 4 4 3 3 3 4
##  [149] 4 3 4 3 3 4 4 4 4 4 4 3 4 4 4 3 3 3 4 4 3 3 3 4 3 3 3 3 3 4 3 4 3 3 4 3 4
##  [186] 3 3 3 4 4 3 4 3 4 3 4 3 4 4 4 4 3 4 3 3 4 4 4 3 4 3 3 4 4 3 4 4 3 4 4 3 3
##  [223] 4 3 3 3 4 4 3 3 4 4 3 3 3 3 3 4 3 4 3 4 4 3 3 4 4 3 4 3 3 3 4 4 3 3 4 3 3
##  [260] 4 3 4 4 4 3 3 3 3 3 4 4 3 4 4 3 3 3 4 4 3 3 4 4 3 4 3 4 4 4 4 3 4 4 3 3 4
##  [297] 4 3 4 3 3 4 4 3 4 4 4 4 3 4 4 4 4 4 4 4 3 3 4 4 4 4 3 4 4 4 4 4 3 3 3 4 3
##  [334] 3 4 3 4 4 4 4 4 4 3 4 3 4 3 3 3 4 3 4 4 3 4 3 3 3 3 3 3 3 4 3 3 4 4 4 4 4
##  [371] 3 4 3 3 4 3 3 4 3 4 3 4 4 3 3 4 4 3 3 4 4 3 3 3 4 3 4 3 3 3 4 3 3 3 4 3 4
##  [408] 3 4 4 3 3 4 4 3 4 3 3 3 3 4 4 4 3 3 3 4 4 3 3 3 3 4 4 4 3 3 3 4 3 4 4 3 4
##  [445] 4 4 4 4 3 3 3 4 4 3 4 4 4 3 4 4 3 3 4 3 4 4 4 3 3 3 4 3 3 4 4 3 3 4 3 3 4
##  [482] 4 3 4 4 3 4 4 4 3 3 3 3 3 3 3 4 3 3 4 4 4 4 4 4 4 3 4 3 3 4 3 4 3 4 3 3 3
##  [519] 4 3 3 3 4 3 3 4 3 4 4 3 3 4 3 3 3 4 3 4 3 4 3 4 4 4 4 3 4 3 4 4 3 4 4 4 4
##  [556] 3 3 4 3 3 4 4 3 4 4 3 3 3 4 4 3 4 3 3 3 4 3 3 3 3 3 3 4 3 3 3 4 4 3 3 3 4
##  [593] 3 4 4 3 3 3 3 4 4 4 3 3 3 3 3 4 4 3 4 3 3 3 3 4 3 4 4 4 3 4 4 3 3 3 3 4 3
##  [630] 4 4 3 4 4 4 4 3 3 3 4 3 4 3 4 3 3 4 4 3 4 4 3 3 3 3 4 4 3 4 3 3 4 4 4 4 4
##  [667] 4 4 3 4 4 3 3 4 4 4 4 3 3 3 3 3 4 3 3 3 4 4 3 4 4 3 3 4 4 4 4 3 4 3 3 4 4
##  [704] 4 3 3 3 4 4 4 4 3 3 3 3 3 3 4 4 4 3 4 3 3 4 4 4 3 4 4 3 4 3 4 4 4 4 4 3 3
##  [741] 4 4 4 4 3 3 4 3 3 4 4 3 3 4 3 3 3 3 4 3 3 4 4 4 3 3 4 4 3 4 4 3 3 3 3 3 4
##  [778] 3 3 4 3 3 3 3 3 4 3 4 3 4 4 4 4 3 3 3 4 3 3 3 3 4 3 3 4 4 4 4 3 3 3 4 4 4
##  [815] 4 4 4 3 3 4 3 4 3 3 3 4 3 3 4 4 4 4 3 3 4 4 3 4 4 3 4 3 4 3 3 3 4 4 3 4 3
##  [852] 4 4 3 4 3 4 3 3 3 3 4 4 3 3 3 4 4 4 4 3 4 4 3 3 4 3 4 3 3 4 3 3 3 3 4 4 4
##  [889] 3 4 4 3 4 4 3 3 4 4 3 3 3 3 3 4 4 4 3 4 3 4 4 4 3 4 3 4 4 4 3 3 3 4 4 3 3
##  [926] 4 4 4 4 4 4 3 4 4 4 3 3 3 4 4 3 4 3 4 3 4 4 4 3 4 3 4 4 3 4 4 3 4 4 3 4 3
##  [963] 4 4 4 4 3 3 3 3 3 4 3 4 3 3 4 3 3 4 4 4 4 3 3 4 3 3 3 4 3 3 4 4 3 4 4 4 3
## [1000] 3 4 4 4 3 3 3 3 4 4 4 4 3 4 3 3 3 4 4 4 3 3 4 4 4 4 4 4 4 3 4 4 3 4 3 3 4
## [1037] 3 3 4 3 4 3 4 4 4 3 4 4 3 4 3 4 4 4 4 3 3 3 4 3 3 3 4 3 4 3 3 4 3 3 3 3 4
## [1074] 3 4 3 4 3 4 4 3 4 4 4 4 4 3 4 3 4 3 3 3 4 4 3 4 3 4 3 4 3 3 3 4 3 4 3 3 4
## [1111] 4 4 3 3 3 3 3 3 4 3 3 3 3 3 3 4 4 4 3 4 3 4 3 3 3 4 3 4 3 4 4 4 3 4 4 4 3
## [1148] 3 3 4 3 4 3 4 4 4 4 4 3 4 4 3 3 3 3 4 4 3 3 4 3 4 3 4 4 4 3 3 4 3 3 3 4 3
## [1185] 4 3 3 3 3 3 3 4 4 4 3 4 3 4 3 3 3 4 4 3 3 4 3 3 4 3 4 3 3 4 3 4 3 3 4 4 4
## [1222] 4 4 4 3 4 3 3 3 4 3 3 3 4 3 3 3 4 4 4 4 4 4 3 3 4 4 3 4 3 3 4 3 3 3 4 3 3
## [1259] 3 3 3 4 3 3 4 3 4 4 4 4 4 4 3 3 3 3 4 4 4 3 4 3 3 4 3 3 3 4 3 4 3 3 4 3 4
## [1296] 3 4 4 4 4 4 3 4 4 3 3 4 4 3 4 3 4 3 3 4 3 3 4 3 4 3 3 4 4 3 3 3 3 4 4 3 4
## [1333] 4 3 4 3 4 4 4 4 4 3 3 3 4 4 4 4 3 3 3 3 3 3 3 4 4 4 3 3 4 4 3 4 4 4 3 3 3
## [1370] 4 4 4 3 3 4 4 3 3 3 4 3 4 4 3 3 3 4 3 4 4 3 3 3 4 3 4 3 3 3 4 4 3 4 3 3 3
## [1407] 4 3 3 3 4 3 3 4 3 4 4 3 3 4 3 4 4 3 4 3 4 4 4 4 4 4 4 3 3 4 3 3 4 4 3 4 3
## [1444] 3 3 3 4 3 4 3 3 3 4 3 4 3 4 4 3 3 3 3 4 4 3 4 4 3 4 4 4 4 3 3 3 4 3 3 3 4
## [1481] 4 3 4 3 3 4 3 3 3 3 3 4 3 4 4 4 3 4 3 3
plot(Motores)

plot(sort(Motores), main = "NĂºmero de motores de Noviembre", xlab = "Kirloskar & Changfa", ylab = "Motores encendidos diariamente")

hist(Motores)