datos.nb

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    250354,       6300]
NotebookOptionsPosition[    240974,       5993]
NotebookOutlinePosition[    241308,       6008]
CellTagsIndexPosition[    241265,       6005]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"datacb1", "=", " ", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{
     "\"\</home/raquel/Fac/Datos/Proyecto_Final/Proyecto_Datos/microdatos/\
enpecyt2013_cb1.dbf\>\"", ",", " ", "\"\<LabeledData\>\""}], "]"}], "/.", 
    RowBox[{"\"\<\>\"", "\[Rule]", "0"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.699550764831272*^9, 3.699550779165442*^9}, {
   3.699554654256795*^9, 3.699554715849717*^9}, {3.704391835621397*^9, 
   3.7043918371849422`*^9}, {3.704391875998888*^9, 3.704391884107335*^9}, {
   3.704391930758005*^9, 3.704391937083074*^9}, {3.7043919715366087`*^9, 
   3.704391989430003*^9}, 3.70542552177421*^9, 3.7054256260029087`*^9, 
   3.7056094212297897`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"datacb2", "=", " ", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{
     "\"\</home/raquel/Fac/Datos/Proyecto_Final/Proyecto_Datos/microdatos/cb2.\
csv\>\"", ",", 
      RowBox[{"\"\<Numeric\>\"", "\[Rule]", "False"}]}], "]"}], "/.", 
    RowBox[{"\"\<\>\"", "\[Rule]", "0"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7053516321037807`*^9, 3.705351635294066*^9}, {
   3.705352227884622*^9, 3.705352236406601*^9}, {3.705425529784296*^9, 
   3.705425534377491*^9}, {3.7054255995650463`*^9, 3.705425609070361*^9}, {
   3.705426358725782*^9, 3.705426361892706*^9}, 3.705427262954286*^9, {
   3.705435197934038*^9, 3.705435244068432*^9}, {3.705437105587647*^9, 
   3.705437106029427*^9}, {3.7056093223229103`*^9, 3.705609334354055*^9}, 
   3.705609393294531*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"datacs", "=", " ", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{
     "\"\</home/raquel/Fac/Datos/Proyecto_Final/Proyecto_Datos/microdatos/\
enpecyt2013_cs.dbf\>\"", ",", " ", "\"\<LabeledData\>\""}], "]"}], "/.", 
    RowBox[{"\"\<\>\"", "\[Rule]", "0"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.704392005278146*^9, {3.7054255027723494`*^9, 3.705425510800891*^9}, 
   3.705609423061438*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datacs", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.70439264602192*^9, 3.704392658012744*^9}, {
   3.704392729096294*^9, 3.704392793104335*^9}, 3.704407578322969*^9, {
   3.705427730183412*^9, 3.705427773181727*^9}, {3.705427834287908*^9, 
   3.7054278347109127`*^9}, {3.705427886095188*^9, 3.705427918933961*^9}, {
   3.705428621714402*^9, 3.7054286226275787`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"CD_A\"\>", ",", "\<\"PER\"\>", ",", "\<\"ENT\"\>", 
   ",", "\<\"CON\"\>", ",", "\<\"V_SEL\"\>", ",", "\<\"N_HOG\"\>", 
   ",", "\<\"N_REN\"\>", ",", "\<\"NOM\"\>", ",", "\<\"PAR\"\>", 
   ",", "\<\"SEX\"\>", ",", "\<\"EDA\"\>", ",", "\<\"NAC_DIA\"\>", 
   ",", "\<\"NAC_MES\"\>", ",", "\<\"NAC_ANIO\"\>", ",", "\<\"NIV\"\>", 
   ",", "\<\"GRA\"\>", ",", "\<\"A_ESC\"\>", ",", "\<\"ELEGIDO\"\>", 
   ",", "\<\"R_DEF\"\>", ",", "\<\"EST_DIS\"\>", ",", "\<\"UPM_DIS\"\>", 
   ",", "\<\"FACTOR\"\>", ",", "\<\"FAC18\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7043927945489817`*^9, 3.704400547788967*^9, 3.7044045295152597`*^9, 
   3.7044075481575823`*^9, 3.704407582159556*^9, 3.705347810706345*^9, 
   3.705425462285067*^9, 3.7054255508143873`*^9, 3.705426394780696*^9, 
   3.705427743637698*^9, 3.705427774243451*^9, 3.7054278363513803`*^9, {
   3.705427887982085*^9, 3.705427919971657*^9}, 3.705428623104846*^9, 
   3.705431477150065*^9, 3.7054327986033497`*^9, 3.705433464084105*^9, 
   3.70543861478506*^9, 3.705438752067668*^9, 3.7055098074368887`*^9, 
   3.705599545631158*^9, 3.705602016158094*^9, 3.705602115692573*^9, 
   3.705602206845316*^9, {3.7056094111951017`*^9, 3.705609435737441*^9}, 
   3.7056680427159*^9, 3.7056729615994873`*^9, 3.705673911893189*^9, 
   3.705678310660652*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tdata", "=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"datacs", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", "7"}], ",", "2"}], "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7043927966058283`*^9, 3.704392805010051*^9}, {
   3.704393120697054*^9, 3.704393126327265*^9}, {3.704393264123822*^9, 
   3.704393265194106*^9}, {3.704393317415216*^9, 3.704393322156176*^9}, {
   3.704393453564703*^9, 3.704393459916066*^9}, 3.7054278044922237`*^9, 
   3.705427961582326*^9, {3.705428379480155*^9, 3.705428380922702*^9}, 
   3.705428425060667*^9}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"05\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"04\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"03\"\>"}], "}"}], ",", 
           TemplateBox[{"10407"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"06\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"04\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 599, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 599, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 599, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[599]]], "Output",
 CellChangeTimes->{
  3.704393323924636*^9, 3.704393461484617*^9, 3.7044005480441227`*^9, 
   3.704404532142394*^9, 3.704407585621991*^9, 3.70534860157026*^9, 
   3.705425462567285*^9, 3.705425551024416*^9, 3.7054263951816998`*^9, 
   3.70542796290733*^9, {3.705428416364459*^9, 3.7054284258751793`*^9}, 
   3.705428465782308*^9, 3.705431477367943*^9, 3.705432798784967*^9, 
   3.705433464247404*^9, 3.705438614955608*^9, 3.7054387522515182`*^9, 
   3.705509807753501*^9, 3.705599545840633*^9, 3.7056020163810587`*^9, 
   3.705602115887127*^9, 3.70560220700321*^9, {3.705609411511743*^9, 
   3.705609436046979*^9}, 3.705668042959667*^9, 3.7056729617759857`*^9, 
   3.7056739120723553`*^9, 3.70567831261481*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tdata", "[", 
  RowBox[{"[", "580", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.704393481322291*^9, 3.7043934842316713`*^9}, {
  3.7054350209353447`*^9, 3.705435034309347*^9}, {3.705435370121419*^9, 
  3.705435375183229*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"21\"\>", ",", "\<\"0813\"\>", ",", "\<\"02\"\>", 
   ",", "\<\"40168\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"02\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.70439348486007*^9, 3.705425462609955*^9, 3.7054255510405693`*^9, 
   3.70542639539081*^9, 3.705427980485551*^9, 3.705428468691984*^9, 
   3.70543147739636*^9, 3.705432798820261*^9, 3.705433464285829*^9, {
   3.705435021948082*^9, 3.705435034988206*^9}, {3.7054353708879004`*^9, 
   3.7054353759361753`*^9}, 3.705438615008369*^9, 3.705438752294858*^9, 
   3.7055098077883253`*^9, 3.705599545874634*^9, 3.705602016442473*^9, 
   3.7056021159254503`*^9, 3.705602207038178*^9, {3.705609411578603*^9, 
   3.705609436094911*^9}, 3.705668043011545*^9, 3.705672961819891*^9, 
   3.705673912113758*^9, 3.705678312892785*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Head", "[", "#", "]"}], "&"}], ",", 
   RowBox[{"tdata", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7043934963148823`*^9, 3.704393523556435*^9}, {
  3.704393739444922*^9, 3.7043937453333282`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "String", ",", "String", ",", "String", ",", "String", ",", "String", ",", 
   "String", ",", "String"}], "}"}]], "Output",
 CellChangeTimes->{
  3.70439374629428*^9, 3.705425462734165*^9, 3.705425551117826*^9, 
   3.70542639544578*^9, 3.7054279903401203`*^9, 3.705428470666583*^9, 
   3.70543147741993*^9, 3.705432798852154*^9, 3.705433464314007*^9, 
   3.705438615043797*^9, 3.7054387523375387`*^9, 3.705509807820363*^9, 
   3.7055995459091663`*^9, 3.705602016483088*^9, 3.7056021159607487`*^9, 
   3.705602207068131*^9, {3.705609411678391*^9, 3.7056094361441813`*^9}, 
   3.705668043050951*^9, 3.705672961861621*^9, 3.705673912151116*^9, 
   3.7056783130633287`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.704393733408036*^9, 3.704393734487898*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringJoin", "[", 
  RowBox[{"tdata", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.704393768151537*^9, 3.7043937860541983`*^9}}],

Cell[BoxData["\<\"14081301400075102\"\>"], "Output",
 CellChangeTimes->{
  3.70439378778135*^9, 3.705425462984425*^9, 3.705425551138876*^9, 
   3.705426395632592*^9, 3.705427996930962*^9, 3.705428474215016*^9, 
   3.705431477464061*^9, 3.7054327988910933`*^9, 3.705433464346445*^9, 
   3.7054386150820923`*^9, 3.705438752378353*^9, 3.7055098078668003`*^9, 
   3.7055995459538517`*^9, 3.705602016529972*^9, 3.705602116006308*^9, 
   3.7056022071029797`*^9, {3.705609411797532*^9, 3.7056094362037888`*^9}, 
   3.7056680430993557`*^9, 3.705672961902421*^9, 3.705673912193489*^9, 
   3.7056783132498503`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\"\<RFC\>\"", "de", " ", "cada", " ", "personito", " ", "del", " ", 
   "archivo", " ", "cs"}], "*)"}]], "Input",
 CellChangeTimes->{{3.705428931511395*^9, 3.7054289481853857`*^9}, {
  3.7054290308589907`*^9, 3.705429033823657*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"stdata", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"StringJoin", "[", "#", "]"}], "&"}], ",", "tdata"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.704394121445361*^9, 3.704394153207299*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          
          RowBox[{"\<\"14081301400075102\"\>", 
           ",", "\<\"14081301400072102\"\>", ",", "\<\"14081301400072101\"\>",
            ",", "\<\"14081301400074105\"\>", 
           ",", "\<\"14081301400074104\"\>", ",", "\<\"14081301400074103\"\>",
            ",", "\<\"14081301400074102\"\>", 
           ",", "\<\"14081301400074101\"\>", ",", "\<\"14081301400073103\"\>",
            ",", "\<\"14081301400073102\"\>", 
           ",", "\<\"14081301400073101\"\>", ",", "\<\"14081301400071102\"\>",
            ",", 
           TemplateBox[{"10395"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], 
           ",", "\<\"32081332403961101\"\>", ",", "\<\"32081332403962104\"\>",
            ",", "\<\"32081332403962103\"\>", 
           ",", "\<\"32081332403962102\"\>", ",", "\<\"32081332403963101\"\>",
            ",", "\<\"32081332403961105\"\>", 
           ",", "\<\"32081332403961106\"\>", ",", "\<\"32081332403964101\"\>",
            ",", "\<\"32081332403961104\"\>", 
           ",", "\<\"32081332403964102\"\>", 
           ",", "\<\"32081332403962101\"\>"}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 605, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 605, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 605, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[605]]], "Output",
 CellChangeTimes->{
  3.704394154768804*^9, 3.704400559565503*^9, 3.704404538209302*^9, 
   3.704407590397986*^9, 3.705348608001583*^9, 3.705425463139155*^9, 
   3.705425551184786*^9, 3.705426395821971*^9, 3.705428004538228*^9, 
   3.705428476451387*^9, 3.705431477543756*^9, 3.705432798972562*^9, 
   3.705433464417705*^9, 3.705438615150372*^9, 3.705438752459482*^9, 
   3.7055098079507008`*^9, 3.7055995460395823`*^9, 3.7056020166184893`*^9, 
   3.705602116087282*^9, 3.7056022071781807`*^9, {3.705609412146057*^9, 
   3.705609436310424*^9}, 3.705668043226273*^9, 3.7056729619841957`*^9, 
   3.705673912268239*^9, 3.705678313426903*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"stdata", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.704395481032072*^9, 3.7043954883468113`*^9}}],

