01.11.2014 Views

Prácticas de Estadística en R - Departamento de Estadística e ...

Prácticas de Estadística en R - Departamento de Estadística e ...

Prácticas de Estadística en R - Departamento de Estadística e ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

20 3. Un ejemplo para apr<strong>en</strong><strong>de</strong>r R. El Hitori<br />

cat("No se pue<strong>de</strong> tachar la casilla seleccionada\n")<br />

}<br />

else{<br />

tachada[pos[1],pos[2]]=1<br />

}<br />

}<br />

}<br />

# SI QUEREMOS RECUPERAR CASILLA<br />

else if (jugamos==2){<br />

if (tachada[pos[1],pos[2]]==0){<br />

cat("La posición elegida no estaba tachada\n")<br />

}<br />

else {<br />

tachada[pos[1],pos[2]]=0<br />

}<br />

}<br />

dibujatablero(hitori,tachada)<br />

# SE ACABO EL JUEGO?<br />

fila1)<br />

}<br />

if (sum(fila,col)>0){<br />

cat("Se repit<strong>en</strong> numeros\n")<br />

}<br />

else{<br />

cat("ENHORABUENA!!!\n")<br />

juega=F<br />

}<br />

}<br />

}<br />

}

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!