Edita o nome para exibir na tabela.

parent 10638ea7
...@@ -38,6 +38,14 @@ nt <- read.xls("/home/walmes/Dropbox/Ensino/ce089-2017-02/notas.xls", ...@@ -38,6 +38,14 @@ nt <- read.xls("/home/walmes/Dropbox/Ensino/ce089-2017-02/notas.xls",
encoding = "latin1") encoding = "latin1")
str(nt) str(nt)
nt$Nome <- paste(
sub(pattern = "^(\\w+) .*$",
replacement = "\\1",
x = nt$Nome),
sub(pattern = "^\\w.* (\\w+)$",
replacement = "\\1",
x = nt$Nome))
#----------------------------------------------------------------------- #-----------------------------------------------------------------------
# Editação da tabela. # Editação da tabela.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment