## Crea en tu carpeta de alumno@carleos2.epv.uniovi.es:~/public_html
## un fichero llamado contig.pdf que contenga un histograma de los
## números que siguen a las letras tig en los nombres de las variables
## del fichero
## carleos2.epv.uniovi.es:/home/manadine/dat/jacatón/ContigsTPM.csv

ssh alumno@carleos2.epv.uniovi.es # me conecto con éxito
cd public_html/martin/ # cambio a la carpeta destino
ls -sh /home/manadine/dat/jacatón/ContigsTPM.csv # veo que tiene 40M
wc -l /home/manadine/dat/jacatón/ContigsTPM.csv  # 341 renglones
## por tanto, los renglones deben de ser largos
head -n1 /home/manadine/dat/jacatón/ContigsTPM.csv | wc -c # 502.435 letras
## exploro las primeras columnas de las primeras filas
head /home/manadine/dat/jacatón/ContigsTPM.csv | cut -c -100
## compruebo que los campos estAn separados por comas
## y que las variables tienen nombres que comienzan por tig

## entro en R
R
## dentro de R:
a = read.csv("/home/manadine/dat/jacatón/ContigsTPM.csv")
nombres = names(a)
head(nombres) # X tig...
tail(nombres) # tig... tig...
all (substring(nombres[-1],1,3) == "tig") # TRUE
## todas comienzan por tig menos la primera
nombres = names(a)[-1]
## eliminar "tig" para conseguir los números, versión 1:
numeros = as.numeric (substring (nombres, 4))
## versión 2:
numeros = as.numeric (gsub ("tig", "", nombres))
pdf("contig.pdf")
hist(numeros)
dev.off()

## otra opción sería haber traído el fichero al ordenador local mediante
## scp alumno@carleos2.epv.uniovi.es:/home/manadine/dat/jacatón/ContigsTPM.csv .
## y hacer el histograma localmente y enviarlo después mediante
## scp contig.pdf alumno@carleos2.epv.uniovi.es:~/public_html/martin