Thanks Otto,

I tried the code, but for some reason is not working, i don't know if i doing something wrong.

Thank you very much

Attachments:

Hello Otto,

I was about to say that it is great to have the option to have help in spanish...

So i try this

In[49] Part[Select[data, #[[1]] == "1 VTS" &], All, 3](Selecciona la columna 3 asociada a 1 VTS)

Out[49] {2., 1., 1., 3., 2., 3., 2., 5., 4.}

This allowed me to get the data of the column 3 associated to 1 VST. Then i tried to get the data of the column 3 associated to the sex of the participants

In[30] Part[Select[data, #[[1]] == "1 VTS" &], All, {3, 7}]

Out[30] {{2., "Female "}, {1., "Male "}, {1., "Female "}, {3., "Female "}, {2., "Female "}, {3., "Male "}, {2., "Female "}, {5., "Male "}, {4., "Female "}}

But i am no able to get the data of the column 3 associated to a specific sex, for example the data associated only to females. Could you indicate me how to do that?

This forum supports currently only English language. Please use only English in your discussions so moderators and other members can understand the content.

Oscar y Luis,

Me parece que lo que Oscar quiere se debe poder hacer así:

data = Import["/home/bird/Documents/ejemplo1.csv", "CSV"];
Part[Select[data, #[[1]] == "1 VTS" &], All, 3]

{2, 1, 1, 3, 2, 3, 2, 5, 4}

Yo también hago bastante trabajo en Excel, pero para listas grandes se traba mucho y la funcionalidad es mucho más limitada (me parece a mí).

Yo hago mucho trabajo que incluye arreglos bastante grades usando sólo las funciones normales de listas (Select, Map, MapThread, Thread, MapAt, MapIndexed, Apply, Part, Take, Drop, Join, Insert, Append, Prepend, Flatten, Partition, etc.). Todas estas funciones resuelven la mayoría de los problemas de manipular listas (o listas de listas de listas).

Mathematica tiene además una maquinaria un poco más sofisticada (que yo no he usado mucho) para manipular bases de datos. Si trabajas mucho con bases de datos busca la función Dataset en la documentación. Pero yo creo que tiene sentido primero familiarizarse con las estructuras básicas, como las que menciono arriba.

Saludos,

OL.

No entendi bien tu pregunta, pero si lo que intentas hacer es solamente tomar los elementos de la tercera columna de la variable data sin "1 VTS" podrias usar la misma idea que te comparti en mi comentario anterior. Otra posiblilidad es que quieras una vez seleccionados los pares {"1 VTS",elemento columna3} solamente tomar todos los elementos de la columna 3 podrias hacerlo asi

Cases[data, {"1 VTS", _, _, _, _, _, _}][[;; , 
    1 ;; 3 ;; 2]][[;; , 2]]

o si necesitas tener los pares {"1 VTs",elemento columna3} almacenados y despues utilizar la columna 3 creo que podrias utilizar variables, para asi tener disponibles los datos que necesitas

hu = Cases[data, {"1 VTS", _, _, _, _, _, _}][[;; , 
    1 ;; 3 ;; 2]][[;; , 2]]

In[9]:= hu[[;; , 2]]

Out[9]= {2., 1., 1., 3., 2., 3., 2., 5., 4.}

Espero haberte ayudado en algo, pero si sigues teniendo algunos problemas por fa hazmelos saber tal vez entre los dos tengamos alguna solucion.

Hola Oscar espero haber entendido bien tu duda, ¿quieres tener en una misma salida los elementos que tienen "1 VTS" y la tercera columna de la variable data?, de ser asi yo lo he hecho de la siguiente forma usando el archivo xlsx que has adjuntado.

data = Import[
   "C:\\Users\\miriam\\Downloads\\para wolfram comunity.xlsx", \
{"XLSX", "Data", 1}];

para despues ejecutar esto

Grid[Cases[data, {"1 VTS", _, _, _, _, _, _}]]

Obteniendo lo mismo que tu hiciste con Select, despues para lo de la tercera columna con lo de "1 VTS" hago lo siguiente que como veras es mas simple de lo que pense.

Grid[Cases[data, {"1 VTS", _, _, _, _, _, _}][[;; , 1 ;; 3 ;; 2]]]

Te comparto una imagen para que veas lo que he hecho y me digas si es lo que buscas.

Saludos.

Oscar,

Hay mucha información en esas libretas. Esto hace la pregunta difícil de entender y de responder. Me parece que lo que quieres se puede hacer usando la función GatherBy, por ejemplo GatherBy[tutabla, #[[1]]&] (asumiendo que el protocolo es el primer elemento en cada hilera), y después escogiendo el grupo donde se encuentra 1 VS.

Quizá más fácil sea usar Select[tutabla, #[[1]]=="1 VS" &]. Yo uso GatherBy cuando quiero ver todos los grupos, pero segregados (el output de GatherBy se puede pasar a ListPlot, por ejemplo, y ver los gráficos con distintos PlotMarkers). Si no necesito los demás grupos, entonces uso Select.

A juzgar por las libretas tienes un nivel bastante avanzado.

Saludos,

OL.

Hi Oscar,

Attached is a notebook example which imports your data. It then uses the Mathematca function GatherBy to group the data into sublists, where each sublist contains the records for a given protocol. At this point, a separate but identical analysis can be run on each of these sublists to get a separate analysis for each protocol. I would usually do that be making a function that performs an analysis and then mapping it onto the data collection, but that is a bit advanced. You can also copy the analysis, with new input. Where each input is one of the sublists.

Best, David

Attachments:

In your data I see some date objects in column 1, not the "1 VS" and the other things you describe. Where are these group designators? This notebook is very complicated. Is it possible you could provide a simpler example? (I will be gone tomorrow, so there will be a delay unless someone else can contribute.)

I checked -- it was not new syntax in 10. I think it's been available for quite a while.

You can use select together with a selection condition to extract rows by content. For example, code below uses a pure function that returns True for a particular match. A row is selected if the 2nd column contains precisely "B"

In[6]:= set = {"A", "B", "C", "D"};

In[7]:= data = RandomChoice[set, {9, 5}]

Out[7]= {{"D", "D", "B", "C", "A"}, {"A", "C", "A", "A", "C"}, {"C", 
  "B", "D", "B", "C"}, {"B", "A", "A", "C", "C"}, {"B", "B", "A", "B",
   "C"}, {"B", "C", "B", "B", "C"}, {"D", "D", "B", "D", "A"}, {"D", 
  "C", "D", "C", "D"}, {"A", "A", "C", "B", "A"}}

In[8]:= Select[data, #[[2]] === "B" &]

Out[8]= {{"C", "B", "D", "B", "C"}, {"B", "B", "A", "B", "C"}}

Oscar,

I'm not sure I understand but if you want only a particular range of rows for a given column, it can be done like this in V10:

In[3]:= d = Table[10 j + i, {j, 9}, {i, 5}]

Out[3]= {{11, 12, 13, 14, 15}, {21, 22, 23, 24, 25}, {31, 32, 33, 34, 
  35}, {41, 42, 43, 44, 45}, {51, 52, 53, 54, 55}, {61, 62, 63, 64, 
  65}, {71, 72, 73, 74, 75}, {81, 82, 83, 84, 85}, {91, 92, 93, 94, 
  95}}

In[4]:= d[[3 ;; 5, 2]]

Out[4]= {32, 42, 52}