New answers tagged map
0
Patterns are the key to this one.
Just pick off the games themselves from the results.
games = Partition[Flatten@results[[All, 2]], 4]
(* {{team1, team2, 4, 0}, {team3, team4, 2, 1}, {team2, team3, 2, 4},
{team4, team1, 1, 3}, {team1, team3, 0, 1}, {team4, team2, 2, 2}} *)
Define this pattern and the replacement right hand side. The th is "team home"...
0
In order to test the model, I should implement within the matchesFor function the importation of the already played matches dataset ordered by rounds for all leagues (here reported Italian league code from the webpage that already does this filter):
d = Import["https://www.soccerstats.com/results.asp?league=italy&pmtype=\bygameweek","Data"];
t1=Table[{d[...
0
Thank you Rohit!
Actually I would need to have all the main european leagues data within three big vectors only, that is Chome, Caway and matches.
Basically, I would like to have
Chome={ChomeENG,ChomeITA,ChomeGER}
by manipulating website pages root with a function which creates it. And so on for Caway and matches, instead of doing it by repeating the same ...
0
Update
To get a list containing the Home values for all of the countries as separate sub lists:
allHome = countryMatches // Map[KeyTake[#, "Home"] &] // Catenate
Similarly for any other key in the association.
I modified the code so it is easier (at least for me) to understand and wrapped it in a function that returns an Association of associations ...
1
ClearAll[tabulate]
tabulate = Flatten[{#, Total[Join @@ UpperTriangularize[#2, 1]], Tr@#2,
Total[Join @@ UpperTriangularize[#2, -1]]}] & @@@ # &;
headers = {"home", "away", "1", "X", "2"};
TableForm[tabulate@data, TableHeadings -> {None, headers}]
Grid[Prepend[tabulate@data, headers], Dividers -> {All, {All, 2 -> Thick}}]
2
MapIndexed[Function[{v, k},
geg[First[k], Total[KeyValueMap[fef[#1, #2, First[k], mem] &, v]]]],
{<|a -> b, c -> d|>, <|e -> f|>}]
{geg[1, fef[a, b, 1, mem] + fef[c, d, 1, mem]],
geg[2, fef[e, f, 2, mem]]}
Or, slightly more readable version:
MapIndexed[Function[{v, k},
geg[First[k],
Total[KeyValueMap[Function[{...
2
For (1) you can define newrow to take a list of arbitrary length as input:
ClearAll[newrow2]
newrow2[x_List] := Flatten@MapAt[{#, (x[[1]] - #) const1/const2} &, x, {2 ;;}]
newrow2[Array[y, 5]]
{y[1], y[2], 4/3 (y[1] - y[2]), y[3], 4/3 (y[1] - y[3]), y[4],
4/3 (y[1] - y[4]), y[5], 4/3 (y[1] - y[5])}
This is the same as the output from your ...
Top 50 recent answers are included
