max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Improved printing

Browse source
This commit is contained in:
Waldir Leoncio 2021-02-15 10:04:58 +01:00
parent d3c390a5f8
commit a13e2c30ac
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
R/indMix.R
View file

@ -165,7 +165,7 @@ indMix <- function(c, npops, dispText) {
if (muutosNyt == 0) { if (muutosNyt == 0) {
muutosNyt <- 1 muutosNyt <- 1
if (dispText) { if (dispText) {
print('Action 1') cat('Action 1')
} }
} }
kokeiltu <- zeros(nRoundTypes, 1) kokeiltu <- zeros(nRoundTypes, 1)
@ -218,7 +218,7 @@ indMix <- function(c, npops, dispText) {
) )
logml <- logml + maxMuutos logml <- logml + maxMuutos
if (dispText) { if (dispText) {
print('Action 2') cat('Action 2')
} }
if (logml > worstLogml) { if (logml > worstLogml) {
partitionSummary_added <- addToSummary( partitionSummary_added <- addToSummary(
@ -284,9 +284,9 @@ indMix <- function(c, npops, dispText) {
logml <- logml + maxMuutos logml <- logml + maxMuutos
if (dispText) { if (dispText) {
if (round == 3) { if (round == 3) {
print('Action 3') cat('Action 3')
} else { } else {
print('Action 4') cat('Action 4')
} }
} }
if (logml > worstLogml) { if (logml > worstLogml) {
@ -365,9 +365,9 @@ indMix <- function(c, npops, dispText) {
muutoksia <- 1 # Ulompi kirjanpito. muutoksia <- 1 # Ulompi kirjanpito.
if (dispText) { if (dispText) {
if (round == 5) { if (round == 5) {
print('Action 5') cat('Action 5')
} else { } else {
print('Action 6') cat('Action 6')
} }
} }
} }
@ -489,7 +489,7 @@ indMix <- function(c, npops, dispText) {
} }
if (muutoksiaNyt == 0) { if (muutoksiaNyt == 0) {
if (dispText) { if (dispText) {
print('Action 7') cat('Action 7')
} }
muutoksiaNyt <- 1 muutoksiaNyt <- 1
} }