Cell[BoxData["10418"], "Output",
 CellChangeTimes->{
  3.704395490277371*^9, 3.705348612885642*^9, 3.705425463193028*^9, 
   3.70542555119967*^9, 3.705426395956299*^9, 3.7054280111029654`*^9, 
   3.705431477571279*^9, 3.705432799005899*^9, 3.705433464471346*^9, 
   3.705438615194746*^9, 3.705438752502717*^9, 3.705509807981653*^9, 
   3.705599546067041*^9, 3.7056020166734858`*^9, 3.705602116126977*^9, 
   3.7056022072107763`*^9, {3.705609412267866*^9, 3.70560943634536*^9}, 
   3.705668043284388*^9, 3.705672962022747*^9, 3.705673912304619*^9, 
   3.705678313583894*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tally", "[", 
  RowBox[{
   RowBox[{"Tally", "[", "stdata", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.705428785702037*^9, 3.70542881775104*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "10418"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705428818170939*^9, 3.7054314776057796`*^9, 3.705432799048764*^9, 
   3.70543346452339*^9, 3.705438615242126*^9, 3.7054387525492477`*^9, 
   3.705509808028269*^9, 3.705599546108521*^9, 3.705602016734097*^9, 
   3.7056021161723146`*^9, 3.7056022072517767`*^9, {3.705609412399239*^9, 
   3.705609436391869*^9}, 3.705668043333337*^9, 3.705672962067202*^9, 
   3.705673912348735*^9, 3.705678313778764*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tdata2", "=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"datacb1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", "7"}], ",", "2"}], "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7043953316024523`*^9, 3.70439535347122*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"05\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"03\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"3\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"03\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           TemplateBox[{"2846"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40364\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"3\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 608, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 608, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 608, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[608]]], "Output",
 CellChangeTimes->{{3.7043953356804953`*^9, 3.70439535408951*^9}, 
   3.704400564645192*^9, 3.704404541504904*^9, 3.704407593493991*^9, 
   3.705347897933359*^9, 3.705348616094103*^9, 3.705425463271502*^9, 
   3.705425551303154*^9, 3.705426396131445*^9, 3.705431477691115*^9, 
   3.705432799109439*^9, 3.705433464613647*^9, 3.705438615320492*^9, 
   3.7054387526063757`*^9, 3.705509808109098*^9, 3.705599546169623*^9, 
   3.7056020168455133`*^9, 3.705602116264695*^9, 3.705602207307508*^9, {
   3.705609412579279*^9, 3.705609436481331*^9}, 3.705668043390717*^9, 
   3.705672962122333*^9, 3.70567391243653*^9, 3.7056783139655533`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\"\<RFC\>\"", "de", " ", "cada", " ", "personito", " ", "del", " ", 
   "archivo", " ", "cs"}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"stdata2", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"StringJoin", "[", "#", "]"}], "&"}], ",", "tdata2"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.704395461106504*^9, 3.704395463221496*^9}, 
   3.704404546494169*^9, {3.7054292685905848`*^9, 3.70542927111707*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tally", "[", 
  RowBox[{
   RowBox[{"Tally", "[", "stdata2", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.705429298630731*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2857"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705429299268939*^9, 3.7054314777489147`*^9, 3.7054327991607513`*^9, 
   3.7054334646683187`*^9, 3.705438615360326*^9, 3.70543875266606*^9, 
   3.705509808162682*^9, 3.705599546234623*^9, 3.7056020169262667`*^9, 
   3.705602116335127*^9, 3.705602207363677*^9, {3.7056094128486767`*^9, 
   3.7056094367223473`*^9}, 3.705668043458807*^9, 3.705672962188314*^9, 
   3.705673912506013*^9, 3.705678314173072*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"De", " ", "cs", " ", "saco", " ", "entidad"}], ",", " ", 
   RowBox[{"sexo", " ", "y", " ", "edad"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.705429486528205*^9, 3.705429500364977*^9}, {
  3.7056018844060707`*^9, 3.705601884983409*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vdata", "=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"datacs", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "10", ",", "11"}], "}"}], ",", "2"}], "]"}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.704396135349503*^9, 3.7043961763080807`*^9}, {
  3.704397917468513*^9, 3.704397959478551*^9}, {3.704398061181851*^9, 
  3.704398062640436*^9}, {3.704405442979244*^9, 3.704405443441271*^9}, {
  3.70440744601052*^9, 3.704407457131238*^9}, {3.7044076026754436`*^9, 
  3.704407612135222*^9}, {3.70440772098676*^9, 3.704407721254674*^9}, {
  3.705429414777576*^9, 3.705429415767672*^9}, {3.7054294772215977`*^9, 
  3.705429477428732*^9}, {3.705432783369467*^9, 3.7054327837051907`*^9}, {
  3.7054334463948812`*^9, 3.705433446771175*^9}, {3.705601887222176*^9, 
  3.705601887835574*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"067\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"054\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"059\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"009\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"011\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"032\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"030\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"062\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"004\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"005\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"027\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"071\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"061\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"010\"\>"}], 
            "}"}], ",", 
           TemplateBox[{"10391"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"017\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"038\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"050\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"008\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"011\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"017\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"055\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"010\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"001\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"052\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"016\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"021\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"041\"\>"}], 
            "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 613, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 613, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 613, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[613]]], "Output",
 CellChangeTimes->{
  3.704396177187401*^9, {3.704397927703905*^9, 3.704397960384693*^9}, 
   3.704398064138535*^9, 3.70440057157658*^9, 3.704404553021763*^9, 
   3.704405444569641*^9, 3.704407470066111*^9, {3.704407603909203*^9, 
   3.704407613200364*^9}, 3.704407722372858*^9, {3.705347916833034*^9, 
   3.7053479256150417`*^9}, 3.705348635621456*^9, 3.705425463560082*^9, 
   3.705425551504629*^9, 3.70542639675572*^9, {3.705429463954954*^9, 
   3.705429478183984*^9}, 3.7054314778929043`*^9, 3.705432799309801*^9, {
   3.705433447879743*^9, 3.7054334647797747`*^9}, 3.705438615456472*^9, 
   3.705438752775752*^9, 3.705509808270994*^9, 3.7055995463550653`*^9, 
   3.705601888915235*^9, 3.70560201709489*^9, 3.7056021164631453`*^9, 
   3.705602207488963*^9, {3.705609413262187*^9, 3.7056094370611687`*^9}, 
   3.7056680435958233`*^9, 3.705672962316218*^9, 3.705673912648685*^9, 
   3.705678314417076*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"rdata", "=", 
   RowBox[{"Range", "[", 
    RowBox[{"Length", "[", "stdata", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.704398009490882*^9, 3.7043980223680267`*^9}, {
  3.704398067950018*^9, 3.70439807369593*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aso1", " ", "=", " ", 
  RowBox[{"Association", "[", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"stdata", "[", 
        RowBox[{"[", "#", "]"}], "]"}], "\[Rule]", 
       RowBox[{"vdata", "[", 
        RowBox[{"[", "#", "]"}], "]"}]}], "&"}], ",", "rdata"}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.704400670950787*^9, 3.704400685228937*^9}, {
  3.704404676862771*^9, 3.70440473162422*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"\[LeftAssociation]", 
          RowBox[{
           RowBox[{"\<\"14081301400075102\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"067\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"14081301400072102\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"054\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"14081301400072101\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"059\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"14081301400074105\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"009\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"14081301400074104\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"011\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"14081301400074103\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"032\"\>"}], 
             "}"}]}], ",", 
           TemplateBox[{"10406"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"\<\"32081332403961105\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"010\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"32081332403961106\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"001\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"32081332403964101\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"052\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"32081332403961104\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"016\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"32081332403964102\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"021\"\>"}], 
             "}"}]}], ",", 
           RowBox[{"\<\"32081332403962101\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"041\"\>"}], 
             "}"}]}]}], "\[RightAssociation]"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 615, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 615, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 615, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[615]]], "Output",
 CellChangeTimes->{
  3.704404702754519*^9, 3.704404733385915*^9, 3.704405452047185*^9, 
   3.7044076253805532`*^9, 3.7044077308873987`*^9, {3.7053485661528473`*^9, 
   3.7053485754290943`*^9}, 3.705348643870151*^9, 3.705425463609109*^9, 
   3.705425551630762*^9, 3.705426397058975*^9, 3.705429686462676*^9, 
   3.7054314781495447`*^9, 3.705432344375731*^9, 3.7054327995936213`*^9, 
   3.7054334650261393`*^9, 3.7054386156734324`*^9, 3.7054387530281563`*^9, 
   3.705509808487501*^9, 3.705599546639683*^9, 3.70560201734783*^9, 
   3.705602116742538*^9, 3.705602207766245*^9, {3.7056094137446404`*^9, 
   3.705609437443716*^9}, 3.7056680439165154`*^9, 3.705672962574394*^9, 
   3.705673912906519*^9, 3.705678314768717*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "En", " ", "aso1", " ", "ya", " ", "tengo", " ", "junto", " ", "entidad"}],
    ",", " ", 
   RowBox[{
   "sexo", " ", "y", " ", "factor", " ", "del", " ", "archivo", " ", "cs", 
    " ", "relacionado", " ", "con", " ", "su", " ", "RFC"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.704405474730639*^9, 3.704405493716501*^9}, 
   3.7044076334213448`*^9, {3.704407738302367*^9, 3.704407743052868*^9}, {
   3.7054296635673513`*^9, 3.7054296671469603`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aso1", "[", "\"\<14081301400075102\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.704405118397814*^9, 3.70440512399128*^9}, 
   3.705429698358768*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"067\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7044051250641317`*^9, 3.704405459775713*^9, 3.704407629589881*^9, 
   3.704407734669016*^9, 3.7053485518051357`*^9, 3.705348647623322*^9, 
   3.7054254637738857`*^9, 3.705425551753285*^9, 3.705426397253364*^9, {
   3.705429673647871*^9, 3.705429710115192*^9}, 3.705431478250031*^9, 
   3.705432799662818*^9, 3.70543346508635*^9, 3.705438615725878*^9, 
   3.70543875308918*^9, 3.70550980864475*^9, 3.705599546869329*^9, 
   3.705602017418645*^9, 3.7056021168135233`*^9, 3.705602207821857*^9, {
   3.705609413947633*^9, 3.705609437640479*^9}, 3.705668043974781*^9, 
   3.705672962644595*^9, 3.705673912981258*^9, 3.705678314838347*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Hasta", " ", "ac\[AAcute]", " ", "tenemos", " ", "ya", " ", "definidos", 
    " ", "los", " ", "RFC", " ", "en", " ", "los", " ", "archivos", " ", "cs",
     " ", "y", " ", "cb1"}], ",", " ", 
   RowBox[{
   "en", " ", "cs", " ", "ya", " ", "tambien", " ", "le", " ", "asociamos", 
    " ", "el", " ", "sexo"}], ",", " ", 
   RowBox[{"entidad", " ", "y", " ", "factor", " ", "as1"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.705429957536972*^9, 3.705430002800386*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "ahora", " ", "va", " ", "aso2", " ", "con", " ", "las", " ", "variables", 
   " ", "b1"}], "*)"}]], "Input",
 CellChangeTimes->{{3.70543004627528*^9, 3.705430058696751*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{
   RowBox[{"datacb1", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "\"\<S4P17_1\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7044086204236803`*^9, 3.704408625333498*^9}, {
  3.704408667936432*^9, 3.704408691363076*^9}, {3.704408771041582*^9, 
  3.704408803537176*^9}, {3.704408859280696*^9, 3.704408859605431*^9}, {
  3.7044089100682163`*^9, 3.704408911970194*^9}, {3.704408942260394*^9, 
  3.704408951501121*^9}, {3.705352260138773*^9, 3.705352272854765*^9}, {
  3.705430087829659*^9, 3.705430101501343*^9}, {3.70543014975918*^9, 
  3.705430291637138*^9}, {3.7054303667828283`*^9, 3.705430395772089*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "196", "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.704408804353408*^9, 3.7044088615791693`*^9, {3.7044089156692743`*^9, 
   3.704408952238796*^9}, 3.70535227352707*^9, 3.7054254641849337`*^9, 
   3.7054255520521317`*^9, 3.705426397540066*^9, {3.7054300890614233`*^9, 
   3.705430102495411*^9}, {3.705430150525434*^9, 3.70543029242245*^9}, {
   3.705430368022264*^9, 3.7054303963698*^9}, 3.705431478285303*^9, 
   3.705432799711938*^9, 3.7054334651298513`*^9, 3.705438615793976*^9, 
   3.705438753140971*^9, 3.705509808689734*^9, 3.705599546915225*^9, 
   3.705602017476389*^9, 3.705602116962838*^9, 3.705602207869424*^9, {
   3.705609414494103*^9, 3.705609437914089*^9}, 3.705668044037951*^9, 
   3.705672962701676*^9, 3.705673913042153*^9, 3.7056783150178432`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"las", " ", "variables", " ", "que", " ", "me", " ", "interesan"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.705351228063314*^9, 3.7053512396144323`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{
   RowBox[{"datacb1", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "\"\<S4P13_3\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.705350939914489*^9, 3.70535098955589*^9}, {
  3.7053510220751257`*^9, 3.705351032102908*^9}, {3.7053510672993097`*^9, 
  3.705351089508669*^9}, {3.705351168160407*^9, 3.705351180609836*^9}, {
  3.7053513191129723`*^9, 3.705351586599544*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "150", "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705351328114813*^9, {3.705351367556336*^9, 3.705351588395756*^9}, 
   3.705425464305808*^9, 3.705425552123159*^9, 3.7054263976854477`*^9, 
   3.705431478319785*^9, 3.705432799748809*^9, 3.705433465165578*^9, 
   3.705438615825697*^9, 3.705438753183659*^9, 3.705509808727707*^9, 
   3.705599546956399*^9, 3.705602017526284*^9, 3.705602117040702*^9, 
   3.705602207965013*^9, {3.705609414694447*^9, 3.705609438110036*^9}, 
   3.7056680440948877`*^9, 3.705672962757395*^9, 3.705673913086342*^9, 
   3.705678315205229*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"respuestas", "=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"12", ";;", "12"}], ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"20", ";;", "22"}], ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"68", ";;", "76"}], ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"99", ";;", "99"}], ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"101", ";;", "118"}], ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"196", ";;", "203"}], ",", "2"}], "]"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.704408983157401*^9, 3.7044091178185587`*^9}, 
   3.704409152073763*^9, {3.704409186598817*^9, 3.704409220314599*^9}, 
   3.704409254723171*^9, {3.704409676909902*^9, 3.704409702703754*^9}, {
   3.705430448885331*^9, 3.705430556880456*^9}, {3.705430635808311*^9, 
   3.705430649419826*^9}, {3.7054325227241583`*^9, 3.705432530034903*^9}, {
   3.7054387229297113`*^9, 3.705438723244176*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          TemplateBox[{"1"},
           "OutputSizeLimit`Skeleton",
           DisplayFunction->(FrameBox[
             RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], 
             Background -> GrayLevel[0.75], 
             BaseStyle -> {
              "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
               ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
             ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
             GrayLevel[0.75], RoundingRadius -> 7]& )], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 623, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 623, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 623, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[623]]], "Output",
 CellChangeTimes->{
  3.7054254645060797`*^9, 3.705425552174912*^9, 3.705426397883184*^9, 
   3.705430559327663*^9, 3.705430650693421*^9, 3.705431478543336*^9, 
   3.7054325310256157`*^9, 3.705432799952598*^9, 3.705433465369315*^9, 
   3.70543861601162*^9, {3.705438724656815*^9, 3.705438753375657*^9}, 
   3.705509808922092*^9, 3.705599547158699*^9, 3.7056020177318583`*^9, 
   3.705602117267672*^9, 3.7056022081418343`*^9, {3.7056094149787197`*^9, 
   3.7056094385026903`*^9}, 3.705668044348914*^9, 3.705672963012032*^9, 
   3.705673913340234*^9, 3.705678315552322*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"respuestas", "[", 
   RowBox[{"[", "1", "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.704409464958571*^9, 3.704409480890686*^9}, {
   3.704409521767435*^9, 3.704409561495113*^9}, {3.704409727445462*^9, 
   3.7044097286125298`*^9}, {3.704409834958535*^9, 3.704409835170127*^9}, {
   3.705430564652096*^9, 3.705430587562875*^9}, {3.705431550761602*^9, 
   3.705431553747273*^9}, 3.705433474852674*^9, 3.7054381028850307`*^9, {
   3.705438705133058*^9, 3.70543873575593*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vdata2", "=", 
  RowBox[{"Transpose", "[", "respuestas", "]"}]}]], "Input",
 CellChangeTimes->{{3.7054315815530243`*^9, 3.7054316030730143`*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "0", ",", "0", ",", "0", ",", "0", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"6\"\>", ",", "\<\"5\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0",
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
              "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"6\"\>", 
             ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0", ",", "\<\"1\"\>",
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           TemplateBox[{"2854"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            RowBox[{
            "0", ",", "0", ",", "0", ",", "0", ",", "\<\"6\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "0",
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 625, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 625, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 625, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[625]]], "Output",
 CellChangeTimes->{
  3.705431603594705*^9, 3.705432536704743*^9, 3.705432800262149*^9, 
   3.7054334656719017`*^9, 3.7054386162964993`*^9, {3.705438739076192*^9, 
   3.705438753634427*^9}, 3.70550980920185*^9, 3.70559954746868*^9, 
   3.705602018009111*^9, 3.7056021174968348`*^9, 3.705602208356196*^9, {
   3.705609415415072*^9, 3.7056094388960247`*^9}, 3.705668044665146*^9, 
   3.7056729632806873`*^9, 3.705673913646427*^9, 3.7056783160647182`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"vdata2", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "//", "Length"}]], "Input",
 CellChangeTimes->{{3.7054316072611094`*^9, 3.705431632101145*^9}}],

Cell[BoxData["40"], "Output",
 CellChangeTimes->{{3.705431611923088*^9, 3.7054316327936783`*^9}, 
   3.7054328002990007`*^9, 3.705433465722969*^9, 3.705438616332016*^9, 
   3.705438753671266*^9, 3.705509809279674*^9, 3.705599547543133*^9, 
   3.705602018084581*^9, 3.7056021175383377`*^9, 3.705602208391604*^9, {
   3.7056094154945803`*^9, 3.705609439109527*^9}, 3.705668044738927*^9, 
   3.705672963332987*^9, 3.705673913687117*^9, 3.705678316772756*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"rdata2", "=", 
   RowBox[{"Range", "[", 
    RowBox[{"Length", "[", "stdata2", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.705431675508109*^9, 3.705431677129949*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aso2", " ", "=", " ", 
  RowBox[{"Association", "[", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"stdata2", "[", 
        RowBox[{"[", "#", "]"}], "]"}], "\[Rule]", 
       RowBox[{"vdata2", "[", 
        RowBox[{"[", "#", "]"}], "]"}]}], "&"}], ",", "rdata2"}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.705431690620193*^9, 3.7054317147471848`*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"\[LeftAssociation]", 
          RowBox[{
           RowBox[{"\<\"14081301400072201\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "0", ",", "0", ",", "0", ",", "0", ",", "\<\"2\"\>", 
              ",", "\<\"3\"\>", ",", "\<\"6\"\>", ",", "\<\"5\"\>", 
              ",", "\<\"4\"\>", ",", "\<\"1\"\>", ",", "0", ",", "0", ",", 
              "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
               ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
               "0", ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",",
               "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
           RowBox[{"\<\"14081301400075105\"\>", "\[Rule]", 
            RowBox[{"{", 
             
             RowBox[{"\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"6\"\>", 
              ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0", 
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", 
              ",", "0", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
              ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
           TemplateBox[{"2854"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"\<\"32081332403961101\"\>", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "0", ",", "0", ",", "0", ",", "0", ",", "\<\"6\"\>", 
              ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", ",", 
              "0", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", 
              ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "0", 
              ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}]}], 
          "\[RightAssociation]"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 628, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 628, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 628, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[628]]], "Output",
 CellChangeTimes->{{3.7054317019734383`*^9, 3.70543171597651*^9}, 
   3.705432548071534*^9, 3.705432800549954*^9, 3.705433465962076*^9, 
   3.705438616585018*^9, 3.705438753919073*^9, 3.705509809554791*^9, 
   3.7055995478569517`*^9, 3.705602018353157*^9, 3.7056021177818823`*^9, 
   3.7056022086345987`*^9, {3.705609415861559*^9, 3.705609439619316*^9}, 
   3.705668045040174*^9, 3.705672963635689*^9, 3.705673913982008*^9, 
   3.705678317342512*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aso2", "[", "\"\<32081332403961101\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.705431710004171*^9, 3.7054317337774878`*^9}, 
   3.705431981901075*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "0", ",", "0", ",", "\<\"6\"\>", ",", "\<\"4\"\>", 
   ",", "\<\"5\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
   ",", "0", ",", "0", ",", "0", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "0", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "0", 
   ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.705431721682815*^9, 3.705431735588879*^9}, 
   3.705431982913748*^9, 3.705432552304391*^9, 3.705432800587723*^9, 
   3.705433466008857*^9, 3.705438616624086*^9, 3.705438753988415*^9, 
   3.705509809642777*^9, 3.705599547934692*^9, 3.705602018426547*^9, 
   3.7056021178412447`*^9, 3.705602208669818*^9, {3.705609415911484*^9, 
   3.705609439757432*^9}, 3.705668045083146*^9, 3.705672963692131*^9, 
   3.705673914035749*^9, 3.705678317411075*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "En", " ", "aso2", " ", "tengo", " ", "asociado", " ", "el", " ", "RFC", 
   " ", "a", " ", "las", " ", "variables", " ", "de", " ", "interes", " ", 
   "que", " ", "est\[AAcute]n", " ", "en", " ", "cb1"}], "*)"}]], "Input",
 CellChangeTimes->{{3.705431885600334*^9, 3.705431903542576*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Ahora", " ", "voy", " ", "a", " ", "unir", " ", "las", " ", "aso"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.705432132401484*^9, 3.705432141259605*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"stdata", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.7054321484451437`*^9, 3.7054321559881144`*^9}}],

Cell[BoxData["10418"], "Output",
 CellChangeTimes->{
  3.705432156712364*^9, 3.705432800632263*^9, 3.705433466072538*^9, 
   3.705438616666588*^9, 3.705438754079718*^9, 3.7055098096901293`*^9, 
   3.705599547993062*^9, 3.7056020184908733`*^9, 3.7056021178931026`*^9, 
   3.705602208715507*^9, {3.705609415973206*^9, 3.705609439970532*^9}, 
   3.705668045139823*^9, 3.705672963749152*^9, 3.705673914086541*^9, 
   3.705678317604347*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"stdata2", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.705432158860023*^9, 3.705432166230495*^9}}],

Cell[BoxData["2857"], "Output",
 CellChangeTimes->{
  3.70543216697663*^9, 3.7054328006799927`*^9, 3.7054334661007843`*^9, 
   3.7054386166865683`*^9, 3.705438754088293*^9, 3.705509809717711*^9, 
   3.705599548038549*^9, 3.705602018529887*^9, 3.705602117929701*^9, 
   3.7056022087463207`*^9, {3.70560941601945*^9, 3.705609440168442*^9}, 
   3.70566804517838*^9, 3.705672963754979*^9, 3.7056739141222363`*^9, 
   3.705678317768712*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Agarro", " ", "el", " ", "mas", " ", "chico"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7054322061689577`*^9, 3.705432211740883*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"stdata2", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.705432215491173*^9, 3.705432222187476*^9}}],

Cell[BoxData["\<\"14081301400072201\"\>"], "Output",
 CellChangeTimes->{
  3.705432222619046*^9, 3.705432800716906*^9, 3.705433466135661*^9, 
   3.7054386167113457`*^9, 3.705438754127006*^9, 3.705509809760686*^9, 
   3.705599548170784*^9, 3.705602018579835*^9, 3.705602117978293*^9, 
   3.7056022087857733`*^9, {3.7056094160740347`*^9, 3.705609440349208*^9}, 
   3.705668045224855*^9, 3.7056729638009653`*^9, 3.705673914165976*^9, 
   3.7056783179032307`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ndata", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"aso1", "[", "#", "]"}], ",", 
        RowBox[{"aso2", "[", "#", "]"}]}], "}"}], "]"}], "&"}], ",", 
    "stdata2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.705432224532173*^9, 3.705432321389709*^9}, {
  3.7054332611321774`*^9, 3.7054332677391357`*^9}, {3.7054334167174263`*^9, 
  3.7054334233847847`*^9}, {3.70543349007165*^9, 3.7054334905109253`*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"034\"\>", ",", 
             "0", ",", "0", ",", "0", ",", "0", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"6\"\>", ",", "\<\"5\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0",
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
              "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"021\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"6\"\>", 
             ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0", ",", "\<\"1\"\>",
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           TemplateBox[{"2854"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"050\"\>", ",", 
             "0", ",", "0", ",", "0", ",", "0", ",", "\<\"6\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "0",
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 636, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 636, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 636, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[636]]], "Output",
 CellChangeTimes->{{3.705432285464261*^9, 3.705432291907683*^9}, {
   3.705432322649311*^9, 3.705432349238803*^9}, 3.705432573612425*^9, 
   3.705432800750997*^9, 3.7054332690500298`*^9, 3.705433424535039*^9, {
   3.70543346635275*^9, 3.705433491552239*^9}, 3.705438616928496*^9, 
   3.705438754333885*^9, 3.7055098099648647`*^9, 3.705599548376802*^9, 
   3.70560201881166*^9, 3.705602118200035*^9, 3.705602209011826*^9, {
   3.705609416352438*^9, 3.705609440737442*^9}, 3.705668045508964*^9, 
   3.705672964081008*^9, 3.705673914442165*^9, 3.705678318372883*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ndata", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.705433272245186*^9, 3.705433275054762*^9}, {
  3.705433552374292*^9, 3.705433552580241*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"034\"\>", ",", "0", ",", 
   "0", ",", "0", ",", "0", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
   ",", "\<\"6\"\>", ",", "\<\"5\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
   ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
   ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
   ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", 
   ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705433275762917*^9, 3.705433427363525*^9, {3.70543346639574*^9, 
   3.705433493729212*^9}, 3.7054335572037992`*^9, 3.70543861696601*^9, 
   3.705438754469762*^9, 3.705509810037944*^9, 3.705599548523225*^9, 
   3.705602018865497*^9, 3.705602118242613*^9, 3.705602209063713*^9, {
   3.705609417705131*^9, 3.705609440867058*^9}, 3.7056680455729227`*^9, 
   3.705672964167426*^9, 3.705673914483201*^9, 3.705678318481238*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "En", " ", "ndata", " ", "ya", " ", "tengo", " ", "la", " ", "info", " ", 
    "que", " ", "me", " ", "interesa", " ", "de", " ", "los", " ", "archivos",
     " ", "cs", " ", "y", " ", "cb1"}], ",", " ", 
   RowBox[{
   "para", " ", "saber", " ", "de", " ", "que", " ", "variable", " ", "es", 
    " ", "cada", " ", "respuesta"}], ",", " ", 
   RowBox[{
   "en", " ", "nvariable", " ", "guardar\[EAcute]", " ", "los", " ", 
    "nombres"}], ",", " ", 
   RowBox[{"se", " ", "definir\[AAcute]", " ", "abajo"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.70543357535323*^9, 3.705433611656803*^9}, {
  3.705510872483563*^9, 3.7055108799473467`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nvariable", "=", " ", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"datacs", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "10", ",", "11"}], "}"}], ",", "1"}], "]"}], "]"}], 
    ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"12", ";;", "12"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"20", ";;", "22"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"68", ";;", "76"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"99", ";;", "99"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"101", ";;", "118"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"196", ";;", "203"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1"}], ";;", 
        RowBox[{"-", "1"}]}], ",", "1"}], "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.705433616927573*^9, 3.705433688227799*^9}, {
  3.705601991851962*^9, 3.705602000374193*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"ENT\"\>", ",", "\<\"SEX\"\>", ",", "\<\"EDA\"\>", 
   ",", "\<\"S3P3\"\>", ",", "\<\"S3P7\"\>", ",", "\<\"S3P7_1_1\"\>", 
   ",", "\<\"S3P7_1_2\"\>", ",", "\<\"S4P3_1\"\>", ",", "\<\"S4P3_2\"\>", 
   ",", "\<\"S4P3_3\"\>", ",", "\<\"S4P3_4\"\>", ",", "\<\"S4P3_5\"\>", 
   ",", "\<\"S4P3_6\"\>", ",", "\<\"S4P3_7\"\>", ",", "\<\"S4P3_8\"\>", 
   ",", "\<\"S4P3_9\"\>", ",", "\<\"S4P10\"\>", ",", "\<\"S4P11_1\"\>", 
   ",", "\<\"S4P11_2\"\>", ",", "\<\"S4P11_3\"\>", ",", "\<\"S4P11_4\"\>", 
   ",", "\<\"S4P11_5\"\>", ",", "\<\"S4P11_6\"\>", ",", "\<\"S4P11_7\"\>", 
   ",", "\<\"S4P11_8\"\>", ",", "\<\"S4P11_9\"\>", ",", "\<\"S4P11_10\"\>", 
   ",", "\<\"S4P11_11\"\>", ",", "\<\"S4P11_12\"\>", ",", "\<\"S4P11_13\"\>", 
   ",", "\<\"S4P11_14\"\>", ",", "\<\"S4P11_15\"\>", ",", "\<\"S4P11_16\"\>", 
   ",", "\<\"S4P11_17\"\>", ",", "\<\"S4P11_ES\"\>", ",", "\<\"S4P17_1\"\>", 
   ",", "\<\"S4P17_2\"\>", ",", "\<\"S4P17_3\"\>", ",", "\<\"S4P17_4\"\>", 
   ",", "\<\"S4P17_5\"\>", ",", "\<\"S4P17_ES\"\>", ",", "\<\"S4P17_6\"\>", 
   ",", "\<\"S4P17_7\"\>", ",", "\<\"FAC\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705433689317849*^9, 3.705438616992421*^9, 3.705438754552513*^9, 
   3.705509810101161*^9, 3.70559954857036*^9, {3.7056019932310457`*^9, 
   3.7056020189191008`*^9}, 3.705602118290094*^9, 3.705602209108014*^9, {
   3.705609417953415*^9, 3.705609441049305*^9}, 3.7056680456251383`*^9, 
   3.705672964236907*^9, 3.705673914527606*^9, 3.705678318657723*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Ahora", " ", "haremos", " ", "todo", " ", "eso", " ", "pero", " ", "para", 
   " ", "el", " ", "archivo", " ", "cb2", " ", "que", " ", "lamentablemente", 
   " ", "es", " ", "un", " ", "cvs"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.7054339905160723`*^9, 3.705434006660742*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tdata3", "=", 
  RowBox[{"datacb2", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"2", ";;", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], 
      "}"}]}], "]"}], "]"}]}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"05\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"03\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"3\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"03\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"14\"\>", ",", "\<\"0813\"\>", ",", "\<\"01\"\>", 
             ",", "\<\"40007\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           TemplateBox[{"2846"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40364\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"02\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"3\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"0813\"\>", ",", "\<\"32\"\>", 
             ",", "\<\"40396\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"01\"\>"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 641, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 641, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 641, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[641]]], "Output",
 CellChangeTimes->{
  3.705438617057136*^9, 3.705438754663497*^9, 3.7055098101849003`*^9, 
   3.705599548666511*^9, 3.705602019053413*^9, 3.70560211837609*^9, 
   3.7056022091934958`*^9, {3.705609418124632*^9, 3.705609441391326*^9}, 
   3.7056680457142572`*^9, 3.705672964336626*^9, 3.705673914612822*^9, 
   3.705678319042658*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Head", "[", "#", "]"}], "&"}], ",", 
   RowBox[{"tdata3", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "String", ",", "String", ",", "String", ",", "String", ",", "String", ",", 
   "String", ",", "String"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7054386170752287`*^9, 3.705438754706991*^9, 3.705509810220042*^9, 
   3.705599548729722*^9, 3.7056020190923758`*^9, 3.705602118428864*^9, 
   3.7056022092424994`*^9, {3.705609418523431*^9, 3.7056094415301743`*^9}, 
   3.705668045793346*^9, 3.7056729644165163`*^9, 3.7056739146541853`*^9, 
   3.7056783191263723`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"stdata3", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"StringJoin", "[", "#", "]"}], "&"}], ",", "tdata3"}], "]"}]}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tally", "[", 
  RowBox[{
   RowBox[{"Tally", "[", "stdata3", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2857"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705438617103961*^9, 3.705438754758703*^9, 3.70550981026261*^9, 
   3.705599548792343*^9, 3.705602019147758*^9, 3.705602118477029*^9, 
   3.7056022092890472`*^9, {3.705609418645959*^9, 3.705609441732232*^9}, 
   3.705668045845024*^9, 3.705672964488716*^9, 3.7056739147027607`*^9, 
   3.705678319310404*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Ahora", " ", "quiero", " ", "buscar", " ", "las", " ", "variables", " ", 
   "que", " ", "me", " ", "interesan", " ", "en", " ", "el", " ", "archivo", 
   " ", "cb2"}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datacb2", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "All"}], "]"}], "]"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{
   RowBox[{"datacb2", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "All"}], "]"}], "]"}], ",", "\"\<S4P29_6,C,1\>\""}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "68", "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705438617134354*^9, 3.70543875480903*^9, 3.7055098103065643`*^9, 
   3.705599548992388*^9, 3.70560201920923*^9, 3.705602118528077*^9, 
   3.705602209331399*^9, {3.705609418965642*^9, 3.705609441995009*^9}, 
   3.705668045898739*^9, 3.70567296454386*^9, 3.705673914749661*^9, 
   3.7056783195323*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"datacb2", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"respuestas3", "=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"datacb2", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"8", ";;", "19"}]}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"Transpose", "[", 
     RowBox[{"datacb2", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"54", ";;", "68"}]}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"Transpose", "[", 
     RowBox[{"datacb2", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{
         RowBox[{"-", "1"}], ";;", 
         RowBox[{"-", "1"}]}]}], "]"}], "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{3.705678260048904*^9}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          TemplateBox[{"1"},
           "OutputSizeLimit`Skeleton",
           DisplayFunction->(FrameBox[
             RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], 
             Background -> GrayLevel[0.75], 
             BaseStyle -> {
              "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
               ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
             ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
             GrayLevel[0.75], RoundingRadius -> 7]& )], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 649, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 649, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 649, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[649]]], "Output",
 CellChangeTimes->{
  3.7054386172405453`*^9, 3.705438754931888*^9, 3.7055098104377823`*^9, 
   3.705599549122064*^9, 3.705602019340468*^9, 3.7056021186595163`*^9, 
   3.705602209453383*^9, {3.7056094193231373`*^9, 3.705609442418405*^9}, 
   3.705668046032152*^9, 3.705672964706489*^9, 3.705673914891306*^9, 
   3.7056782627452393`*^9, 3.7056783198073263`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"respuestas3", "[", 
   RowBox[{"[", "1", "]"}], "]"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vdata3", "=", 
  RowBox[{"Transpose", "[", "respuestas3", "]"}]}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            
            RowBox[{"\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"1\"\>", ",", "0", ",", "\<\"1\"\>", ",", "0", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"9151\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"1\"\>", ",", "0", ",", "\<\"2\"\>", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"23858\"\>"}], "}"}], ",", 
           TemplateBox[{"2854"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"8970\"\>"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 651, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 651, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 651, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[651]]], "Output",
 CellChangeTimes->{
  3.705438617346903*^9, 3.7054387551069613`*^9, 3.705509810565331*^9, 
   3.7055995493298388`*^9, 3.705602019487001*^9, 3.705602118812831*^9, 
   3.70560220957701*^9, {3.705609419666316*^9, 3.705609442748254*^9}, 
   3.705668046226253*^9, 3.7056729648784447`*^9, 3.7056739150348597`*^9, 
   3.705678271837125*^9, 3.7056783201719437`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vdata3", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "0", 
   ",", "\<\"1\"\>", ",", "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", 
   ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"9151\"\>"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.7054386173648653`*^9, 3.705438755200008*^9, 3.7055098106006804`*^9, 
   3.70559954936483*^9, 3.705602019554185*^9, 3.7056021188733253`*^9, 
   3.705602209624324*^9, {3.705609419863738*^9, 3.7056094428721123`*^9}, 
   3.7056680462808104`*^9, 3.705672964933551*^9, 3.70567391509094*^9, 
   3.705678276543886*^9, 3.70567832028732*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"rdata3", "=", 
   RowBox[{"Range", "[", 
    RowBox[{"Length", "[", "stdata3", "]"}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aso3", " ", "=", " ", 
  RowBox[{"Association", "[", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"stdata3", "[", 
        RowBox[{"[", "#", "]"}], "]"}], "\[Rule]", 
       RowBox[{"vdata3", "[", 
        RowBox[{"[", "#", "]"}], "]"}]}], "&"}], ",", "rdata3"}], "]"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"\[LeftAssociation]", 
          RowBox[{
           RowBox[{"\<\"14081301400072201\"\>", "\[Rule]", 
            RowBox[{"{", 
             
             RowBox[{"\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"1\"\>", ",", "0", ",", "\<\"1\"\>", ",", "0", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
              ",", "\<\"3\"\>", ",", "\<\"9151\"\>"}], "}"}]}], ",", 
           RowBox[{"\<\"14081301400075105\"\>", "\[Rule]", 
            RowBox[{"{", 
             
             RowBox[{"\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"1\"\>", ",", "0", ",", "\<\"2\"\>", ",", "0", 
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"23858\"\>"}], "}"}]}], ",", 
           TemplateBox[{"2854"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"\<\"32081332403961101\"\>", "\[Rule]", 
            RowBox[{"{", 
             
             RowBox[{"\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
              ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
              ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", ",", "0", 
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
              ",", "\<\"1\"\>", ",", "\<\"8970\"\>"}], "}"}]}]}], 
          "\[RightAssociation]"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 654, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 654, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 654, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[654]]], "Output",
 CellChangeTimes->{
  3.705438617509027*^9, 3.705438755369326*^9, 3.705509810780013*^9, 
   3.705599549528964*^9, 3.705602019727388*^9, 3.7056021190394163`*^9, 
   3.705602209779141*^9, {3.70560942028494*^9, 3.705609443052805*^9}, 
   3.7056680464550047`*^9, 3.705672965108447*^9, 3.705673915262611*^9, 
   3.705678281487032*^9, 3.70567832058924*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tDatos", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"aso1", "[", "#", "]"}], ",", 
        RowBox[{"aso2", "[", "#", "]"}], ",", 
        RowBox[{"aso3", "[", "#", "]"}]}], "}"}], "]"}], "&"}], ",", 
    "stdata3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7054387946224813`*^9, 3.705438814100739*^9}, {
  3.705438905165366*^9, 3.705438905403832*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"034\"\>", ",", 
             "0", ",", "0", ",", "0", ",", "0", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"6\"\>", ",", "\<\"5\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0",
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
              "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0", ",", "0", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "0", 
             ",", "\<\"1\"\>", ",", "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "0", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"9151\"\>"}], "}"}], ",", 
           TemplateBox[{"2855"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"050\"\>", ",", 
             "0", ",", "0", ",", "0", ",", "0", ",", "\<\"6\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "0",
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", 
             TemplateBox[{"8"},
              "OutputSizeLimit`Skeleton",
              DisplayFunction->(FrameBox[
                
                RowBox[{
                 "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], 
                Background -> GrayLevel[0.75], 
                BaseStyle -> {
                 "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                  ShowStringCharacters -> False}, BaselinePosition -> 
                Baseline, ContentPadding -> False, FrameMargins -> 1, 
                FrameStyle -> GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
             "0", ",", "0", ",", "0", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
             ",", "0", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"8970\"\>"}], 
            "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 655, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 655, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 655, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[655]]], "Output",
 CellChangeTimes->{
  3.705438617781953*^9, 3.70543875568631*^9, 3.705438816696712*^9, 
   3.705438906975388*^9, 3.705509811082239*^9, 3.705599549890254*^9, 
   3.7056020200598583`*^9, 3.705602119336385*^9, 3.7056022100660067`*^9, {
   3.70560942069451*^9, 3.705609443434363*^9}, 3.705668046836907*^9, 
   3.70567296553244*^9, 3.705673915617601*^9, 3.7056782844532413`*^9, 
   3.705678321132352*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"tDatos", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.705438820336378*^9, 3.705438836175593*^9}, {
  3.70551109874021*^9, 3.7055111288334303`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "En", " ", "tDatos", " ", "ya", " ", "tengo", " ", "agrupadas", " ", 
   "todas", " ", "las", " ", "respuestas", " ", "que", " ", 
   "analizar\[EAcute]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.705438984292838*^9, 3.705438999183044*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "A", " ", "continuaci\[OAcute]n", " ", "se", " ", "definir\[AAcute]", " ", 
    "la", " ", "variable", " ", "nvarable"}], ",", " ", 
   RowBox[{
   "donde", " ", "se", " ", "guarar\[AAcute]n", " ", "los", " ", "nombres", 
    " ", "de", " ", "las", " ", "variables", " ", "que", " ", "se", " ", 
    "est\[AAcute]n", " ", "utilizando"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.705510932919978*^9, 3.7055109580538054`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nvariable", "=", " ", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"datacs", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "10", ",", "11"}], "}"}], ",", "1"}], "]"}], "]"}], 
    ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"12", ";;", "12"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"20", ";;", "22"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"68", ";;", "76"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"99", ";;", "99"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"101", ";;", "118"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"196", ";;", "203"}], ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"datacb2", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", 
       RowBox[{"8", ";;", "19"}]}], "]"}], "]"}], ",", 
    RowBox[{"datacb2", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", 
       RowBox[{"54", ";;", "68"}]}], "]"}], "]"}], ",", 
    RowBox[{"datacb2", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"-", "1"}], ";;", 
        RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.705510909768868*^9, 3.705510923512451*^9}, 
   3.7056020971164913`*^9, {3.705602157363679*^9, 3.705602157676874*^9}, 
   3.7056782935421753`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"ENT\"\>", ",", "\<\"SEX\"\>", ",", "\<\"EDA\"\>", 
   ",", "\<\"S3P3\"\>", ",", "\<\"S3P7\"\>", ",", "\<\"S3P7_1_1\"\>", 
   ",", "\<\"S3P7_1_2\"\>", ",", "\<\"S4P3_1\"\>", ",", "\<\"S4P3_2\"\>", 
   ",", "\<\"S4P3_3\"\>", ",", "\<\"S4P3_4\"\>", ",", "\<\"S4P3_5\"\>", 
   ",", "\<\"S4P3_6\"\>", ",", "\<\"S4P3_7\"\>", ",", "\<\"S4P3_8\"\>", 
   ",", "\<\"S4P3_9\"\>", ",", "\<\"S4P10\"\>", ",", "\<\"S4P11_1\"\>", 
   ",", "\<\"S4P11_2\"\>", ",", "\<\"S4P11_3\"\>", ",", "\<\"S4P11_4\"\>", 
   ",", "\<\"S4P11_5\"\>", ",", "\<\"S4P11_6\"\>", ",", "\<\"S4P11_7\"\>", 
   ",", "\<\"S4P11_8\"\>", ",", "\<\"S4P11_9\"\>", ",", "\<\"S4P11_10\"\>", 
   ",", "\<\"S4P11_11\"\>", ",", "\<\"S4P11_12\"\>", ",", "\<\"S4P11_13\"\>", 
   ",", "\<\"S4P11_14\"\>", ",", "\<\"S4P11_15\"\>", ",", "\<\"S4P11_16\"\>", 
   ",", "\<\"S4P11_17\"\>", ",", "\<\"S4P11_ES\"\>", ",", "\<\"S4P17_1\"\>", 
   ",", "\<\"S4P17_2\"\>", ",", "\<\"S4P17_3\"\>", ",", "\<\"S4P17_4\"\>", 
   ",", "\<\"S4P17_5\"\>", ",", "\<\"S4P17_ES\"\>", ",", "\<\"S4P17_6\"\>", 
   ",", "\<\"S4P17_7\"\>", ",", "\<\"S4P23_1,C,1\"\>", 
   ",", "\<\"S4P23_2,C,1\"\>", ",", "\<\"S4P23_3,C,1\"\>", 
   ",", "\<\"S4P23_4,C,1\"\>", ",", "\<\"S4P23_5,C,1\"\>", 
   ",", "\<\"S4P23_6,C,1\"\>", ",", "\<\"S4P23_7,C,1\"\>", 
   ",", "\<\"S4P23_8,C,1\"\>", ",", "\<\"S4P23_9,C,1\"\>", 
   ",", "\<\"S4P23_10,C,1\"\>", ",", "\<\"S4P23_11,C,1\"\>", 
   ",", "\<\"S4P23_12,C,1\"\>", ",", "\<\"S4P28_1,C,1\"\>", 
   ",", "\<\"S4P28_2,C,1\"\>", ",", "\<\"S4P28_3,C,1\"\>", 
   ",", "\<\"S4P28_4,C,1\"\>", ",", "\<\"S4P28_5,C,1\"\>", 
   ",", "\<\"S4P28_6,C,1\"\>", ",", "\<\"S4P29,C,1\"\>", 
   ",", "\<\"S4P29_ES,C,50\"\>", ",", "\<\"S4P29_1,C,1\"\>", 
   ",", "\<\"S4P29_1_ES,C,50\"\>", ",", "\<\"S4P29_2,C,1\"\>", 
   ",", "\<\"S4P29_3,C,1\"\>", ",", "\<\"S4P29_4,C,1\"\>", 
   ",", "\<\"S4P29_5,C,1\"\>", ",", "\<\"S4P29_6,C,1\"\>", 
   ",", "\<\"FAC,N,6,0\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.705510901288705*^9, 3.705510924356985*^9}, 
   3.705599550032448*^9, 3.705602020199806*^9, {3.705602098034978*^9, 
   3.705602119462942*^9}, 3.7056021585496883`*^9, 3.705602210142743*^9, {
   3.705609421319685*^9, 3.705609443740095*^9}, 3.705668046999855*^9, 
   3.705672965620668*^9, 3.705673915682032*^9, {3.705678294853445*^9, 
   3.7056783215361853`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Selecciono", " ", "solo", " ", "las", " ", "mujeres"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.705520447805025*^9, 3.705520453290669*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mujeres", "=", 
  RowBox[{"Select", "[", 
   RowBox[{"tDatos", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "===", "\"\<2\>\""}], " ", "&"}]}], 
   " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.705511021398262*^9, 3.705511025486011*^9}, {
  3.705511063118786*^9, 3.705511088428257*^9}, {3.7055111326172028`*^9, 
  3.705511147092465*^9}, {3.705511217508737*^9, 3.705511217905056*^9}, {
  3.705512034414384*^9, 3.705512049909419*^9}, {3.7055196338550987`*^9, 
  3.705519639531316*^9}, {3.7055196797489023`*^9, 3.7055196843470182`*^9}, {
  3.705519729537527*^9, 3.7055197510433273`*^9}, {3.7055202679272327`*^9, 
  3.70552029130494*^9}, {3.70552037115196*^9, 3.705520372137713*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            
            RowBox[{"\<\"01\"\>", ",", "\<\"2\"\>", ",", "\<\"021\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"6\"\>", 
             ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0", ",", "\<\"1\"\>",
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>",
              ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "0", ",", "\<\"2\"\>", 
             ",", "0", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"23858\"\>"}], 
            "}"}], ",", 
           TemplateBox[{"1501"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"2\"\>", ",", "\<\"041\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"6\"\>", ",", "\<\"4\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"5\"\>", 
             ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0", ",", "\<\"1\"\>",
              ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", 
             TemplateBox[{"23"},
              "OutputSizeLimit`Skeleton",
              DisplayFunction->(FrameBox[
                
                RowBox[{
                 "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], 
                Background -> GrayLevel[0.75], 
                BaseStyle -> {
                 "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                  ShowStringCharacters -> False}, BaselinePosition -> 
                Baseline, ContentPadding -> False, FrameMargins -> 1, 
                FrameStyle -> GrayLevel[0.75], RoundingRadius -> 7]& )], 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "0", 
             ",", "\<\"2\"\>", ",", "0", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
             ",", "0", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"4503\"\>"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 661, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 661, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 661, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[661]]], "Output",
 CellChangeTimes->{{3.705511139243362*^9, 3.705511148553035*^9}, 
   3.705511219414178*^9, {3.705512039567408*^9, 3.705512050761005*^9}, 
   3.705519641580068*^9, 3.705519685454965*^9, {3.7055197314299*^9, 
   3.705519752184854*^9}, {3.705520269067174*^9, 3.7055202922549267`*^9}, 
   3.705520373300152*^9, 3.705599550243105*^9, 3.705602020397627*^9, 
   3.705602119682228*^9, 3.705602210315611*^9, {3.705609421735221*^9, 
   3.705609444239324*^9}, 3.705668047225671*^9, 3.705672965833436*^9, 
   3.7056739158906384`*^9, 3.7056783219263763`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Selecciono", " ", "solo", " ", "los", " ", "hombres"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7055204627887383`*^9, 3.705520467962376*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hombres", "=", 
  RowBox[{"Select", "[", 
   RowBox[{"tDatos", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "===", "\"\<1\>\""}], " ", "&"}]}], 
   " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.705520472172863*^9, 3.705520477750185*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            
            RowBox[{"\<\"01\"\>", ",", "\<\"1\"\>", ",", "\<\"034\"\>", ",", 
             "0", ",", "0", ",", "0", ",", "0", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"6\"\>", ",", "\<\"5\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0",
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
              "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
              ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
             ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "0", ",", "0", ",", "0", ",", "0", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "0", 
             ",", "\<\"1\"\>", ",", "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "0", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"9151\"\>"}], "}"}], ",", 
           TemplateBox[{"1352"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"32\"\>", ",", "\<\"1\"\>", ",", "\<\"050\"\>", ",", 
             "0", ",", "0", ",", "0", ",", "0", ",", "\<\"6\"\>", 
             ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "0",
              ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"1\"\>", ",", 
             TemplateBox[{"8"},
              "OutputSizeLimit`Skeleton",
              DisplayFunction->(FrameBox[
                
                RowBox[{
                 "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], 
                Background -> GrayLevel[0.75], 
                BaseStyle -> {
                 "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                  ShowStringCharacters -> False}, BaselinePosition -> 
                Baseline, ContentPadding -> False, FrameMargins -> 1, 
                FrameStyle -> GrayLevel[0.75], RoundingRadius -> 7]& )], ",", 
             "0", ",", "0", ",", "0", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
             ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
             ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
             ",", "0", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", 
             ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"8970\"\>"}], 
            "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{74., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{67., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 663, 23346005980057957667, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{73., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 663, 23346005980057957667, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 663, 23346005980057957667, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{100., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[663]]], "Output",
 CellChangeTimes->{
  3.705520478545746*^9, 3.705599550411747*^9, 3.705602020619706*^9, 
   3.705602119860927*^9, 3.7056022105365543`*^9, {3.7056094221397*^9, 
   3.705609444637005*^9}, 3.7056680474794693`*^9, 3.70567296610852*^9, 
   3.705673916111171*^9, 3.705678322236569*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Ahora", " ", "seleccionar\[EAcute]", " ", "todas", " ", "a", " ", "las", 
   " ", "que", " ", "tengan", " ", "entre", " ", "18", " ", "y", " ", "20", 
   " ", "a\[NTilde]os"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7055206718813953`*^9, 3.705520725890162*^9}, {
  3.705603977030148*^9, 3.705603983602689*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{"nvariable", ",", "\"\<EDA\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.705520847666905*^9, 3.705520868221683*^9}, {
  3.70560398859791*^9, 3.7056039891782093`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "3", "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705520869133464*^9, 3.70559955045385*^9, 3.705602020686701*^9, 
   3.705602119926717*^9, 3.70560221059041*^9, 3.705603989904624*^9, {
   3.705609422588881*^9, 3.7056094449223423`*^9}, 3.705668047563986*^9, 
   3.705672966235724*^9, 3.7056739161744947`*^9, 3.705678322419641*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"mEdad", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"mujeres", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "===", "\"\<018\>\""}], " ", "||", 
       " ", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "===", "\"\<019\>\""}], " ", "||", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "===", "\"\<020\>\""}]}], " ", 
      "&"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.705520892529591*^9, 3.705520936480912*^9}, {
  3.7056021457354183`*^9, 3.7056021462004023`*^9}, {3.705603998736189*^9, 
  3.7056040539626904`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mEdad", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.705520883191515*^9, 3.705520883711166*^9}, {
  3.7055209393217487`*^9, 3.705520977117404*^9}, {3.705604030355144*^9, 
  3.7056040313991613`*^9}}],

Cell[BoxData["94"], "Output",
 CellChangeTimes->{{3.7055209454685297`*^9, 3.7055209779317102`*^9}, 
   3.705599550492116*^9, 3.705602020735634*^9, 3.70560211996726*^9, 
   3.7056022106472797`*^9, {3.7056040318363647`*^9, 3.705604057360601*^9}, {
   3.7056094226692133`*^9, 3.705609445099945*^9}, 3.705668047618046*^9, 
   3.705672966300722*^9, 3.705673916222829*^9, 3.705678322666313*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mEdad", "[", 
  RowBox[{"[", "64", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7056040644093733`*^9, 3.7056040807711477`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"25\"\>", ",", "\<\"2\"\>", ",", "\<\"020\"\>", 
   ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"6\"\>", ",", "\<\"5\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"4\"\>", ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0", 
   ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "0", ",", "0", ",", "0", ",", "0",
    ",", "0", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "0", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "0", ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"17207\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7056040712202187`*^9, 3.705604081405087*^9}, {
   3.705609422721135*^9, 3.705609445165604*^9}, 3.7056680476588984`*^9, 
   3.705672966342308*^9, 3.705673916262073*^9, 3.705678322776512*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Pregunta", ":", " ", 
   RowBox[{"Le", " ", "gustar\[IAcute]a", " ", "ser", " ", 
    RowBox[{"cient\[IAcute]fico", "/", 
     RowBox[{"ingeniero", "?"}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7055223151365223`*^9, 3.705522333929516*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{"nvariable", ",", " ", "\"\<S3P7_1_1\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.705522354554792*^9, 3.705522410403357*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "6", "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.705522405528508*^9, 3.705522410863676*^9}, 
   3.705599550758007*^9, 3.7056020209771023`*^9, 3.705602120136156*^9, 
   3.705602210837453*^9, 3.705604224317895*^9, {3.705609422778373*^9, 
   3.705609445277833*^9}, 3.7056680477284927`*^9, 3.705672966390079*^9, 
   3.705673916308386*^9, 3.705678322890327*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{"nvariable", ",", "\"\<S3P7_1_2\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.7055224131396313`*^9, 3.705522428193404*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "7", "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705522428821953*^9, 3.705599550791967*^9, 3.705602021057383*^9, 
   3.705602120172668*^9, 3.70560221087945*^9, 3.705604227017309*^9, {
   3.705609422826931*^9, 3.7056094453117228`*^9}, 3.705668047772331*^9, 
   3.705672966397106*^9, 3.705673916343607*^9, 3.705678322981886*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"mSI", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"mEdad", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "6", "]"}], "]"}], "===", "\"\<1\>\""}], " ", "||", " ", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "7", "]"}], "]"}], "===", "\"\<1\>\""}]}], " ", "&"}]}],
     "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.705522460142022*^9, 3.705522492156314*^9}, {
  3.705522543883285*^9, 3.705522595265559*^9}, {3.7055227055854597`*^9, 
  3.705522712595842*^9}, {3.705599622073855*^9, 3.705599623885171*^9}, {
  3.705602180667594*^9, 3.705602184055317*^9}, {3.705604230298398*^9, 
  3.705604239933962*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mSI", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.705522624696803*^9, 3.705522630163205*^9}, {
  3.705604262451083*^9, 3.705604266490448*^9}}],

Cell[BoxData["30"], "Output",
 CellChangeTimes->{
  3.705522630866527*^9, 3.7055227356954412`*^9, 3.705599550858811*^9, 
   3.705599627107892*^9, 3.705602021154952*^9, 3.705602120217905*^9, 
   3.705602210974943*^9, {3.705604242859634*^9, 3.7056042668380127`*^9}, {
   3.7056094228853817`*^9, 3.7056094453638287`*^9}, 3.705668047820156*^9, 
   3.705672966441753*^9, 3.705673916388173*^9, 3.705678323175117*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"mNO", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"mEdad", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "6", "]"}], "]"}], "===", "\"\<2\>\""}], " ", "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "7", "]"}], "]"}], "===", "\"\<2\>\""}]}], " ", "&"}]}],
     "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.705599647228055*^9, 3.705599679248022*^9}, {
  3.7056021886825657`*^9, 3.7056021920028973`*^9}, {3.7056042782741823`*^9, 
  3.705604285409577*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mNO", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.705599691751975*^9, 3.70559969567484*^9}, 
   3.705604288810124*^9}],

Cell[BoxData["15"], "Output",
 CellChangeTimes->{
  3.705599696331194*^9, 3.705602021596321*^9, 3.705602120387776*^9, 
   3.705602211115966*^9, 3.7056042892448883`*^9, {3.705609422941002*^9, 
   3.7056094454671173`*^9}, 3.705668047891968*^9, 3.705672966483139*^9, 
   3.705673916433014*^9, 3.705678323349038*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mNO", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.705599741747961*^9, 3.705599744820077*^9}, 
   3.705604292519418*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"04\"\>", ",", "\<\"2\"\>", ",", "\<\"019\"\>", ",", "0", 
   ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"5\"\>", 
   ",", "\<\"4\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"6\"\>", 
   ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0", ",", "\<\"1\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
   ",", "\<\"3\"\>", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "0", 
   ",", "\<\"3\"\>", 
   ",", "\<\"DEPENDE DEL TIPO DE PROGRAMA QUE ESTEN PRESENTANDO\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", 
   ",", "\<\"2\"\>", ",", "\<\"14285\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.705599745779942*^9, 3.705602021695347*^9, 3.705602120483514*^9, 
   3.70560221119016*^9, 3.7056042930593557`*^9, {3.705609422995224*^9, 
   3.705609445600915*^9}, 3.705668047933113*^9, 3.705672966521379*^9, 
   3.7056739164723387`*^9, 3.705678323475951*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Ahora", " ", "voy", " ", "a", " ", "separarlos", " ", "por", " ", 
   "estado"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7056063547064857`*^9, 3.7056063625459833`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{"nvariable", ",", "\"\<ENT\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.705606459717478*^9, 3.70560648065865*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "1", "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7056064819132967`*^9, {3.705609423069106*^9, 3.705609445873584*^9}, 
   3.705668047981621*^9, 3.7056729665677977`*^9, 3.7056739165157223`*^9, 
   3.705678323590918*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"estSI", "=", 
   RowBox[{"GatherBy", "[", 
    RowBox[{"mSI", ",", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "&"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.705606368681596*^9, 3.7056063859941893`*^9}, {
  3.705606493777113*^9, 3.705606514179366*^9}, {3.70560776412103*^9, 
  3.705607764923214*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"estSI", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.705606518285778*^9, 3.705606546516486*^9}, {
  3.7056077686440907`*^9, 3.705607769782425*^9}}],

Cell[BoxData["15"], "Output",
 CellChangeTimes->{{3.705606522247126*^9, 3.70560654711369*^9}, 
   3.70560777014679*^9, {3.7056094231441507`*^9, 3.705609446068851*^9}, 
   3.705668048029552*^9, 3.70567296661523*^9, 3.705673916560584*^9, 
   3.705678323800312*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"estSI", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "1", ",", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.705607724578086*^9, 3.705607734040031*^9}, {
  3.70560777266928*^9, 3.705607773332847*^9}}],

Cell[BoxData["\<\"02\"\>"], "Output",
 CellChangeTimes->{
  3.705607734434486*^9, 3.705607773665647*^9, {3.705609423254796*^9, 
   3.7056094462042103`*^9}, 3.705668048069538*^9, 3.7056729666521997`*^9, 
   3.7056739165961103`*^9, 3.705678323931285*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"estadosSI", "=", 
   RowBox[{"SortBy", "[", 
    RowBox[{"estSI", ",", " ", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "&"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.705607777659032*^9, 3.705607808303043*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"estNO", "=", 
   RowBox[{"GatherBy", "[", 
    RowBox[{"mNO", ",", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "&"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.705607850528214*^9, 3.705607854981921*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"estNO", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.705607859518433*^9, 3.705607862834464*^9}}],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{
  3.705607863473259*^9, {3.705609423583353*^9, 3.705609446401106*^9}, 
   3.705668048126671*^9, 3.7056729667076473`*^9, 3.7056739166475286`*^9, 
   3.705678324179112*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"estadosNO", "=", 
   RowBox[{"SortBy", "[", 
    RowBox[{"estNO", ",", " ", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "&"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.705607879791935*^9, 3.705607884106737*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"estadosSI", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7056086202370567`*^9, 3.7056086250751953`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"02\"\>", ",", "\<\"2\"\>", ",", "\<\"018\"\>", ",", "0", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"4\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"6\"\>", ",", "0", ",", "0", ",", "0", ",", "\<\"1\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "\<\"1\"\>", ",", "\<\"2\"\>",
      ",", "\<\"3\"\>", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"3\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", 
     ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0",
      ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"17821\"\>"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"\<\"02\"\>", ",", "\<\"2\"\>", ",", "\<\"019\"\>", ",", "0", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"4\"\>", ",", "\<\"2\"\>", ",", "\<\"5\"\>", ",", "\<\"6\"\>", 
     ",", "\<\"1\"\>", ",", "0", ",", "0", ",", "0", ",", "\<\"1\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "\<\"2\"\>", ",", "\<\"1\"\>",
      ",", "\<\"3\"\>", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0", 
     ",", "\<\"2\"\>", ",", "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "0",
      ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"9349\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7056086256105947`*^9, {3.7056094238952017`*^9, 3.705609446580408*^9}, 
   3.705668048215843*^9, 3.705672966752912*^9, 3.705673916691287*^9, 
   3.70567832444767*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Ahora", " ", "sacar\[EAcute]", " ", "las", " ", "resuestas", " ", "de", 
    " ", "las", " ", "preguntas", " ", "17"}], ",", 
   RowBox[{
   "23", " ", "y", " ", "28", " ", "a", " ", "cada", " ", "estado"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7056087430215197`*^9, 3.705608779935029*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Pregunta", " ", "17"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7056087822600718`*^9, 3.705608785542025*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{"nvariable", ",", "\"\<S4P17_1\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.7056088001712437`*^9, 3.70560883199732*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "36", "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7056088327132473`*^9, {3.705609424112958*^9, 3.705609447120659*^9}, 
   3.7056680482738657`*^9, 3.705672966807107*^9, 3.705673916740231*^9, 
   3.705678324663311*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{"nvariable", ",", "\"\<S4P17_7\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.705608834484291*^9, 3.705608860453247*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "43", "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.705608854179427*^9, 3.705608860999845*^9}, {
   3.705609424220489*^9, 3.705609447252357*^9}, 3.705668048319364*^9, 
   3.7056729668420763`*^9, 3.7056739167470407`*^9, 3.705678324786384*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"estadosSI", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7056091236507063`*^9, 3.705609139677157*^9}, {
  3.705672478005721*^9, 3.7056724867022448`*^9}, {3.7056726464424047`*^9, 
  3.705672646828182*^9}, {3.705673985493576*^9, 3.705673988891657*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"06\"\>", ",", "\<\"2\"\>", ",", "\<\"019\"\>", 
     ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"3\"\>", ",", "\<\"5\"\>", ",", "\<\"1\"\>", ",", "\<\"4\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"6\"\>", ",", "0", ",", "0", ",", "0", 
     ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "\<\"1\"\>",
      ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"4\"\>", ",", "\<\"1\"\>", ",", "\<\"4\"\>", ",", "\<\"5\"\>", 
     ",", "\<\"4\"\>", ",", "\<\"3\"\>", ",", "\<\"4\"\>", ",", "\<\"4\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"4\"\>", ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
     ",", "0", ",", "\<\"1\"\>", ",", "0", ",", "\<\"3\"\>", ",", "\<\"2\"\>",
      ",", "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"10224\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"06\"\>", ",", "\<\"2\"\>", ",", "\<\"018\"\>", 
     ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"5\"\>", ",", "\<\"3\"\>", ",", "\<\"4\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"6\"\>", ",", "0", ",", "0", ",", "0", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", ",", "\<\"3\"\>", ",", "0",
      ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "0", ",", "0", ",", "0", ",", 
     "0", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
     ",", "0", ",", "\<\"2\"\>", ",", "0", ",", "\<\"3\"\>", ",", "\<\"2\"\>",
      ",", "0", ",", "\<\"2\"\>", ",", "\<\"3\"\>", ",", "\<\"13526\"\>"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.705609140555993*^9, {3.705609424387692*^9, 3.7056094474114857`*^9}, 
   3.705668048366054*^9, {3.7056724817084703`*^9, 3.70567248756929*^9}, 
   3.705672647546727*^9, 3.705672966882039*^9, 3.7056739167868443`*^9, {
   3.705673986150835*^9, 3.705673989975868*^9}, 3.705678324895564*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"edo", "=", 
   RowBox[{"estadosSI", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.705609157811771*^9, 3.705609236761319*^9}, {
   3.7056094695680447`*^9, 3.7056094822633247`*^9}, {3.7056096158047953`*^9, 
   3.705609621209208*^9}, {3.705669910600031*^9, 3.7056699196478786`*^9}, {
   3.7056699596264267`*^9, 3.705669970254052*^9}, 3.705673941851014*^9, {
   3.705674965228374*^9, 3.7056749792942133`*^9}, {3.7056750119716587`*^9, 
   3.705675012945774*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"edo", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", "37"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.705674981709806*^9, 3.7056750291820927`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"1\"\>", ",", "\<\"2\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.7056749845997972`*^9, 3.705675030040827*^9}, 
   3.705678325065399*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Opcion", " ", "1"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7056096741138144`*^9, 3.70560968424708*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SIop1", "=", 
  RowBox[{"Select", "[", 
   RowBox[{"estadosSI", ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "36"}], "]"}], "]"}], "===", "\"\<1\>\""}], "&"}]}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.705609693908297*^9, 3.705609699534913*^9}, {
   3.7056097465659237`*^9, 3.70560977419893*^9}, {3.70560984145652*^9, 
   3.705609863601153*^9}, 3.7056729963536463`*^9}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.705609865457838*^9, 3.705668048469873*^9, 
  3.7056729669739532`*^9, 3.705673916871675*^9, 3.70567832522616*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Opcion", " ", "2"}], "*)"}]], "Input",
 CellChangeTimes->{{3.705677222727521*^9, 3.705677229023986*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SIop2", "=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"#", ",", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "37", "]"}], "]"}], "===", "\"\<1\>\""}], "&"}]}], 
         "]"}], "&"}], ",", "estadosSI"}], "]"}], ",", 
     RowBox[{
      RowBox[{"UnsameQ", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", "}"}]}], "]"}], "&"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.705609889285409*^9, 3.7056099083856363`*^9}, {
  3.705673000738887*^9, 3.7056730272567263`*^9}, {3.705674013902813*^9, 
  3.7056740146892643`*^9}, {3.7056740607154617`*^9, 3.705674074892797*^9}, {
  3.705674141262589*^9, 3.705674188170981*^9}, {3.7056763470999126`*^9, 
  3.7056763527441196`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Opcion", " ", "3"}], "*)"}]], "Input",
 CellChangeTimes->{{3.705677231897498*^9, 3.70567723488396*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SIop3", "=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"#", ",", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "38", "]"}], "]"}], "===", "\"\<1\>\""}], "&"}]}], 
         "]"}], "&"}], ",", "estadosSI"}], "]"}], ",", 
     RowBox[{
      RowBox[{"UnsameQ", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", "}"}]}], "]"}], "&"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7056099455463657`*^9, 3.70560994901812*^9}, {
  3.7056742273547897`*^9, 3.7056742330943747`*^9}, {3.705676354723155*^9, 
  3.705676361956732*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Opcion", " ", "4"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7056772375597897`*^9, 3.705677241215839*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SIop4", "=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"#", ",", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "39", "]"}], "]"}], "===", "\"\<1\>\""}], "&"}]}], 
         "]"}], "&"}], ",", "estadosSI"}], "]"}], ",", 
     RowBox[{
      RowBox[{"UnsameQ", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", "}"}]}], "]"}], "&"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.705609954616612*^9, 3.705609959601609*^9}, {
  3.7056742307071877`*^9, 3.7056742351948357`*^9}, {3.705676356385545*^9, 
  3.705676363540683*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Numero", " ", "de", " ", "personas"}], ",", " ", 
   RowBox[{"por", " ", "estado"}], ",", " ", 
   RowBox[{
   "que", " ", "pusieron", " ", "1", " ", "en", " ", "la", " ", "respectiva", 
    " ", "opcion"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.705670195039213*^9, 3.705670214870103*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"edoSI17op2", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "//", "Length"}]}], "}"}], " ", "&"}], ",", "SIop2"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.705670235786208*^9, 3.70567028386619*^9}, {
  3.705670318322694*^9, 3.70567035293985*^9}, {3.705672101603252*^9, 
  3.705672106379114*^9}, {3.7056749204627447`*^9, 3.7056749207498283`*^9}, {
  3.7056788949351053`*^9, 3.705678896974113*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"02\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"06\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"08\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"09\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"12\"\>", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"15\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"19\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"21\"\>", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"23\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"24\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"25\"\>", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"28\"\>", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"32\"\>", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.705670353640175*^9, {3.705672103569964*^9, 3.70567210686537*^9}, 
   3.7056729671498203`*^9, 3.7056739170687017`*^9, 3.705674243246961*^9, 
   3.705674928694284*^9, 3.705676379441553*^9, 3.705678325881509*^9, 
   3.705678905815813*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"edoSI17op3", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "//", "Length"}]}], "}"}], " ", "&"}], ",", "SIop3"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.705670580508988*^9, 3.705670584132854*^9}, {
  3.70567889878283*^9, 3.705678900395809*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"02\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"06\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"07\"\>", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"19\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"29\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"32\"\>", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.705670584905868*^9, 3.705672967185*^9, 
  3.705673917077239*^9, 3.705676384911068*^9, 3.705678325980756*^9, 
  3.705678908040543*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"edoSI17op4", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "//", "Length"}]}], "}"}], " ", "&"}], ",", "SIop4"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.705670590259479*^9, 3.705670594414027*^9}, {
  3.705678910726686*^9, 3.705678911115705*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"07\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"25\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"32\"\>", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.705670595222156*^9, 3.705672967218788*^9, 
  3.705673917117167*^9, 3.705676390487277*^9, 3.705678326088394*^9, 
  3.705678911758615*^9}]
}, Open  ]]
},
WindowSize->{1301, 744},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[400, 13, 712, 14, 32, "Input"],
Cell[1115, 29, 801, 16, 32, "Input"],
Cell[1919, 47, 440, 11, 32, "Input"],
Cell[CellGroupData[{
Cell[2384, 62, 445, 8, 32, "Input"],
Cell[2832, 72, 1346, 21, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4215, 98, 588, 12, 32, "Input"],
Cell[4806, 112, 10892, 264, 137, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15735, 381, 251, 5, 32, "Input"],
Cell[15989, 388, 837, 14, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16863, 407, 308, 8, 32, "Input"],
Cell[17174, 417, 711, 13, 32, "Output"]
}, Open  ]],
Cell[17900, 433, 92, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[18017, 438, 187, 4, 32, "Input"],
Cell[18207, 444, 604, 9, 32, "Output"]
}, Open  ]],
Cell[18826, 456, 276, 6, 32, "Input"],
Cell[CellGroupData[{
Cell[19127, 466, 242, 7, 32, "Input"],
Cell[19372, 475, 9265, 226, 159, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28674, 706, 128, 2, 32, "Input"],
Cell[28805, 710, 573, 9, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29415, 724, 240, 6, 32, "Input"],
Cell[29658, 732, 527, 10, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30222, 747, 271, 7, 32, "Input"],
Cell[30496, 756, 10814, 262, 137, "Output"]
}, Open  ]],
Cell[41325, 1021, 157, 4, 32, "Input"],
Cell[41485, 1027, 338, 9, 32, "Input"],
Cell[CellGroupData[{
Cell[41848, 1040, 218, 6, 32, "Input"],
Cell[42069, 1048, 530, 10, 32, "Output"]
}, Open  ]],
Cell[42614, 1061, 291, 6, 32, "Input"],
Cell[CellGroupData[{
Cell[42930, 1071, 849, 17, 32, "Input"],
Cell[43782, 1090, 11924, 294, 137, "Output"]
}, Open  ]],
Cell[55721, 1387, 260, 6, 32, "Input"],
Cell[CellGroupData[{
Cell[56006, 1397, 465, 13, 32, "Input"],
Cell[56474, 1412, 10678, 258, 159, "Output"]
}, Open  ]],
Cell[67167, 1673, 512, 12, 32, "Input"],
Cell[CellGroupData[{
Cell[67704, 1689, 172, 3, 32, "Input"],
Cell[67879, 1694, 771, 13, 32, "Output"]
}, Open  ]],
Cell[68665, 1710, 529, 12, 55, "Input"],
Cell[69197, 1724, 217, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[69439, 1733, 692, 13, 32, "Input"],
Cell[70134, 1748, 814, 13, 32, "Output"]
}, Open  ]],
Cell[70963, 1764, 196, 4, 32, "Input"],
Cell[CellGroupData[{
Cell[71184, 1772, 453, 10, 32, "Input"],
Cell[71640, 1784, 618, 11, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72295, 1800, 1293, 34, 55, "Input"],
Cell[73591, 1836, 8178, 207, 89, "Output"]
}, Open  ]],
Cell[81784, 2046, 514, 9, 32, "Input"],
Cell[CellGroupData[{
Cell[82323, 2059, 169, 3, 32, "Input"],
Cell[82495, 2064, 10425, 243, 137, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92957, 2312, 180, 4, 32, "Input"],
Cell[93140, 2318, 455, 6, 32, "Output"]
}, Open  ]],
Cell[93610, 2327, 212, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[93847, 2336, 422, 12, 32, "Input"],
Cell[94272, 2350, 10692, 247, 159, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105001, 2602, 175, 3, 32, "Input"],
Cell[105179, 2607, 1172, 18, 32, "Output"]
}, Open  ]],
Cell[106366, 2628, 333, 6, 32, "Input"],
Cell[106702, 2636, 199, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[106926, 2645, 130, 2, 32, "Input"],
Cell[107059, 2649, 435, 7, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107531, 2661, 127, 2, 32, "Input"],
Cell[107661, 2665, 435, 7, 32, "Output"]
}, Open  ]],
Cell[108111, 2675, 174, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[108310, 2682, 149, 3, 32, "Input"],
Cell[108462, 2687, 459, 7, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108958, 2699, 523, 13, 32, "Input"],
Cell[109484, 2714, 10737, 246, 137, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120258, 2965, 196, 4, 32, "Input"],
Cell[120457, 2971, 1055, 16, 32, "Output"]
}, Open  ]],
Cell[121527, 2990, 701, 15, 77, "Input"],
Cell[CellGroupData[{
Cell[122253, 3009, 1344, 41, 55, "Input"],
Cell[123600, 3052, 1522, 22, 77, "Output"]
}, Open  ]],
Cell[125137, 3077, 328, 6, 32, "Input"],
Cell[CellGroupData[{
Cell[125490, 3087, 303, 10, 32, "Input"],
Cell[125796, 3099, 10512, 259, 137, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136345, 3363, 190, 6, 32, "Input"],
Cell[136538, 3371, 506, 10, 32, "Output"]
}, Open  ]],
Cell[137059, 3384, 199, 7, 32, "Input"],
Cell[CellGroupData[{
Cell[137283, 3395, 176, 5, 32, "Input"],
Cell[137462, 3402, 430, 9, 32, "Output"]
}, Open  ]],
Cell[137907, 3414, 230, 5, 32, "Input"],
Cell[138140, 3421, 129, 4, 32, "Input"],
Cell[CellGroupData[{
Cell[138294, 3429, 193, 6, 32, "Input"],
Cell[138490, 3437, 398, 8, 32, "Output"]
}, Open  ]],
Cell[138903, 3448, 129, 4, 32, "Input"],
Cell[CellGroupData[{
Cell[139057, 3456, 864, 27, 32, "Input"],
Cell[139924, 3485, 7967, 204, 89, "Output"]
}, Open  ]],
Cell[147906, 3692, 106, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[148037, 3699, 100, 2, 32, "Input"],
Cell[148140, 3703, 9988, 238, 137, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158165, 3946, 82, 2, 32, "Input"],
Cell[158250, 3950, 918, 15, 32, "Output"]
}, Open  ]],
Cell[159183, 3968, 146, 4, 32, "Input"],
Cell[CellGroupData[{
Cell[159354, 3976, 354, 11, 32, "Input"],
Cell[159711, 3989, 10246, 242, 137, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169994, 4236, 469, 13, 32, "Input"],
Cell[170466, 4251, 11336, 260, 159, "Output"]
}, Open  ]],
Cell[181817, 4514, 244, 6, 32, "Input"],
Cell[182064, 4522, 283, 6, 32, "Input"],
Cell[182350, 4530, 481, 10, 55, "Input"],
Cell[CellGroupData[{
Cell[182856, 4544, 1656, 50, 77, "Input"],
Cell[184515, 4596, 2351, 36, 143, "Output"]
}, Open  ]],
Cell[186881, 4635, 183, 4, 32, "Input"],
Cell[CellGroupData[{
Cell[187089, 4643, 755, 15, 32, "Input"],
Cell[187847, 4660, 11446, 261, 137, "Output"]
}, Open  ]],
Cell[199308, 4924, 185, 4, 32, "Input"],
Cell[CellGroupData[{
Cell[199518, 4932, 313, 9, 32, "Input"],
Cell[199834, 4943, 11216, 258, 159, "Output"]
}, Open  ]],
Cell[211065, 5204, 355, 7, 32, "Input"],
Cell[CellGroupData[{
Cell[211445, 5215, 218, 4, 32, "Input"],
Cell[211666, 5221, 376, 7, 32, "Output"]
}, Open  ]],
Cell[212057, 5231, 718, 20, 32, "Input"],
Cell[CellGroupData[{
Cell[212800, 5255, 227, 4, 32, "Input"],
Cell[213030, 5261, 388, 5, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213455, 5271, 152, 3, 32, "Input"],
Cell[213610, 5276, 1521, 22, 55, "Output"]
}, Open  ]],
Cell[215146, 5301, 287, 6, 32, "Input"],
Cell[CellGroupData[{
Cell[215458, 5311, 178, 3, 32, "Input"],
Cell[215639, 5316, 403, 7, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216079, 5328, 175, 3, 32, "Input"],
Cell[216257, 5333, 375, 7, 32, "Output"]
}, Open  ]],
Cell[216647, 5343, 720, 18, 32, "Input"],
Cell[CellGroupData[{
Cell[217392, 5365, 172, 3, 32, "Input"],
Cell[217567, 5370, 410, 6, 32, "Output"]
}, Open  ]],
Cell[217992, 5379, 580, 16, 32, "Input"],
Cell[CellGroupData[{
Cell[218597, 5399, 148, 3, 32, "Input"],
Cell[218748, 5404, 312, 5, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219097, 5414, 171, 4, 32, "Input"],
Cell[219271, 5420, 1645, 25, 55, "Output"]
}, Open  ]],
Cell[220931, 5448, 213, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[221169, 5457, 167, 3, 32, "Input"],
Cell[221339, 5462, 266, 6, 32, "Output"]
}, Open  ]],
Cell[221620, 5471, 387, 11, 32, "Input"],
Cell[CellGroupData[{
Cell[222032, 5486, 176, 3, 32, "Input"],
Cell[222211, 5491, 262, 4, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222510, 5500, 229, 5, 32, "Input"],
Cell[222742, 5507, 252, 4, 32, "Output"]
}, Open  ]],
Cell[223009, 5514, 327, 10, 32, "Input"],
Cell[223339, 5526, 288, 9, 32, "Input"],
Cell[CellGroupData[{
Cell[223652, 5539, 125, 2, 32, "Input"],
Cell[223780, 5543, 220, 4, 32, "Output"]
}, Open  ]],
Cell[224015, 5550, 327, 10, 32, "Input"],
Cell[CellGroupData[{
Cell[224367, 5564, 155, 3, 32, "Input"],
Cell[224525, 5569, 2881, 44, 99, "Output"]
}, Open  ]],
Cell[227421, 5616, 355, 9, 32, "Input"],
Cell[227779, 5627, 150, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[227954, 5634, 173, 3, 32, "Input"],
Cell[228130, 5639, 265, 6, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228432, 5650, 172, 3, 32, "Input"],
Cell[228607, 5655, 286, 5, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228930, 5665, 301, 5, 32, "Input"],
Cell[229234, 5672, 3021, 45, 99, "Output"]
}, Open  ]],
Cell[232270, 5720, 529, 10, 32, "Input"],
Cell[CellGroupData[{
Cell[232824, 5734, 174, 4, 32, "Input"],
Cell[233001, 5740, 183, 4, 32, "Output"]
}, Open  ]],
Cell[233199, 5747, 146, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[233370, 5754, 463, 12, 32, "Input"],
Cell[233836, 5768, 179, 3, 32, "Output"]
}, Open  ]],
Cell[234030, 5774, 145, 3, 32, "Input"],
Cell[234178, 5779, 877, 23, 32, "Input"],
Cell[235058, 5804, 144, 3, 32, "Input"],
Cell[235205, 5809, 726, 21, 32, "Input"],
Cell[235934, 5832, 147, 3, 32, "Input"],
Cell[236084, 5837, 725, 21, 32, "Input"],
Cell[236812, 5860, 346, 8, 32, "Input"],
Cell[CellGroupData[{
Cell[237183, 5872, 587, 15, 32, "Input"],
Cell[237773, 5889, 1197, 33, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239007, 5927, 438, 13, 32, "Input"],
Cell[239448, 5942, 616, 17, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[240101, 5964, 439, 13, 32, "Input"],
Cell[240543, 5979, 415, 11, 89, "Output"]
}, Open  ]]
}
]
*)